このようなエクセルマクロを作りたいのですが・・・

質問

,で区切られたasc形式のファイルを、エクセル上に出力したいです。
ファイルは大体12万行くらいあります。

やりたいこと）
1.　任意のファイルを読み込む。
2.　,毎に区切って「数値」として出力する。（,は2つあるので、データはABC列に出力されることになります）
3.　32000行を越えたら、DEF列に出力する。
4.　DEF列でも再び32000行（合計64000行読み込んだ）を越えたらGHI列に・・・
5.データがなくなったら終了

ということがやりたいです。
現在、ファイルを読み込んで区切るところまでは出来たのですが、3のところで躓いています。ソースを書いておきますので、どのようにやればいいのでしょうか？
途中で、IF Rowcnt > 32000 then・・・とやると上手くいきそうなのですが、様々なエラーに阻まれてお手上げです・・・

また、このマクロで出力すると、必ず「文字列」として出力されてしまうのですが、どうやれば最初から「数値」として出力してくれるのでしょうか？どこか宣言を誤ったのでしょうか・・・

つたない文章ですが、ご指導のほどよろしくお願いいたします。

Sub CSV_Read()
Dim FileType, Prompt As Variant
Dim FileNamePath As Variant
Dim csvline() As String
Dim i, Rowcnt, ColumNum As Integer
Dim ch1 As Variant

FileType = "asc ファイル (*.asc),*.asc"
Prompt = "ファイルを選択してください"
FileNamePath = SelectFileNamePath(FileType, Prompt)

If FileNamePath = False Then
End
End If

ColumNum = GetItemNum(FileNamePath) '1行あたりの項目数を取得します
ReDim csvline(1 To ColumNum) 'csvlineを1行あたりの項目数で再割り当て
ch1 = FreeFile
Open FileNamePath For Input As #ch1 'FileNamePath のファイルをオープンします

On Error GoTo CloseFile

Rowcnt = 1
Do While Not EOF(ch1) 'ファイルの終端かどうかを確認。
For i = 1 To ColumNum
Input #ch1, csvline(i) '1行の項目数だけ読み込み
Next
Range(Cells(Rowcnt, 1), Cells(Rowcnt, ColumNum)) = csvline()
Rowcnt = Rowcnt + 1
Loop
CloseFile:
Close #ch1
End Sub

回答No.1

mshr1962 · ベストアンサー

下記の部分なら
－－－－－－－－－－－－－－－－－－－－－－－－－－－
Range(Cells(Rowcnt, 1), Cells(Rowcnt, ColumNum)) = csvline()
－－－－－－－－－－－－－－－－－－－－－－－－－－－
Rcnt = (Rowcnt - 1) Mod 32000 + 1
Ccnt = Int((Rowcnt - 1) / 32000)
Range(Cells(Rcnt, Ccnt + 1), Cells(Rcnt, Ccnt + ColumNum)) = csvline()
－－－－－－－－－－－－－－－－－－－－－－－－－－－
とすればいいのでは？

回答No.3

fujillin

しつこいですが・・・、もいっこ忘れてました

＞このマクロで出力すると、必ず「文字列」として出力されてしまうのですが
最初の　Dim csvline() As String　で文字列と宣言してるから

回答No.2

fujillin

通りかかったので、おせっかいながら・・・

＃1さんの内容でOKなのですが、
Ccnt = Int((Rowcnt - 1) / 32000)　を
Ccnt = Int((Rowcnt - 1) / 32000) * ColumNum
にしておかないと、1列ずつしかずれないので、2列目からデータが上書きされちゃいます。

おせっかい、すみません。