現在、標準モジュール内でエクセルの編集を行っています。
メインの関数から２つのサブ関数を呼んで、それぞれで
エクセルの行をコピーしようとすると2つ目のほうがうまくいきません
以下が簡単にまとめたコードです。
sub2()では行のコピーの前までは、正常にシート2に値のセット等が
出来ますが、コピー後は値のセットまで出来なくなります

Public Function main()
    Set xlApp = CreateObject("Excel.Application")

    'オープンするファイル名
    Set xlBook = xlApp.Workbooks.Open("C:\temp\test.xls")

    Set xlSheet = xlBook.Worksheets(1)
    Call sub1
  
    Set xlSheet = xlBook.Worksheets(2)
    Call sub
End Function

Public Function sub1()
　　'コピーを行う
　　xlSheet.Rows(1:9).Copy
    xlSheet.Rows(10).Select
    xlSheet.Paste
End Function

Public Function sub2()
　　'コピーを行う
　　xlSheet.Rows(1:9).Copy
    xlSheet.Rows(10).Select
    xlSheet.Paste
End Function

よろしくお願いします

このコードは、そのままじゃ動かないです(^^;
>     Call sub
は、call sub2で

> 　　xlSheet.Rows(1:9).Copy
は、xlSheet.Rows("1:9").Copy ですよね。

sub1とsub2の最初に、xlSheet.Select または xlSheet.Activate を入れてみて
ください。

hhttp://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?no=1922&reno=no&oya=1922&mode=msgview&page=30
結果報告をお願いします。

> hhttp://www.bcap.co.jp/hanafusa/vbbbs/wforum.cgi?
no=1922&reno=no&oya=1922&mode=msgview&page=30
> 結果報告をお願いします。

ここまで、無視されると、有る意味気持ちがいいですね。