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

解決済

質問者：goldengolds
質問日時：2007/04/30 11:33
回答数：1件

ワードマクロからエクセルシートのデータを読み込みたいのですが、マクロを実行すると「コンパイルエラー：変数が定義されていません。」というエラーが出てしまいます。変数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
よろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： Wendy02
回答日時：2007/04/30 11:56

こんにちは。

「コンパイルエラー：変数が定義されていません。」
というのは、そこに書かれていない部分だと思います。その前に、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