• 我们在哪一颗星上见过 ,以至如此相互思念 ;我们在哪一颗星上相互思念过,以至如此相互深爱
  • 我们在哪一颗星上分别 ,以至如此相互辉映 ;我们在哪一颗星上入睡 ,以至如此唤醒黎明
  • 认识世界 克服困难 洞悉所有 贴近生活 寻找珍爱 感受彼此

恶意代码技术理论:VBA Debug Print(调试输出)

基于语言 云涯 2年前 (2022-08-31) 1400次浏览

参考链接:https://www.wallstreetmojo.com/vba-debug-print/

Debug 是 VBA 中的一个对象,与 Assert 和 Print 这两种方法一起使用。在 VBA 中,Debug.Print 语句用于编码程序的任何地方,以在 即时窗口(ctrf+G) 中显示变量或消息的值。这些不需要任何确认,并且不会对开发的代码产生任何影响。

示例 #1 – 显示变量的值

Sub Variables()

Dim X As Integer
Dim Y As String
Dim Z As Double
X = 5
Y = "John"
Z = 105.632
Debug.Print X
Debug.Print Y
Debug.Print Z

End Sub

Example #2 – 输出到文件

Sub DebugPrintToFile()

Dim s As String
Dim num As Integer

num = FreeFile()
Open "D:ArticlesExceltest.txt" For Output As #num

s = "Hello, world!"
Debug.Print s ' write to the immediate window
Print #num, s ' write output to file

Close #num

End Sub

Example #3 – 在即时窗口中显示数字的阶乘

Public Sub Fact()

Dim Count As Integer
Dim number As Integer
Dim Fact As Integer
number = 5
Fact = 1
For Count = 1 To number
Fact = Fact * Count
Next Count
Debug.Print Fact

End Sub

Example #4 – 打印活动工作簿的全名

说明如何将当前工作簿名称打印到提示窗口中

Sub Activework()

Dim count As Long
For count = 1 To Workbooks.count
    Debug.Print Workbooks(count).FullName
Next count
Debug.Print count

End Sub

这里的“count”是用来计算活动工作簿数量并显示活动工作簿全名的变量。显示活动工作簿的全名和数量,如图所示。

DP 示例 4-1

要记住的事情

  • Debug.print 的主要问题是即时窗口中没有长字符串的文本换行选项
  • 立即窗口应置于顶部查看用户界面中的输出
  • 无法对立即窗口中显示的长文本进行换行。在这种情况下,需要将结果显示到存储在驱动器中的文件中。

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


云涯历险记 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:恶意代码技术理论:VBA Debug Print(调试输出)
喜欢 (0)