vba - 即時ウィンドウの内容をテキスト ファイルに書き込む

Question

ドキュメントを調べて、スタイルで解析しようとするマクロを書いています。現在、指定されたスタイルのすべてが直接のウィンドウにコピーされます。マクロをさらに自動化して、テキストを即時ウィンドウから txt ファイルに移動する方法はありますか? そうしないと、マクロを使用している人は、VBA を開かない限りテキストを見ることができませんよね?

Answer 1

これが私の提案です。即時ウィンドウとファイルに同時に書き込みます。以下に例を示します。

情報を最初にイミディエイト ウィンドウで遷移させてから、そこからファイルに書き込むのはなぜですか? それはひねくれて無駄に難しいように聞こえます！

Dim s As String
Dim n As Integer

n = FreeFile()
Open "C:\test.txt" For Output As #n

s = "Hello, world!"
Debug.Print s ' write to immediate
Print #n, s ' write to file

s = "Long time no see."
Debug.Print s
Write #n, s ' other way of writing to file

Close #n


Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject
Dim txs As Scripting.TextStream
Set txs = FSO.CreateTextFile("C:\test2.txt")
s = "I like chickpeas."
Debug.Print s ' still writing to immediate
txs.WriteLine s ' third way of writing to file
txs.Close
Set txs = Nothing
Set FSO = Nothing

このコードの最後のビットでは、参照を設定する必要があることに注意してください: [ツール] > [参照] > [Microsoft Scripting Runtime] にチェックマークを付けます。