Excel VBA質問箱 IV

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

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


5345 / 13644 ツリー ←次へ | 前へ→

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

【51394】Excelマクロを用い、Word名を指定し、Wo...
質問  りんご  - 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

【51397】Re:Excelマクロを用い、Word名を指定し、...
発言  ichinose  - 07/9/14(金) 18:35 -

引用なし
パスワード
   こんばんは。


>みなさんどうか、お力を貸していただけないでしょうか?
>
>やりたいことは
>
>以下すべて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).Range.Text
'きちんとプロパティまで記述しないからではないですか?
> 
>'保存しないで終了
>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).value = application.clear(A)

'↑ここもプロパティを省略しない癖を付けた方が良いですよ!!

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