Excelでテキストを読み込む

次のようなテキストファイルを用意します。
ファイル名はdata.csvとします。
なお、文字コードはSJIS(シフトJIS)、改行コードはCR+LFとします。

a,b,c
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

実行結果は次の通りです。

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

実行結果は次の通りです。

A B C
1 a b c
2 1 2 3
3 4 5 6

タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報