[VBA][Excel]ファイルの読込み Open, Line Input

 

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

下記のテキストファイルを準備し

textfile-sample-201603

下記を実行すると

Private Sub CommandButton1_Click()

Dim w_line As String
Dim i_Fno As Integer
Dim i As Integer

Sheet1.Activate

'FreeFileは使用可能なファイル番号を整数型 (Integer) の値で返すファイル入出力関数です(ヘルプ引用)
i_Fno = FreeFile


'ファイルを入力モードで開きます
Open "ファイルの絶対パス\test.txt" For Input As #i_Fno


i = 0
'EOFになるまで繰り返します
Do Until EOF(i_Fno)
    '行単位で読込み、変数に代入します
    Line Input #i_Fno, w_line
    i = i + 1
    Sheet1.Cells(i, 1).Value = w_line

Loop

'ファイルを閉じます
Close #i_Fno

End Sub

このようになります。

vba-excel-line-input