Option Explicit
Sub witeFile()
Const StrFile = "C:\Users\hoge\Desktop" & "\hoge.txt"
Dim ExcelSheet
Dim fs As Object
Dim a
Dim i As Long
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(StrFile, True)
'Write：書き出し
'Writeline：書き出し＋改行
For i = 1 To 5
a.Write ("This is a test" & vbTab)
Next
a.Writeline
a.Close
End Sub
More than 3 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme