Excel VBA 他のエクセルブックをプログラムから自動的に開く方法

以下のようなシーンで利用されます。

・定期的に特定のExcelファイルを開いてデータを更新したり、レポートを生成したりする。

・複数のブックからデータを収集して一つのマスターシートに集計する。

・ ユーザーが手動でファイルを開く手間を省くため。

Sub OpenWorkbookExample()
    Dim wb As Workbook
    Dim filePath As String
    
    ' 開きたいブックのパスを指定
    filePath = "C:\Users\User\Desktop\DataCsv\Book2.xlsx"
    
    ' ブックを開く
    Set wb = Workbooks.Open(filePath)
    
    ' ブックをアクティブにして操作する例
    wb.Sheets(1).Range("A1").Value = "Hello, World!"
End Sub

パスワード保護されたブックの開き方

Set wb = Workbooks.Open(filePath, Password:="yourpassword")

ファイルが存在しない場合のエラーハンドリング

  On Error Resume Next
  Set wb = Workbooks.Open(filePath)
  If wb Is Nothing Then
      MsgBox "ファイルが見つかりません。"
  End If
  On Error GoTo 0

Excel VBAを使って指定したExcelファイルを簡単に開くことができます。