ついさっきまで出なかったのに、同じコードでコンパイルエラー (ID:126299)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ”ガッ” さんフォローありがとうございます。 Microsoft Excel も Ofiice も Object Libraryは参照されてます。 でも、動かないんですよね・・・・・。 なんで？？ ご指摘通り、VBAでも動くはずなので、VBAに持って行きましたが、VBAでも同じエラーが出ます。 ”コンパイルエラー：Functionまたは変数が必要です”といわれて怒られます。 VBAでは、以下のようにしてます。 Sub GET_List_ofFile(FolderPath) Dim File_Collection As Object Dim File_list As Variant Dim cnt As Integer Dim ReturnBook As Workbook Dim TargetBook As Workbook Set File_Collection = CreateObject("Scripting.FileSystemObject") _ .GetFolder(FolderPath).Files cnt = 1 For Each File_list In File_Collection If (File_list.Name = ThisWorkbook.Name) Then Else: Set ReturnBook = ActiveWorkbook Set TargetBook = Workbooks.Open(FolderPath + "\" + File_list.Name) ↑ ここでエラー・・・・・。 以下省略