VBA输出日志到工作簿demo

'日志输出定义

'--------------------------------

shuchulog = 1 '0不输出日志，1输出日志

logh = 0 '日志输出行初始值

logl = "A" '日志输出列

Dim logsheet As Worksheet

Set logsheet = ThisWorkbook.Worksheets("shuchulogs") '定义日志输出工作表名


'日志输出点

'--------------------------------

If shuchulog = 1 And logh < 65500 Then

logh = logh + 1

logsheet.Range(logl & logh) = "日志输出:是否输出日志：" & shuchulog & " logh值" & logh

End If

'--------------------------------