VBA 実行エラー1004 Excel データーリンクプロパティ
Q&A
Closed
解決したいこと
VBAでフィルを任意のフォルダーを開こうとしたらエラーがでました
データーリンクプロパティのWindowもでます
解決方法を教えて下さい。
発生している問題・エラー
実行エラー1004
該当するソースコード
Sub OpenFilesInFolder()
Dim dstSheet As Worksheet
Set dstSheet = ThisWorkbook.Worksheets("私服")
Dim path, fso, file, files
'path = "C:/Users/xxxxxx/フォルダ名/"
path = ThisWorkbook.path & "/Data/" '相対パスの場合
Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(path).files
'フォルダ内の全ファイルについて処理
For Each file In files
'ファイルを開いてブックとして取得
Dim wb As Workbook
Set wb = Workbooks.Open(file)
'ブックに対する処理1
Call SheetLoop
'保存せずに閉じる
Call wb.Close(SaveChanges:=False)
Next file
MsgBox "I did it!!!"
End Sub
0 likes
