投稿日	： 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

・・・こちらになります。

宜しくお願い致します。

★ - コピー＆ペーストについて - TAKA 01/23-19:11No.2377
• Re: コピー＆ペーストについて - 花ちゃん 01/24-01:01 No.2384
• Re: コピー＆ペーストについて - 花ちゃん 01/24-01:11 No.2385
  • Re^2: コピー＆ペーストについて - TAKA 01/24-10:20 No.2387