|
VBAでcsvファイルを取り込みたいと考えていますが、
以下のマクロだと文字列のまま取り込まれてしまいます。
数字データをエクセル上に数値として取り込むための修正を教えて
頂けませんでしょうか?
Sub test()
Dim csvFile As String
Dim ch As Integer
Dim csvStr As String
Dim str() As String
Dim i As Integer
'CSVファイル名
csvFile = "D:\Test.txt"
'空いている番号を取得
ch = FreeFile
'CSVファイルオープン
Open csvFile For Input As #ch
'CSVファイル読込
i = 1
Do While Not EOF(1)
'1行読み込む
Line Input #ch, csvStr
'カンマ区切りで配列に格納
str = Split(csvStr, ",")
'セルのレンジを指定して、配列の値をセット
Range(Cells(i, 1), Cells(i, UBound(str) + 1)) .value= str
i = i + 1
Loop
'ファイルクローズ
Close #ch
End Sub
|
|