Excelのレコードクリア (ID:115629)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ひとつ質問です。 以前私がソースを提示したとき >削除する方法はきのこさんのコードであってます。 と言っていただきました。 n = 6 For i = 1 To RS.RecordCount xlSheet.Cells(n, 1).Delete xlSheet.Cells(n, 2).Delete xlSheet.Cells(n, 3).Delete xlSheet.Cells(n, 4).Delete xlSheet.Cells(n, 5).Delete xlSheet.Cells(n, 6).Delete xlSheet.Cells(n, 7).Delete xlSheet.Cells(n, 8).Delete xlSheet.Cells(n, 9).Delete xlSheet.Cells(n, 10).Delete xlSheet.Cells(n, 11).Delete n = n + 1 Next i これをデバックすると RS.RecordCount=<オブジェクト変数またはWithブロック変数が設定されていません。 と、表示されます。 エラーにはなりません。 それでループをしないでそのままFor文を抜けてしまいます。 なので1つしか削除されません。（ListViewでもし2つ以上削除削除した場合） これって、Excel上でカウントされていないことになりますよね？ ということは For i = 1 To RS.RecordCount このFor文ではExcel上をカウントできないということですか？ でしたらどうすればよいでしょう？