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

関連記事

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

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

: 特殊フォルダを取得（wsh.SpecialFolders）

CreateObject 関数：特殊フォルダを取得（WSH.SpecialFol …

: FileDialog オブジェクトを取得する（FileDialog プロパティ）

FileDialog プロパティ FileDialog オブジェクトを取得しま …

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

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

: FileDialogFilters コレクション・FileDialogFilter オブジェクト

FileDialogFilters コレクション FileDialog オブジェ …

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

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

: EOF 関数

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

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

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

: 「ファイル」ダイアログボックスを表示・設定（FileDialog オブジェクト）

FileDialog オブジェクト FileDialog オブジェクトのメソッ …

: Open ステートメントで使用できるファイル番号を取得（FreeFile 関数）

FreeFile 関数 Open ステートメントで使用するファイル番号（ 1 ～ …

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