投稿時間：2003/01/23(Thu) 19:11
投稿者名：TAKA
Ｅメール：
ＵＲＬ ：
タイトル：コピー＆ペーストについて
はじめまして。今このＨＰを見ながらＶＢの勉強をしている初心者です。
逆引きヘルプを参考にしながらですが、
１、ＶＢからエクセル起動
２、セルへデータ貼り付け
３、セルデータをコピー
４、ワード起動
５、ワードにセルデータをペースト
６、エクセル終了
（ワードは終了させない）
を行っています。
１回目は正常に動作するのですがその後ワードを閉じて
２回目に同じ事を行うとペースト処理のところでエラーが
でてします。何が原因なのか全く見当もつかないので
何か知ってらっしゃる方がいらしたら何でも良いので
教えてください。
ソースは・・・・
Private Sub Command1_Click()
On Error Resume Next
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set wdApp = GetObject(, "Word.Application")
Err.Number = 0
Set xlApp = GetObject(, "Excel.Application")
Err.Number = 0
'エクセルを起動してシートに出力内容を書き込む
'エクセル起動
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.DisplayAlerts = False
xlSheet.Cells(2, 1).Value = "見出し１"
xlSheet.Cells(2, 2).Value = "見出し２"
xlSheet.Cells(2, 3).Value = "見出し３"
Set wdApp = New Word.Application
'新しい文書を開く
Set wdDoc = wdApp.Documents.Add
'エクセルの指定範囲をコピー
LineRange_S = "A1:E3"
xlSheet.Range(LineRange_S).Copy
'Wordを表示
wdApp.Visible = True
'貼り付け
Selection.Paste 'ここでエラーになります
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
'オブジェクトを解放します。
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
・・・こちらになります。
宜しくお願い致します。
|