投稿日 | : 2005/02/09(Wed) 08:43 |
投稿者 | : ひろ |
Eメール | : |
URL | : |
タイトル | : 2つめのシートの行のコピーが出来ない |
現在、標準モジュール内でエクセルの編集を行っています。
メインの関数から2つのサブ関数を呼んで、それぞれで
エクセルの行をコピーしようとすると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
よろしくお願いします