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
       
       

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

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.
       
       
9.
       
       
10.
       
       
11.
       
       
12.
       
       
13.
       
       
14.
       
       
15.
       
       
16.
       
       
17.
       
       
18.
       
       
19.
       
       
20.
       
       
21.
       
       
22.
       
       
23.
       
       
24.
       
       
25.
       
       
26.
       
       
27.
       
       
28.