相关疑难解决方法(0)

什么被认为是最准确的基准VBA代码的方法(在我的情况下,我在Excel中测试代码)？除了下面的2之外,还有其他任何基准代码的技术吗？如果有的话,该方法的优点/缺点是什么？

这是两种流行的方法.

第一:计时器

Sub TimerBenchmark()

Dim benchmark As Double
benchmark = Timer

'Do your code here

MsgBox Timer - benchmark

End Sub

和Tick(我认为这是最准确的):

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub TickBenchmark()

Dim Start As Long
Dim Finish As Long

Start = GetTickCount()

'Do your code here

Finish = GetTickCount()
MsgBox CStr((Finish - Start) / 1000)

End Sub

我想在运行代码之前检查文件是否已经存在.如果它存在而不是退出,否则保持我的代码运行.我写的是以下代码:

Private Sub CommandButton21_Click()

If FileFolderExists("C:\Users\Moez\Desktop\Macro_Project\Test1.pptm") Then
    MsgBox "Modification already done!"
Else
    deleteTextBox
    AllBlackAndDate
    LastModifiedDate
    SaveAllPresentations "C:\Users\Moez\Desktop\Macro_Project\Test1.pptm" ' save here
End If

End Sub