通过QTP打开时VBA Excel无响应

Question

使用QTP脚本执行的操作 - ＆gt;打开电子表格abc.xlsm后，当调用 Search 宏时，会打开搜索窗口，并在我按下＆＃34;输入＆＃34;按钮，Excel进入无响应状态（宏未完全运行），直到服务器本身提供以下内容：

  

408超时请求

通过手动调用电子表格执行相同的上述操作时。它工作得很好。 以下是我用来打开电子表格并执行 Search 宏观运行的代码..

Dim wShell
Set oexcel= CreateObject("Excel.Application")
oexcel.Application.Visible=True
Set obook=oexcel.Workbooks.Open("C:\abc.xlsm")
Set osheet=obook.Worksheets("Search")

oexcel.Application.Run("search") 'This is the Search macro that we are runnig
wait 2

Window("search").Activate
Set wShell = CreateObject( "WScript.Shell" )

wShell.SendKeys ("%")  ' this is the input search criteria 
wShell.SendKeys "{TAB}"
wait 2
wShell.SendKeys "{ENTER}"
wait 5  

执行上面一行代码后，excel进入无响应状态 但是，相同的代码对于同一搜索宏的另一个电子表格xyz.xlsm表示完全正常。它总是手动很好。

Answer 1

UFT不支持XLSX / XLSM。是的，我也碰到了这个。颈部真正的疼痛，但这就是它的方式。只需使用旧式.XLS文件，它就可以正常工作。