※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます
サンプル ※説明に必要な部分しか記述していません
下記のテキストファイルを準備し
下記を実行すると
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
このようになります。