大家一起来交流一下这段很纠结的代码

anjao

QTP对很多软件菜单名的识别很不好，在帮助文档里搜索，得到一下代码，可以识别菜单名并发送到结果报告里，我想把它识别出来的菜单名（text）导出到Excel表里，纠结我的问题是：里面竟然没有发现一个变量能够最终得到菜单名，大家试着找一下，怎样才能将文件名导出来。
其中“HP 智能文档扫描软件”是我录制的软件的窗体名，可以替换掉。
GetNamesRec "", dialog("text:=HP 智能文档扫描软件").winmenu("menuobjtype:=2")
Function GetNamesRec(itemPath, menuObj)
     ret = 0
     lbl = menuObj.GetItemProperty(itemPath, "Label")
     Reporter.ReportEvent 0, itemPath & lbl, lbl
     ret = menuObj.GetItemProperty(itemPath, "HasSubMenu")
     If ret Then
        cnt = menuObj.GetItemProperty(itemPath, "SubMenuCount")
        Reporter.ReportEvent 0, itemPath & " sub-menu items", cnt
        For n = 1 To cnt
           Path = menuObj.BuildMenuPath(itemPath, n)
           GetNamesRec Path, menuObj
        Next
    End If
End Function

gleamini

GetNamesRec(itemPath, byref menuObj)
这样试试