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

FileSystemObject：ファイルを開く（OpenAsTextStream メソッド）

2016/05/23

ファイルを開く（OpenAsTextStream メソッド）

指定されたファイルを開き、ファイルの読み取り、書き込み、追加に使用できる TextStream オブジェクトを取得します。
FileSystemObject（FSO）のインスタンスを生成する方法は、ファイルシステムオブジェクト（FileSystemObject）の使い方を参照してください。

【書式】

＜取得＞
object.OpenAsTextStream ( [ iomode, format ] )

引数・戻り値

object ・・・ File オブジェクトを指定します。

iomode ・・・入出力モードを指定します。省略可。

定数	値	内容
ForReading	1	読み取り専用で開きます。
ForWriting	2	書き込み用として開きます。既存のファイルは上書きされます。
ForAppending	8	書き込み用として開きます。ファイルの末尾に書き込まれます。

format ・・・ファイルの形式を指定します。省略すると、ASCII として開かれます。

定数	値	内容
TristateUseDefault	-2	システムの既定値を使用してファイルを開きます。
TristateTrue	-1	Unicode としてファイルを開きます。
TristateFalse	0	ASCII としてファイルを開きます。

FSO を使ったテキストファイルの使い方については、FileSystemObject：テキストファイルを操作するを参照してください。

OpenAsTextStream メソッド使用例

サンプルVBAソース

　
Sub Sample_FSOOpenAsTextStream()

    Dim fso As New FileSystemObject
    Dim tw As TextStream
    Dim tr As TextStream
    Dim fName As String
    
    fName = "C:\Documents\mydata6\newtext1.txt"
    
    Set tw = fso.GetFile(fName) _
                .OpenAsTextStream( _
                    IOMode:=ForWriting, _
                    Format:=TristateTrue)
    
    tw.Write "こんにちは！"
    tw.Close
    
    Set tr = fso.GetFile(fName) _
                .OpenAsTextStream( _
                    IOMode:=ForReading, _
                    Format:=TristateTrue)
    
    MsgBox tr.ReadAll
    tr.Close

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

28

　

Sub Sample_FSOOpenAsTextStream()

Dim fso As New FileSystemObject

Dim tw As TextStream

Dim tr As TextStream

Dim fName As String

fName = "C:\Documents\mydata6\newtext1.txt"

Set tw = fso.GetFile(fName) _

.OpenAsTextStream( _

IOMode:=ForWriting, _

Format:=TristateTrue)

tw.Write "こんにちは！"

tw.Close

Set tr = fso.GetFile(fName) _

.OpenAsTextStream( _

IOMode:=ForReading, _

Format:=TristateTrue)

MsgBox tr.ReadAll

tr.Close

End Sub

　

実行結果

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

Tweet

Message コメントをキャンセル

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

関連記事

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

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

: FileSystemObject：ファイルやフォルダの親フォルダを調べる（ParentFolder プロパティ）

指定したファイルやフォルダの親フォルダを調べる（ParentFolder プロパ …

: FileSystemObject：指定したファイル名から拡張子を取得する（GetExtensionName）

ファイル名から拡張子を取得（GetExtensionName メソッド） Fil …

: FileSystemObject：フォルダやファイルをコピー（Copy メソッド）

フォルダやファイルをコピー（Copy メソッド） FileSystemObjec …

: FileSystemObject：テキストファイルを作成（CreateTextFile メソッド）

テキストファイルを作成（CreateTextFile メソッド） FileSys …

: TextStream ファイルの位置（AtEndOfLine,AtEndOfStream,Column,Line）

AtEndOfLine プロパティ開いたファイル（TextStream ファイ …

: FileSystemObject：フォルダの存在確認（FolderExists メソッド）

フォルダの存在確認（FolderExists メソッド） FileSystemO …

: FileSystemObject：フォルダ内のすべてのファイルを取得（Files プロパティ）

フォルダ内のすべてのファイルを取得（Files プロパティ）フォルダ内のすべて …

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

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

: FileSystemObject：ルートフォルダかどうかを調べる（IsRootFolder プロパティ）

ルートフォルダかどうかを調べる（IsRootFolder プロパティ） File …

PREV: FileSystemObject：テキストファイルを操作する（TextStream オブジェクト）
NEXT: FileSystemObject：ファイルを開く・閉じる（OpenTextFile ,Close）