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

関連記事

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

GetOpenFilename メソッドファイル名を取得するための、「ファイル …

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