qtp plus 实例 分析

在 qtp plus中有这么一段代码，

Function SaveWorkbook(ExcelApp, workbookIdentifier, path) 'As String

  Dim workbook 'As Excel.workbook

  On Error Resume Next

  Set workbook = ExcelApp.Workbooks(workbookIdentifier)

  On Error GoTo 0

  If Not workbook Is Nothing Then

  If path = "" Or path = workbook.FullName Or path = workbook.Name Then

  workbook.Save
。

但在运行时workbook = ExcelApp.Workbooks(workbookIdentifier)会提示找不到对象。通过断点调试，发现workbook是空的。

找了一天都没找到原因，后来无意发现当record and run setting里，web和app都选择 record and run on  any******后运行就通过。

具体原因未知。