VBAでテキストファイルに出力: 常不軽のブログ（アサブロ）

VBAでテキストファイルに出力

EUCツールを改修する仕事をした時に、実行時のSQL文を確認したい事がありました。
そんな時に変数で作成されたSQL文をテキストファイルに出力して確認していました。

今回ははExcelでのVBAの事例です。
※以下の例は、Bookが保存されているパスに123.txtという名前でSQL文を出力する例です。

テキストファイルに上書き（Output）で出力
Sub Out_txt()
Dim str_SQL As String
str_SQL = "selext * from tb1;"
Open ThisWorkbook.Path & "\123.txt" For Output As #1
Print #1, str_SQL
Close #1
End Sub

テキストファイルに追記（Append）で出力
Sub Out_txt()
Dim str_SQL As String
str_SQL = "selext * from tb1;"
Open ThisWorkbook.Path & "\123.txt" For Append As #1
Print #1, str_SQL
Close #1
End Sub

テキストファイルに出力するロジックは、知っていると意外と便利です。