シーケンシャルファイルを読み込む ： Excel
Excel VBAでシーケンシャルファイルを読み込み、セルに書き込みます。
ファイルを開く構文 ： Open ファイル名 For モード #ファイル番号
シーケンシャルファイルを読み込むモード ： Input - 入力モード
ファイルを読み込む構文 ： Line Input #ファイル番号,変数
一行分のデータを読み込みます。
ファイルを閉じる構文 ： Close #ファイル番号
Excel VBA Tips関連記事
テキストファイルへ書き込み
テキストファイルの読込み
シーケンシャルファイルに書き込む
ファイルを開く構文 ： Open ファイル名 For モード #ファイル番号
シーケンシャルファイルを読み込むモード ： Input - 入力モード
ファイルを読み込む構文 ： Line Input #ファイル番号,変数
一行分のデータを読み込みます。
ファイルを閉じる構文 ： Close #ファイル番号
Excel VBA Tips関連記事
テキストファイルへ書き込み
テキストファイルの読込み
シーケンシャルファイルに書き込む
Homeに戻る > Excel ファイル操作の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
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
Homeに戻る > Excel ファイル操作のTipsへ
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved