Excel VBA質問箱 IV

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

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


30600 / 76732 ←次へ | 前へ→

【51397】Re:Excelマクロを用い、Word名を指定し、WordのデータをExcelに貼り付ける
発言  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)

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

0 hits

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

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