我们在运行QTP批处理时,不需要把QTP的主界面显示出来,以免它阻碍了你的操作视线,那下面介绍二个函数方便你的QTP在运行过程中“收入自如”: '让QTP运行时保持小化 Public Sub QTP_Small() Dim objQTPWin Set objQTPWin = GetObject("" , "QuickTest.Application") objQTPWin.WindowState = "Minimized" Set objQTPWin = Nothing End Sub '恢复QTP窗口 Public Sub QTP_Big() Dim objQTPWin Set objQTPWin = GetObject("" , "QuickTest.Application") objQTPWin.WindowState = "Restored" Set objQTPWin = Nothing End Sub