次のようなテキストファイルを用意します。
ファイル名はdata.csvとします。
なお、文字コードはSJIS(シフトJIS)、改行コードはCR+LFとします。
a,b,c
1,2,3
4,5,6
1,2,3
4,5,6
テキスト読み込み
テキストファイルを読み込みます。
Openでファイルを開きます。
Lineで1行ずつ取得します。
これをA列に1行ずつセットしていきます。
ファイルの最後(EOF)まで行って、Closeで閉じます。
Sub テキスト読み込み()
fn = "data.csv"
Open fn For Input As #1
n = 1
Do Until EOF(1)
Line Input #1, myline
Cells(n, 1) = myline
n = n + 1
Loop
Close #1
End Sub
fn = "data.csv"
Open fn For Input As #1
n = 1
Do Until EOF(1)
Line Input #1, myline
Cells(n, 1) = myline
n = n + 1
Loop
Close #1
End Sub
実行結果は次の通りです。
| A | |
| 1 | a,b,c |
| 2 | 1,2,3 |
| 3 | 4,5,6 |
CSV読み込み
このテキストファイルはCSVになっているので、セルごとにセットします。
1行ずつ取得するところまでは上と同じです。
Splitでカンマで区切り、配列変数にセットします。
配列から一つずつ取り出しセルにセットします。
Sub CSV読み込み()
fn = "data.csv"
Open fn For Input As #1
n = 1
Do Until EOF(1)
Line Input #1, myline
temp = Split(myline, ",")
For i = 0 To UBound(temp)
Cells(n, i + 1) = temp(i)
Next i
n = n + 1
Loop
Close #1
End Sub
fn = "data.csv"
Open fn For Input As #1
n = 1
Do Until EOF(1)
Line Input #1, myline
temp = Split(myline, ",")
For i = 0 To UBound(temp)
Cells(n, i + 1) = temp(i)
Next i
n = n + 1
Loop
Close #1
End Sub
実行結果は次の通りです。
| A | B | C | |
| 1 | a | b | c |
| 2 | 1 | 2 | 3 |
| 3 | 4 | 5 | 6 |
コメント