Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30609 / 76738 ←次へ | 前へ→

【51394】Excelマクロを用い、Word名を指定し、WordのデータをExcelに貼り付ける
質問  りんご  - 07/9/14(金) 14:51 -

引用なし
パスワード
   こんにちは。
みなさんどうか、お力を貸していただけないでしょうか?

やりたいことは

以下すべて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

0 hits

【51394】Excelマクロを用い、Word名を指定し、WordのデータをExcelに貼り付ける りんご 07/9/14(金) 14:51 質問
【51397】Re:Excelマクロを用い、Word名を指定し、W... ichinose 07/9/14(金) 18:35 発言

30609 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free