もどる

 Print # ステートメント
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ステートメント でファイルをオープンしておく必要があります。

構文解説
Print #intFileNumber, strWriteString

 intFileNumber:任意のファイル番号。通常は FreeFile関数 を使用して取得する。
 strWriteString:書き込む文字列が格納された文字列変数。
プログラム例

下の例では、フォーム上のコマンド・ボタンをクリックすると、外部ファイル "Test.txt" に文字列"VBA World" を書き出す。


Private Sub CommandButton1_Click()
 Dim intFileNumber As Integer
 Dim strPathName As String
 Dim strWriteString As String

 strPathName = ActiveWorkbook.Path & "\Test.txt"
 intFileNumber = FreeFile
 Open strPathName For Input As intFileNumber

 strWriteString = "VBA World"

 Print #intFileNumber, strWriteString

 Close intFileNumber

End Sub