VBA World ：Line Input # ステートメント

外部ファイル（テキスト・ファイルなど）から一行読み込むためのステートメントです。外部ファイル内の一行を先頭から改行コードがあるところまで読み込みます。

このステートメントの前には Openステートメントでファイルをオープンしておく必要があります。

構文解説

Line Input #intFileNumber, strReadString

　intFileNumber：任意のファイル番号。通常は FreeFile関数を使用して取得する。
　strReadString：読み込んだ一行を格納する文字列変数。

プログラム例

下の例では、フォーム上のコマンド・ボタンをクリックすると、外部ファイル "Test.txt" から一行読み込み、その一行をメッセージ・ボックスに表示する。

Private Sub CommandButton1_Click() 　Dim intFileNumber As Integer 　Dim strPathName As String 　Dim strReadString As String 　strPathName = ActiveWorkbook.Path & "\Test.txt" 　intFileNumber = FreeFile 　Open strPathName For Input As intFileNumber 　Line Input #intFileNumber, strReadString 　Msgbox strReadString 　Close intFileNumber End Sub