タイトル : 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 〜以下略(ループ終了処理) エクセルのシート3の1〜50行目をコピーして、シート1の1行目に 挿入(または貼付け)をしたいのですが 上のやり方だと1回目は出来るのですが、2回目から xlApp.Worksheets(1).Rows(1).Selectのところで RangeクラスのSelectプロパティを取得できません。 とエラーが出てしまいます。 そもそものやり方が間違っているのでしょうか? 説明が乏しいかもしれませんが、ご指導お願いします。 |