[ホーム] ＞ [VBScript FAQ 一覧] ＞ [ファイルを読みこみ、1行ごとに出力する]

ファイルを読みこみ、1行ごとに出力する | VBScript / VBA FAQ

Excel VBAにて既存のファイルを１行ごと読み込み、１行ごと出力するサンプルコードです。

サンプル========================================
On Error Resume Next

Dim objFSO
Dim objFSOFileToRead

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFSOFileToRead = objFSO.OpenTextFile("c:\temp\test.txt")

If Err.Number = 0 Then
Do While objFSOFileToRead.AtEndOfStream <> True
WScript.Echo objFSOFileToRead.ReadLine
Loop
objFSOFileToRead.Close
Else
WScript.Echo "ファイルのオープンに失敗しました。" & Err.Description
End If

Set objFSOFileToRead = Nothing
Set objFSO = Nothing

================================================

[ホーム] ＞ [VBScript FAQ 一覧]