テキストファイルを読み込む

サンプルソース

' ファイル操作オブジェクトを生成
Set objFso = CreateObject("Scripting.FileSystemObject")
' ファイルをOpen
Set objFile = objFso.OpenTextFile("c:\a.txt", 1, False)

Do Until objFile.AtEndOfStream
    Cells(1,1) = objFile.ReadLine
Loop

' ファイルをClose
objFile.Close
Set objFile = Nothing
' ファイル操作オブジェクトを解放
Set objFso = Nothing

解説

Scripting.FileSystemObjectはファイル操作をするオブジェクトです。

OpenTextFileでファイルを開きます。
第1パラメータ→ 必ず指定します。
第2パラメータ→ 1:読み取り専用、2:書き込み専用、8:ファイルの最後に書き込み
第3パラメータ→ True(規定値):新しいファイルを作成する、False:新しいファイルを作成しない
第4パラメータ→ 0(規定値):ASCII ファイルとして開く、-1:Unicode ファイルとして開く、-2:システムの既定値で開く
ReadLineでテキストファイルを読み込みます。
Closeでファイルをクローズします。




ファイル操作



Excel VBA講座
VBScriptサンプル集

日付操作

文字列操作
     ...すべてのサンプルをみる



関連リンク
 セル、シート、ブックの参照や操作、
 書式設定に関するサンプル集。
Copyright (C) ExcelVBA@Workshop All rights reserved.