VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/02/09(Wed) 08:43
投稿者： ひろ
Ｅメール：
ＵＲＬ：
タイトル： 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

よろしくお願いします

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -