質問: マクロでフォルダ内の全てのexcelファイルを開くには? excelのマクロ機能で、マクロを実行すると、あるフォルダ内にある全てのexcelファイルを開くことってできますでしょうか?
回答: ちょうどこの間作ったのがありました。 同じフォルダにあるexcelファイルのうち、開いてないものを全て開きます。もしフォルダを指定したいのであれば、 filename = dir("*.xls") の行の前に chdir("フォルダ名") を挿入してください。 sub openallbooks() dim filename as string dim openedbook as workbook dim isbookopen as boolean filename = dir("*.xls") do while filename <> "" if filename <> thisworkbook.name then isbookopen = false for each openedbook in workbooks if openedbook.name = filename then isbookopen = true exit for end if next if isbookopen = false then workbooks.open (filename) end if end if filename = dir() loop end sub