ExcelVBA : フォルダ配下のXLS(XLSX)取得

Excelはbookを複数開くと致命的に遅くなる。

マクロで複数ブックに処理をするならば、一本毎に開き、処理、そして閉じるの繰り返しをするしかない。

こんなときに、フォルダを指定するだけで、配列変数に処理対象excelファイルパス名を入れるマクロだ。

getFileListを呼べば、フォルダ選択ダイアログが表示され、選択すれば、targfile()に一覧が入る。
後は" for each book in targfile ～ nextでopen して、ActiveWorkSheet に処理を行ってくれ。

最大ファイル数は64になってるから、適当に変えろし。

 Application.FileDialogは、.NET FRAMEFORK以降だから、多分Office2003以降で動作すると思う。

AWKのつぼ

なし。

Dim targfile(64) As String Sub getFileList() Dim fd As FileDialog Set df = Application.FileDialog(msoFileDialogFolderPicker) df.AllowMultiSelect = False df.Show For i = 1 To df.SelectedItems.Count strn = df.SelectedItems(i) Next If IsEmpty(strn) Then targcnt = 0 Else szFile = Dir$(strn & "\*.xls*") targcnt = 0 While szFile <> "" And targcnt < 64 If (szFile <> "." And szFile <> ".." And azFile <> "common.xls") Then targfile(targcnt) = strn & "\" & szFile targcnt = targcnt + 1 End If szFile = Dir Wend targfile(targcnt) = "" End If End Sub