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

TextStream ファイルに書き込む（Write,WriteLine,WriteBlankLines）

2016/05/26

Write メソッド

TextStream ファイルに、指定した文字列を書き込みます。

【書式】

object.Write ( string )

引数・戻り値

object ・・・ TextStream オブジェクトを指定します。
string ・・・ファイルに書き込む文字列を指定します。

引数 string に文字列を複数指定すると各文字列がスペースや文字で区切られずに続けて書き込まれます。改行文字や最後が改行文字で終わる文字列を書き込む場合は、WriteLine メソッドを使用します。

WriteLine メソッド

TextStream ファイルに、指定した文字列および改行文字を書き込みます。

【書式】

object.WriteLine ( [ string ] )

引数・戻り値

object ・・・ TextStream オブジェクトを指定します。
string ・・・ファイルに書き込む文字列を指定します。省略すると、改行文字がファイルに書き込まれます。

WriteBlankLines メソッド

TextStream ファイルに、指定した数の改行文字を書き込みます。

【書式】

object.WriteBlankLines ( lines )

引数・戻り値

object ・・・ TextStream オブジェクトを指定します。
lines ・・・ファイルに書き込む改行文字の数を指定します。

TextStream ファイルに書き込む例

サンプルVBAソース

　
Sub Sample_Write()

    Dim fso As New FileSystemObject
    Dim f As TextStream
    Dim str As String
    Dim fname As String
    
    fname = "C:\Documents\mydata5\test02.txt"
    Set f = fso.OpenTextFile(fname, ForWriting)
        
    f.Write "あいうえお"
    f.Write "かきくけこ"
    f.WriteBlankLines (5)
    f.WriteLine "さしすせそ"
    f.WriteLine "たちつてと"
    
    f.Close

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

　

Sub Sample_Write()

Dim fso As New FileSystemObject

Dim f As TextStream

Dim str As String

Dim fname As String

fname = "C:\Documents\mydata5\test02.txt"

Set f = fso.OpenTextFile(fname, ForWriting)

f.Write "あいうえお"

f.Write "かきくけこ"

f.WriteBlankLines (5)

f.WriteLine "さしすせそ"

f.WriteLine "たちつてと"

f.Close

End Sub

　

実行結果

- FileSystemObject CreateObject 関数, Excel・ファイルの操作, FileSystemObject オブジェクト, Microsoft Scripting Runtime, TextStream ファイル, VBA基本, Write メソッド, WriteBlankLines メソッド, WriteLine メソッド, エクセルVBA

Tweet

Message コメントをキャンセル

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

関連記事

: TextStream ファイルで、指定された読み込み位置に移動（Skip,SkipLine）

Skip メソッド開いた TextStream ファイルで、指定された文字数を …

: FileSystemObject：Drive オブジェクトの主なプロパティ

Drive オブジェクトの取得 Drive オブジェクトを取得するには、FSO …

: FileSystemObject：ファイル・フォルダの最終更新日時を取得（DateLastModified プロパティ）

ファイル・フォルダの最終更新日時を取得（DateLastModified プロパ …

: FileSystemObject：8.3形式のファイル名（フォルダ名）またはパスを取得（ShortPath, ShortName）

8.3形式のファイル名（フォルダ名）またはパスを取得（ShortPath, Sh …

: FileSystemObject：フォルダやファイルを削除（Delete メソッド）

フォルダやファイルを削除（Delete メソッド） FileSystemObje …

: FileSystemObject：ファイルの存在確認（FileExists メソッド）

ファイルの存在確認（FileExists メソッド） FileSystemObj …

: FileSystemObject：ファイル・フォルダが存在するドライブを取得（Drive プロパティ）

ファイル・フォルダが存在するドライブを取得（Drive プロパティ） FileS …

: FileSystemObject：ファイル・フォルダを削除する（DeleteFile メソッド,DeleteFolder メソッド）

ファイルを削除する（DeleteFile メソッド） FileSystemObj …

: FileSystemObject：ファイル・フォルダの作成日時を取得（DateCreated プロパティ）

ファイル・フォルダの作成日時を取得（DateCreated プロパティ） Fil …

: FileSystemObject：フルパスからファイル名、パスを取得する（GetFileName、GetParentFolderName）

フルパスからファイル名やパスを取得する FileSystemObject（FSO …

PREV: TextStream ファイルで、指定された読み込み位置に移動（Skip,SkipLine）
NEXT: TextStream ファイルの位置（AtEndOfLine,AtEndOfStream,Column,Line）