ワードのマクロからエクセルシートを開きデータを読み込む

質問

ワードマクロからエクセルシートのデータを読み込みたいのですが、マクロを実行すると「コンパイルエラー：変数が定義されていません。」というエラーが出てしまいます。変数xlUpで引っかかってるようなんですが、どのように定義すればよいですか？
コードは以下です。
Dim Workbooks As Object
Dim ecell As Integer
Workbooks.Open FileName:="namesheet.xls"
ecell = Workbooks("namesheet.xls").Worksheets(1).Range("B100").End(xlUp).Row
よろしくお願いいたします。

回答No.1

Wendy02 · ベストアンサー

こんにちは。

「コンパイルエラー：変数が定義されていません。」
というのは、そこに書かれていない部分だと思います。その前に、Workbooks として書いても、MS-WordのVBAからでは通りません。

参考例：

'-------------------------------------

Sub Test1()
Dim xlApp As Object　'Excel.Application
Dim xlBk As Object　'Excel.Workbook
'Dim xlPath As String 'パス
Dim ecell As Integer

Const FNAME = "namesheet.xls"

　Set xlApp = CreateObject("Excel.Application")
'　　xlPath = xlApp.DefaultFilePath & "\" 'パスの設定が必要な場合
　If Dir(xlPath & FNAME) = "" Then MsgBox "ファイルが見つかりません": Exit Sub
　Set xlBk = xlApp.WorkBooks.Open(xlPath & FNAME)
　　ecell = xlBk.Worksheets(1).Range("B100").End(xlUp).Row
　　xlBk.Close False
　　xlApp.Quit
　　Set xlBk = Nothing
　　Set xlApp = Nothing
End Sub