スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

フォルダの中のファイルを取得(FileSystemObject)

Dim fs As New Scripting.FileSystemObject
Dim objFILE As File
Dim bk As Workbook

For Each objFILE In fs.GetFolder(path_比較表).Files
Set bk = Workbooks.Open(Filename:=objFILE.Path)
bk.Close
Next objFILE
スポンサーサイト

トラックバック

コメント

コメントを残す

Secret



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。