複数のExcelのファイルを一気に開くVBA

グループウェアが浸透すれば、脱Excelして、2度手間入力など劇的に減ります。

ただ、なかなかグループウェアを導入できない環境であると、

いくつもファイルを開いて作業をすることがあります。

Pythonも便利なんですが、環境を整えたりすることが大変なこともあるので、今回はＶＢＡだけでできるものです。

A1からA3セルにファイルパスを入力しておけば、VBAマクロで開けるようになっています。

今は、Excelのみで、WordやPDFなどには対応させていません。

ファイルがないときには最後にメッセージが出るようにしています。

以下コード

Option Explicit Sub FileOpen() Dim FPath As Variant 'ファイルパスの場所 FPath = Range("A1:A3") Dim NoFile As String Dim i As Integer For i = 1 To 3 'ファイルがないときの処理 If Dir(FPath(i, 1)) = "" Then NoFile = NoFile & "『" & FPath(i, 1) & "』のファイルが存在しませんでした" & Chr(13) Else 'ファイルがあるとき　開く Workbooks.Open FPath(i, 1) End If Next MsgBox "処理がおわりました。" & Chr(13) & NoFile End Sub