Excelでテキストファイルを開く（OpenText メソッド）

2015/12/25

Excelでテキストファイルを開く

OpenText メソッドで、テキストファイルを 1 枚のシートとして、それを含む新規ブックを開きます。

【書式】

object.OpenText ( filename [, origin, startrow, datatype, textqualifier, consecutivedelimiter, tab, semicolon, comma, space, other, otherchar, fieldinfo, textvisuallayout, decimalseparator, thousandsseparator, trailingminusnumbers, local ] )

引数・戻り値

object ・・・対象となる Workbooks コレクションを指定します。
filename ・・・開きたいテキストファイルの名前を文字列式で指定します。パスを含むことも可能です。パスを省略した場合は、カレントフォルダ内のファイルが対象となります。
origin ・・・テキストファイルの作成元のプラットフォームを表す XlPlatform 列挙型 の定数またはその値を指定します。省略した場合、テキストファイルウィザードに設定されている「元のファイル」の現在の設定値が使用されます。

定数値内容

xlMacintosh 1 Macintosh

xlWindows 2 Microsoft Windows

xlMSDOS 3 MS-DOS
startrow ・・・読み込みを開始する行を指定します。省略可。既定値は、1 です。

datatype ・・・テキストファイルのデータの形式を表す XlTextParsingType 列挙型 の定数またはその値を指定します。省略可。

定数	値	内容
xlDelimited	1	区切り文字（タブ、カンマなど）によって区切られます（既定値）
xlFixedWidth	2	各列の文字数が一定（固定長フィールド形式）

textqualifier ・・・データの引用符を表す XlTextQualifier 列挙型 の定数またはその値を指定します。省略可。

定数値内容

xlTextQualifierDoubleQuote 1 二重引用符（”）既定値

xlTextQualifierSingleQuote 2 一重引用符（’）

xlTextQualifierNone -4142 引用符なし
consecutivedelimiter ・・・連続した区切り文字を 1 文字として扱うときは True を指定します。既定値は False です。
tab ・・・引数 datatype に xlDelimited を指定、区切り文字にタブを使うときは True を指定します。既定値は False です。
semicolon ・・・引数 datatype に xlDelimited を指定、区切り文字にセミコロン（;）を使うときは True を指定します。既定値は False です。
comma ・・・引数 datatype に xlDelimited を指定、区切り文字にカンマ（,）を使うときは True を指定します。既定値は False です。
space ・・・引数 datatype に xlDelimited を指定、区切り文字にスペースを使うときは True を指定します。既定値は False です。
other ・・・引数 datatype に xlDelimited を指定、区切り文字に、引数 otherchar で指定した文字を使うときは True を指定します。既定値は False です。
otherchar ・・・引数 other が True のとき、区切り文字を指定します。複数の文字を指定したときは、先頭の文字が区切り文字となり、残りの文字は無視されます。
fieldinfo ・・・各列のデータ形式または固定長フィールド形式の区切り位置を配列（Array 関数）で指定します。⇒ 詳細
textvisuallayout ・・・テキストの視覚的な配置を指定します。省略可。
decimalseparator ・・・ Excel で数値を認識する場合に使う小数点の記号を指定します。省略可。既定値は「地域と言語のオプション」の設定値となります。
thousandsseparator ・・・ Excel で数値を認識する場合に使う桁区切り記号を指定します。省略可。既定値は「地域と言語のオプション」の設定値となります。
trailingminusnumbers ・・・末尾に負を表す符号が付く数値を負の数値として扱う場合は、True を指定します。文字列として扱う場合は、False を指定するか、引数を省略します。
local ・・・区切り記号、数値、およびデータの書式にコンピューターの「地域設定と言語のオプション」を使用する場合は、True を指定します。省略可。既定値は、False です。

引数 fieldinfo についての詳細

（１）引数 datatype に、xlDelimited が指定されている場合

各列ごとに、Array 関数を使用し、Array ( [列番号], [変換形式] ) という形で指定します。[変換形式] には、XlColumnDataType 列挙型の定数またはその値を指定します。
引数 fieldinfo を省略すると、すべての列は、標準形式で、読み込まれます。
（例）　fieldinfo = Array( Array(1,2), Array(2,5), Array(3,1), Array(4,9) )

（２）引数 datatype に、xlFixedWidth が指定されている場合（固定長フィールド形式）

各列ごとに、Array 関数を使用し、Array ( [開始位置], [変換形式] ) という形で指定します。[変換形式] には、XlColumnDataType 列挙型の定数またはその値を指定します。
引数 fieldinfo を省略することはできません。
（例）　fieldinfo = Array( Array(1,2), Array(6,2), Array(25,1) )

XlColumnDataType 列挙型

定数	値	内容
xlGeneralFormat	1	標準
xlTextFormat	2	文字列
xlMDYFormat	3	MDY（月日年）日付形式
xlDMYFormat	4	DMY（日月年）日付形式
xlYMDFormat	5	YMD（年月日）日付形式
xlMYDFormat	6	MYD（月年日）日付形式
xlDYMFormat	7	DYM（日年月）日付形式
xlYDMFormat	8	YDM（年日月）日付形式
xlSkipColumn	9	この列は読み込まれません
xlEMDFormat	10	EMD（台湾年月日）日付形式

Open メソッド とは違い、Workbook オブジェクト を返しません。
　　　
　Dim w As Workbook
　Set w = OpenText(“Book1.xls”)
　　　
とすると、エラーが発生します。

OpenText メソッド使用例

サンプルVBAソース

　
Sub Sample_OpenText()
       
    Dim w As Workbook

    Workbooks.OpenText Filename:="C:\Documents\user01.txt", _
                       DataType:=xlDelimited, _
                       Comma:=True, _
                       FieldInfo:=Array(Array(1, 1), Array(2, 2), Array(3, 5))
    
    Set w = Workbooks(Workbooks.Count)
    w.ActiveSheet.Cells.Columns.AutoFit
    
    MsgBox w.Name
    
    w.Close
    Set w = Nothing

End Sub

Sub Sample_OpenText()

Dim w As Workbook

Workbooks.OpenText Filename:="C:\Documents\user01.txt", _

DataType:=xlDelimited, _

Comma:=True, _

FieldInfo:=Array(Array(1, 1), Array(2, 2), Array(3, 5))

Set w = Workbooks(Workbooks.Count)

w.ActiveSheet.Cells.Columns.AutoFit

MsgBox w.Name

w.Close

Set w = Nothing

End Sub

実行結果

- Excel・ファイルの操作 Excel・ファイルの操作, OpenText メソッド, VBA基本, Workbook オブジェクト, エクセルVBA, テキストファイル

Message コメントをキャンセル

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

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

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

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

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

: ファイルをコピー（FileCopy ステートメント）

FileCopy ステートメントファイルをコピーします。ただし、開いているファ …

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

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

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

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

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

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

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

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

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

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

: テキストファイル：出力する 1 行の幅を設定（Width # ステートメント）

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

: EOF 関数

EOF 関数 Open ステートメントをランダムアクセスモード（Random） …

PREV: ファイルサイズを取得（FileLen 関数）
NEXT: テキストファイル（Open ステートメント・Close ステートメント）

Excelでテキストファイルを開く（OpenText メソッド）