次の方法で共有

Print # ステートメント

  • [アーティクル]

表示形式のデータをシーケンシャル ファイルを書き込みます。

構文

プリント#filenumber, [ outputlist ]

Print # ステートメントの構文には、次の指定項目があります。

指定項目 説明
filenumber 必須。 任意の有効なファイル番号。
outputlist 省略可能。 出力する式または式のリスト。

Settings

outputlist引数の設定は次のとおりです。

[{ Spc(n) | Tab [ (n) ]}] [ expression ] [ charpos ]

設定 説明
Spc(n) 出力に空白文字を挿入するときに使用します。n は挿入する空白文字の数です。
Tab(n) 絶対列番号に挿入ポイントを配置する場合に使用します。n は列番号です。 引数の指定なしで Tab を使用すると、挿入ポイントは次の印字領域の先頭に配置されます。
expression 出力する数式または文字列式です。
charpos 次の文字の挿入ポイントを指定します。 表示されている最後の文字の直後に挿入ポイントを配置する場合は、セミコロンを使用します。 絶対列番号に挿入ポイントを配置する場合は、Tab(n) を使用します。 引数の指定なしで Tab を使用すると、挿入ポイントは次の印字領域の先頭に配置されます。 charpos を省略すると、次の文字が次の行に表示されます。

解説

Print # で書き込まれるデータは、通常、Line Input # または Input # を使用してファイルから読み取ります。

outputlist を省略して、filenumber の後ろにリスト区切り記号のみを含めると、ファイルに空白行が出力されます。

複数の式は、スペースまたはセミコロンで区切ることができます。 スペースは、セミコロンと同等に働きます。

Boolean データについては、True または False が出力されます。 True キーワードと False キーワードは、ロケールにかかわらず翻訳されません。

Date データは、システムで認識される標準の短い日付形式を使用してファイルに書き込まれます。 日付または時刻の部分が見つからない場合や 0 の場合は、指定されている部分のみがファイルに書き込まれます。

outputlist データが Empty の場合は、ファイルに何も書き込まれません。 ただし、outputlist データが Null の場合は、ファイルに Null が書き込まれます。

[エラー データ] の場合、出力はエラー コードとしてError表示されます。 Error キーワードは、ロケールに関係なく翻訳されません。

Print # を使用してファイルに書き込まれるデータはすべて国際対応です。つまり、データは、適切な小数点の記号を使用して、適切に書式設定されます。

Print # では、データのイメージがファイルに書き込まれるため、データが適切に出力されるようにデータを区切る必要があります。 引数なしで Tab を使用して出力位置を次の印字領域にすると、Print # では出力フィールドの間にスペースも書き込まれます。

注:

Input # ステートメントを使用してファイルからデータを読み取る予定がある場合は、Print # ステートメントではなく、Write # ステートメントを使用してファイルにデータを書き込んでください。 Write # を使用すると、それぞれ個別のデータ フィールドが適切に区切られることで整合性が確保されるため、Input # を使用してデータを読み戻すことができます。 また、Write # を使用すると、どのロケールでも正しくデータを読み取れるようになります。

例

この例では、Print # ステートメントを使用してファイルにデータを書き込みます。

Open "TESTFILE" For Output As #1 ' Open file for output. 
Print #1, "This is a test" ' Print text to file. 
Print #1, ' Print blank line to file. 
Print #1, "Zone 1"; Tab ; "Zone 2" ' Print in two print zones. 
Print #1, "Hello" ; " " ; "World" ' Separate strings with space. 
Print #1, Spc(5) ; "5 leading spaces " ' Print five leading spaces. 
Print #1, Tab(10) ; "Hello" ' Print word at column 10. 
 
' Assign Boolean, Date, Null and Error values. 
Dim MyBool, MyDate, MyNull, MyError 
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null 
MyError = CVErr(32767) 
' True, False, Null, and Error are translated using locale settings of 
' your system. Date literals are written using standard short date 
' format. 
Print #1, MyBool ; " is a Boolean value" 
Print #1, MyDate ; " is a date" 
Print #1, MyNull ; " is a null value" 
Print #1, MyError ; " is an error value" 
Close #1 ' Close file.

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。