テキストファイルの読込み : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク





ExcelシートのVBAコード

Excelでテキストファイルを読むにはまず、FileOpen関数で使用できる次のファイル番号を取得し、For Inputでファイルを開きます。
次に、Do Until EOFで最後の行までループし、 Line Inputで一行単位で読みます。
今回は、下方向の行へ記入しています、
最後に、Closeでファイルを閉じ、終了処理を行います。

Option Explicit

Private Sub ExTextRead()
    Dim fno As Integer
    Dim s1 As String
    Dim i As Integer
    
    i = 0
    fno = FreeFile
    Open "c:\test.txt" For Input As fno
    Do Until EOF(fno)
        Line Input #fno, s1
        Cells(8 + i, 2) = s1
        i = i + 1
    Loop
    Close fno
End Sub

Private Sub CommandButton1_Click()
    ExTextRead
End Sub

スポンサーリンク





[実行結果 Excel画面]
読込みボタンをクリックすると、読み込んだ結果をB8から表示していきます。

Excel Tipsメニューへ

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved