シーケンシャルファイルを読み込む： Excel

Excel VBAでシーケンシャルファイルを読み込み、セルに書き込みます。

ファイルを開く構文　：　Open ファイル名 For モード #ファイル番号
シーケンシャルファイルを読み込むモード： Input - 入力モード

ファイルを読み込む構文： Line Input #ファイル番号,変数
一行分のデータを読み込みます。

ファイルを閉じる構文： Close #ファイル番号

Excel VBA Tips関連記事
テキストファイルへ書き込み
テキストファイルの読込み
シーケンシャルファイルに書き込む

Excel実行画面

エクセルゴミ収集カレンダーです。
日付も種類も空白です。ここにシーケンシャルファイルの読み込み結果を書き込みます。
未記入のゴミ収集カレンダー

読み込むシーケンシャルファイルです。
日付ともえるごみ等の分別する種類が記録されています。改行のみなのは種類に何も登録されていないことになります。
メモ帳の画面

シーケンシャルファイルを読み込み、エクセルのセルに入力した結果です。
エクセルゴミ収集カレンダー

Excel VBA実行コード

Option Explicit

Option Explicit

Option Explicit

'読み込みボタン
Private Sub CommandButton2_Click()
    Dim i As Long
    Dim s As String

    Open "C:\test\test.txt" For Input As #1
    For i = 7 To 21
        Line Input #1, s
        Cells(i, 2) = s
        Line Input #1, s
        Cells(i, 3) = s
    Next
    Close #1
    MsgBox "読み込みしました"
End Sub

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

シーケンシャルファイルを読み込む ： Excel

Excel実行画面

Excel VBA実行コード

シーケンシャルファイルを読み込む： Excel