もどる

 Line Input # ステートメント
HOMEへ
PRODUCTSへ
LEARNING
LINKへ
LOGO
HeadLine
ORDER FORMへ
Image画像
MailTo:

もどる


(c) Copyright 2005 VBAを基礎から解説 VBA World All rights reserved.
E-Mail:info@vba-world.com
外部ファイル(テキスト・ファイルなど)から一行読み込むためのステートメントです。外部ファイル内の一行を先頭から改行コードがあるところまで読み込みます。

このステートメントの前には 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