イミディエイトウィンドウの内容をテキストファイルに書き込む

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の[ツール]> [参照]>チェックマークを参照する必要があります。

Answer 2

このコードを直接ウィンドウに置き、Enterキーを押してC＃のJSONテキストに書き込む。

System.IO.File.WriteAllText(@"C:\Users\m1028200\Desktop\Json2.txt", 
JsonConvert.SerializeObject(resultsAll));