VBScript や VBAで Scripting.FileSystemObject を使う

VBScript またはVBAでテキストファイルに書き込む処理を　Scripting.FileSystemObjectを使用して行うことができます。以下はサンプルコードです。





Sub aaa()

    strFileName = "D:\sample.txt"
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFileSystem.CreateTextFile(strFileName)
    objFile.Write ("test1")
    objFile.Write (vbCrLf)
    objFile.Write ("test2")
    objFile.Write (vbCrLf)
    objFile.Write ("test3")

objFile.Close


End Sub






関連webページ

http://chaos-fractal.blogspot.jp/2013/01/vba-access.html