【ExcelVBA】ファイルを作成するマクロ

'出力するディレクトリ名を作成
Dim outputTextDirName As String
outputTextDirName = ThisWorkbook.Path & "\path\to\text\"

'出力するファイル名を作成
Dim outputTextFileName As String
outputTextFileName = "mail_" & Format(Now, "yyyymmddhhnnss") & ".txt"

Open outputTextDirName & outputMailTextFileName For Output As #1
	'書き込む
	Print #1, "Hello World!

Close #1