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

関連記事

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

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

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

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

: テキストファイル：データを読み込む（Line Input # ステートメント）

Line Input # ステートメント Open ステートメントをシーケンシャ …

: テキストファイル：データを読み込む（Input # ステートメント）

Input # ステートメント Open ステートメントをシーケンシャル入力モ …

: テキストファイル：データを書き込む（Put ステートメント）

Put ステートメント Open ステートメントをランダムアクセスモード（Ra …

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

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

: XlBuiltInDialog 列挙型

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

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

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

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

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

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

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

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