使用 qtp 访问 Excel

【问题标题】：Accessing Excels using qtp使用 qtp 访问 Excel
【发布时间】：2018-01-28 05:13:43
【问题描述】：

尝试使用 qtp 保存 Excel 时，我收到错误消息“无法访问文件。请尝试以下方法之一”。

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

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

【问题讨论】：

我建议尝试将其作为独立的 vbscript 运行，以确定 QTP 是否与它有关。
我尝试单独使用 vbcript 运行，但仍然出现同样的错误。
它现在工作了 :)
@RoshanJha 如果您已修复它，您可以将其发布为答案 :-)

标签： vbscript qtp

【解决方案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

【讨论】：