Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

テキストファイル：出力する 1 行の幅を設定（Width # ステートメント）

2016/01/11

Width # ステートメント

Open ステートメントをシーケンシャル出力モード（Output）で開いたファイルにデータを書き込むときの 1 行の幅（文字数）を設定します。

【構文】

Width #filenumber, width

引数・戻り値

filenumber ・・・ Open ステートメント で、割り当てられたファイル番号を指定します。
width ・・・ 1 行の幅（字数）を示す、0 ～ 255 の範囲の数値を指定します。width が 0 の場合、行の長さに制限はありません（省略不可）。

Width # ステートメント使用例

サンプルVBAソース

　
Sub Sample_Width()

    Dim FileName As String
    Dim FNum As Integer
    Dim i As Integer
        
    FileName = "C:\Documents\mydata\test03.txt"
    FNum = FreeFile
    
    'ファイルを開く
    Open FileName For Output As #FNum
    
    '幅を設定
    Width #FNum, 10
    
    For i = 11 To 50
        
        Print #FNum, CStr(i);
        
    Next i

    'ファイルを閉じる
    Close #FNum

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

　

Sub Sample_Width()

Dim FileName As String

Dim FNum As Integer

Dim i As Integer

FileName = "C:\Documents\mydata\test03.txt"

FNum = FreeFile

'ファイルを開く

Open FileName For Output As #FNum

'幅を設定

Width #FNum, 10

For i = 11 To 50

Print #FNum, CStr(i);

Next i

'ファイルを閉じる

Close #FNum

End Sub

　

実行結果

サンプルVBAソースを実行して作成されたファイルの内容

- Excel・ファイルの操作 Excel・ファイルの操作, Open ステートメント, VBA基本, Width # ステートメント, エクセルVBA, テキストファイル

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: テキストファイル：データを読み込む（Input 関数・InputB 関数）

Input 関数・InputB 関数 Open ステートメントをシーケンシャル入 …

: ファイル属性の取得・設定（GetAttr 関数・SetAttr ステートメント）

ファイル属性の取得（GetAttr 関数）ファイルやフォルダ（ディレクトリ）の …

: 開いているファイルのサイズ・位置の取得（LOF 関数・Loc 関数）

LOF 関数 Open ステートメントにより開かれたファイルのサイズをバイト単 …

: テキストファイル（Open ステートメント・Close ステートメント）

新規ブックを開かずにテキストファイルを開く OpenText ステートメントを …

: EOF 関数

EOF 関数 Open ステートメントをランダムアクセスモード（Random） …

: Excel を終了する（Quit メソッド）

Excel を終了する（Quit メソッド） Quit メソッドを実行すると、E …

: 組み込みダイアログボックスの引数一覧

組み込みダイアログボックスの引数一覧 Excel の組み込みダイアログボックスを …

: XlBuiltInDialog 列挙型

XlBuiltInDialog 列挙型 Excel の組み込みダイアログボックス …

: ディレクトリまたはフォルダの作成（MkDir ステートメント）

ディレクトリまたはフォルダの作成新しいディレクトリまたはフォルダを作成するには …

: Excel の組み込みダイアログボックス（Dialog, Dialogs）

Excel の組み込みダイアログボックスを表示 Dialog オブジェクトを使 …

PREV: テキストファイル：データを読み込む（Get ステートメント）
NEXT: 開いているファイルの読み取り位置または書き込み位置を設定（Seek ステートメント）