查询用间（查询时长）

Dim StartTime As Double
' 记录开始时间
StartTime = Timer
MsgBox '导出成功！耗时 ' & format(Round(Timer - StartTime, 2),'0.00') & ' 秒。', vbInformation