使用qtp访问Excel

Question

尝试使用qtp保存Excel时，我收到错误＆＃34;文件无法访问。请尝试以下其中一项＆＃34;。

一切都是正确的，但我仍然得到错误。这是我的代码：

Dim objExcel
set objExcel = CreateObject("Excel.Application") 
objExcel.visible = true  objExcel.Workbooks.Add 
objExcel.ActiveWorkbook.saveAs "‪D:\UFT Practice Scripts\UFT.xlsx"
objExcel = nothing

Answer 1

只需添加 objExcel.DisplayAlerts = False 行即可。

Dim objExcel
set objExcel = CreateObject("Excel.Application")
objExcel.visible = true
objExcel.DisplayAlerts = False
objExcel.Workbooks.Add
objExcel.ActiveWorkbook.SaveAs "D:\uft.xlsx"
objExcel = nothing