ファイルから読み込む 最初は、次のようなテキストファイルを例にします。 ファイルの場所(フルパス)は「C:\Sample\Data.txt」とします。このファイルから、1行ずつ読み込んでセルに代入してみましょう。 テキストファイルから1行ずつ読み込むには、Line Inputステートメントを使います。 Line Input #番号, 変数 Sub Sample1() Dim buf As String Open "C:\Sample\Data.txt" For Input As #1 Line Input #1, buf MsgBox buf Close #1 End Sub Line Inputステートメントは、1行分のデータを読み込むと、読み取りポイントを次の行に移します。つまり、Line Inputステートメントを繰り返すことで、テキストファイルの中を、1行ずつ、すべて読み込むことが