VBでワードに貼り付け

解決

名無し 2009-10-02 19:36:38 No: 142597

こんにちわ
Excelのデータをワードにコピーしたいのですが
うまくいきません。

dim wdApp As Word.Application        'ワードオブジェクト
Dim wdDoc As Word.Document              'ワードドキュメント
Dim xlSheet As Excel.Worksheet          'シートオブジェクト


'*** Word 起動 ***
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open(Report_DOC)
wdApp.Visible = True

Set xlReportBook = xlApp.Workbooks.Open(Report_XLS)

'表紙
Set xlSheet = xlReportBook.Worksheets("表紙")
xlSheet.Activate
range("A1:I51").Select
Application.CutCopyMode = False
Selection.Copy

wdDoc.Activate
wdDoc.Select
Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False

Selection.PasteSpecialで
「アプリケーション定義またはオブジェクト定義のエラーです。」
とでるのですがこれはなんですか？
ご教授お願いします。

名無し 2009-10-03 01:13:01 No: 142598

VBからでなく
ワードを開いてリンクありで貼り付けて
対処することにしました。

お騒がせしました。