投稿日	： 2006/08/24(Thu) 09:52
投稿者	： moyacchi
Ｅメール	：
ＵＲＬ	：
タイトル	： Excelでの既存シートのコピー

いつも参照させていただいております。
VBとExcelの連動で困っていますので助けていただけないでしょうか？

既存のbook1のsheet1の１行目から４１行目までをコピーして４２行目に貼付てbook2に別名保存
したいのですがうまくいきません。現在は以下のようにしています。

    Dim xlApp                   As Excel.Application
    Dim xlBook                  As Excel.Workbook
    Dim xlSheet                 As Excel.Worksheet
    
    
    
    'book2の確認
    MyFile = Dir$("C:\book2.xls")
    If Len(MyFile) > 1 Then
       '既存のbook2を削除する
        Kill "C:\book2.xls"
    Else
    End If
    
    'book1の取込
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\book1.xls")
    Set xlSheet = xlBook.Worksheets(1)
    
    '１行目から４１行目をコピーして
    xlSheet.Rows("1:41").Select
    xlSheet.Copy
    
    '４２行にペースト
    xlSheet.Rows("42:42").Select
    xlSheet.Paste
    
    'Cドライブ直下に保存の場合
    xlApp.DisplayAlerts = False
    xlSheet.SaveAs "C:\book2.xls"
    
    xlBook.Close True

    xlApp.Quit
    'オブジェクトを解放
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

ペースト部分でエラーが発生してしまいます。どのような命令を付け加えればいいのでしょうか
？教えて下さい。
    

★ - Excelでの既存シートのコピー - moyacchi 08/24-09:52No.7064
• Re: Excelでの既存シートのコピー - いもーに 08/24-10:27 No.7065
  • Re^2: Excelでの既存シートのコピー - moyacchi 08/24-10:55 No.7067
• Re: Excelでの既存シートのコピー - YK 08/24-10:54 No.7066
  • Re^2: Excelでの既存シートのコピー - moyacchi 08/24-11:05 No.7068