|
こんばんは。
>みなさんどうか、お力を貸していただけないでしょうか?
>
>やりたいことは
>
>以下すべて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)
'↑ここもプロパティを省略しない癖を付けた方が良いですよ!!
|
|