[FAQ CENTER トップ]
[VBScript FAQ トップへ]

VBScript / VBA FAQ


スポンサード リンク

【質問】 ファイルを読みこみ、1行ごとに出力する

スポンサード リンク

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

サンプル========================================
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 トップへ]
[FAQ CENTER トップ]





(ご注意) 本サイト内の内容を使用して発生したいかなる時間的損害、金銭的損害あるいはいかなる損害に対して、いかなる人物も一切の責任を負いません。あくまでも個人の判断で使用してください。
本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。
このページはリンクフリーです。(このページへの直接リンクも可能です。)
雑誌等での紹介は特に連絡は不要です。
Copyright(c) tooljp.com 2007-2014