CSVファイルを読み込みExcelで出力するには？ (ID:103912)

名前

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

本文 たびたびすいませんがまた疑問が出てきたので質問させてください。 書籍やホームページを見てプログラム作成したのですが サンプル 'Excelへの参照 Set xlsApp = CreateObject("Excel.Application") 'Excelにブックを追加 Set xlsBook = xlsBook.Sheets("Sheet1") '読み込むcsvファイル名 strFileName = "test.csv" '空いているファイル番号を取得 intFileNo = FreeFile 'csvファイルを開く Open strFileName For Input As intFileNo 'ファイルの最後に達するまでループ Do Until EOF(intFileNo) '読み込んだ行数をカウント intRow = intRow + 1 '1行分のデータを読み込む For intCol = 1 To 5 'ファイルから読み込んだ内容を変数に保存 Input #intFileNo, strRecBuff '変数の内容をExcelに送る xlsSheet.Cells(intRow, intCol) = strRecBuff Next Loop 'Excelを表示 xlsBook.Application.Visible = True 'csvファイルを閉じる Close intFileNo 'オブジェクトを解放 Set xlsSheet = Nothing Set xlsBook = Nothing Set xlsApp = Nothing データの二列目から四列目のデータを取得するには For intCol = 1 To 5 を For intCol = 2 To 4と変えればいいのですか？ あとデータを36件まで取得したいのですがどうしたらいいですか？ 教えてくださいお願いします。