vba 输出到日志文件

---

vba 输出到日志文件

• VBE 环境，立即窗口输出太多时，开始的输出可能被覆盖了，影响调试，所以输出到文件，可以详细输出

' 全局变量，记录日志文件路径
Public LogFilePath As String' 初始化日志文件路径（在 Workbook_Open 事件中调用，或直接设置）
Sub InitLogFile()' 默认保存到桌面，文件名包含日期时间LogFilePath = Environ("USERPROFILE") & "\Desktop\VBA_Log_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".log"
End Sub' 主日志函数：支持逗号分隔多个参数，像 Debug.Print 一样使用
Public Sub log_print(outputToConsole As Boolean, ParamArray args() As Variant)Dim i As LongDim outputText As StringDim fileNumber As Integer' 构建输出文本（模仿 Debug.Print 的行为）For i = LBound(args) To UBound(args)outputText = outputText & args(i)If i < UBound(args) ThenoutputText = outputText & " " ' 用空格分隔参数，类似 Debug.PrintEnd IfNext i' 1. 输出到立即窗口（保持原有 Debug.Print 行为）If outputToConsole ThenDebug.Print outputTextEnd If' 2. 输出到文件（追加模式）If LogFilePath = "" Then' 如果未初始化，使用默认路径 默认在桌面LogFilePath = Environ("USERPROFILE") & "\Desktop\VBA_Log_" & Format(Now, "yyyy-mm-dd_hh-mm-ss") & ".log"End IffileNumber = FreeFileOpen LogFilePath For Append As #fileNumberPrint #fileNumber, Now() & " | " & outputText ' 添加时间戳Close #fileNumber
End Sub