動作検証バージョン:64bit Windows 10 Pro + 32bit Word&Excel(バージョン2209 ビルド15629.20156 Microsoft Store)
「word エクセルを開くマクロ」
という検索キーワードでアクセスがありました。
Word VBAでExcelファイルを開くにはどのようなコードを書けばいいのかを調べていらしたのでしょうか。
[スポンサードリンク]
Excelファイルを開くWordマクロ
Cドライブのtempフォルダーにsample.xlsxファイルを用意しておいて、以下のWordマクロを実行してください。
Sub Exceファイルを開く()
On Error GoTo ErrHandl
ErrHandl:
Select Case Err.Number
Case 1004
MsgBox "指定されたExcelファイルが見つかりません。"
Case Else
MsgBox Err.Description & vbCrLf & Err.Number
End Select
Err.Clear
End Sub
On Error GoTo ErrHandl
With CreateObject(Class:="Excel.Application")
.Visible = True
.Workbooks.Open "C:\temp\sample.xlsx"
End With
ErrHandl:
Select Case Err.Number
Case 1004
MsgBox "指定されたExcelファイルが見つかりません。"
Case Else
MsgBox Err.Description & vbCrLf & Err.Number
End Select
Err.Clear
End Sub
CreateObject後は実質的にExcel VBA
VBAのCreateObject関数で
With CreateObject(Class:="Excel.Application")
Excel.Applicationを起動して参照を取得した後は、実質的にExcel VBAです。
Excel.ApplicationオブジェクトのVisibleプロパティにTrueを設定することでExcelを表示して、
With CreateObject(Class:="Excel.Application") .Visible = True
Excel.ApplicationオブジェクトのWorkbooksプロパティで取得した
With CreateObject(Class:="Excel.Application") .Visible = True .Workbooks.Open "C:\temp\sample.xlsx"
Excel.WorkbooksコレクションのOpenメソッドを使って
With CreateObject(Class:="Excel.Application") .Visible = True .Workbooks.Open "C:\temp\sample.xlsx"
Excelファイルを開いています。
[スポンサードリンク]
Home » ワードマクロ・Word VBAの使い方 » Office連携 » Word VBAでExcelファイルを開く