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 コメントをキャンセル

関連記事

: TextStream ファイルを読み込む（Read,ReadLine,ReadAll）

ReadAll メソッド TextStream ファイルの内容全体を取得します。 …

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

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

: FileSystemObject：ファイルをコピー（CopyFile メソッド）

ファイルをコピーする（CopyFile メソッド） FileSystemObje …

: FileSystemObject：ファイル・フォルダの最終アクセス日時を取得（DateLastAccessed プロパティ）

ファイル・フォルダの最終アクセス日時を取得（DateLastAccessed プ …

: FileSystemObject：ファイルを移動する（MoveFile）

ファイルを移動する（MoveFile メソッド） FileSystemObjec …

: FileSystemObject：ドライブを取得する（Drives プロパティ）

ドライブ（Drives コレクション）を取得する（Drives プロパティ） F …

: FileSystemObject：指定フォルダに含まれるすべてのフォルダを取得（SubFolders プロパティ）

フォルダに含まれるすべてのフォルダを取得（SubFolders プロパティ） F …

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

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

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

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

: FileSystemObject：ファイルを開く・閉じる（OpenTextFile ,Close）

ファイルを開く（OpenTextFile メソッド） FileSystemObj …

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