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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

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

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

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

: ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）

Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …

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

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

: 「ファイルを開く」ダイアログボックス（FindFile メソッド）

FindFile メソッド「ファイルを開く」ダイアログボックスを表示します。G …

: フルパスからファイル名、パスを取得する

フルパスからファイル名のみを取得するフルパスからファイル名を取得するには、Di …

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

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

: フォルダ名・ファイル名を変更（Name ステートメント）

フォルダ名およびファイル名を変更 Name ステートメントで、ファイル、ディレ …

: ファイルのタイムスタンプを取得（FileDateTime 関数）

ファイルのタイムスタンプを取得ファイルのタイムスタンプを取得するには、File …

: ファイルを削除（Kill ステートメント）

ファイルを削除するファイルを削除するには、Kill ステートメントを使用しま …

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