VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル： Excelの行をコピー

投稿日： 2008/04/22(Tue) 10:30

投稿者： RRI

Dim xlApp　 As Object

Set xlApp = CreateObject("Excel.application")

～中略（ループ開始）

　　　　xlApp.Worksheets(3).Rows("1:50").Copy
　　　　xlApp.Worksheets(1).Rows(1).Select
　　　　xlApp.Worksheets(1).Rows(1).Insert

～以下略（ループ終了処理）

エクセルのシート３の１～５０行目をコピーして、シート１の１行目に
挿入（または貼付け）をしたいのですが
上のやり方だと１回目は出来るのですが、２回目から

xlApp.Worksheets(1).Rows(1).Selectのところで
RangeクラスのSelectプロパティを取得できません。

とエラーが出てしまいます。
そもそものやり方が間違っているのでしょうか？

説明が乏しいかもしれませんが、ご指導お願いします。

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

Excelの行をコピー

RRI

No.12073

Re: Excelの行をコピー - YK 08/04/22-11:08 No.12075
- Re^2: Excelの行をコピー - RRI 08/04/22-12:01 No.12078
続きですみません。 - RRI 08/04/22-13:10 No.12081
- Re: 続きですみません。 - YK 08/04/22-14:46 No.12086
- Re: 続きですみません。 - るしぇ 08/04/22-16:19 No.12088
  - Re^2: 続きですみません。 - RRI 08/04/23-10:23 No.12098

タイトル	： Excelの行をコピー
投稿日	： 2008/04/22(Tue) 10:30
投稿者	： RRI

古いスレッドにレスはつけられません。