|
こんにちは。
みなさんどうか、お力を貸していただけないでしょうか?
やりたいことは
以下すべてExcelマクロで操作
1.Wordを名前を指定し開く
2.開いたWordの1つ目のテーブルのセルの値を取得
3.取得した値をExcelのセルに入れる
といった作業をしたいのですが、以下を実行すると
xlSheet.Cells(1, 1) = A
のところで
実行時エラー'1004':
アプリケーション定義またはオブジェクト定義エラーです。
とエラーが出てきてしまいます。。。
どうかよろしくお願いします。
Dim wdApp As Object
Dim wdDoc As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.documents.Open("c:\test.doc")
wdApp.Visible = True
wdDoc.Activate
A = wdDoc.tables(1).cell(1, 1)
'保存しないで終了
wdApp.Quit SaveChanges:=wdDoNotSaveChanges
'オブジェクトを解放
Set wdDoc = Nothing
Set wdApp = Nothing
Dim xlApp As Object
Dim xlBook
Dim xlSheet
Set xlApp = CreateObject("excel.application")
Set xlBook = xlApp.Workbooks.Open("c:\貼り付け先.xls")
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
xlSheet.Activate
xlSheet.Cells(1, 1) = A
|
|