控制“;是否要打开/保存”;VBA中IE11上的对话窗口按钮

控制“;是否要打开/保存”;VBA中IE11上的对话窗口按钮,vba,winapi,internet-explorer-11,hwnd,Vba,Winapi,Internet Explorer 11,Hwnd,我正在尝试编写一个VBA代码,从内部网下载跨度至少为1年的每日列表。我遇到了一个性质类似的问题,但答案中几乎没有解释。这是相关代码 ' Click download link ie.document.getElementById("ctl00_CPHMain_gvReports_ctl02_LinkButton1").Click ' Find child window handle Dim o As IUIAutomation Dim e As IUIAutomatio

我正在尝试编写一个VBA代码,从内部网下载跨度至少为1年的每日列表。我遇到了一个性质类似的问题,但答案中几乎没有解释。这是相关代码

' Click download link
    ie.document.getElementById("ctl00_CPHMain_gvReports_ctl02_LinkButton1").Click 
' Find child window handle
    Dim o As IUIAutomation
    Dim e As IUIAutomationElement
    Set o = New CUIAutomation
    Dim h As Long
    h = ie.hWnd
    h = FindWindowEx(h, 0, "?____?", vbNullString)
    If h = 0 Then Exit Sub

    Set e = o.ElementFromHandle(ByVal h)
    Dim iCnd As IUIAutomationCondition
    Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "Save")

    Dim Button As IUIAutomationElement
    Set Button = e.FindFirst(TreeScope_Subtree, iCnd)
    Dim InvokePattern As IUIAutomationInvokePattern
    Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId)
    InvokePattern.Invoke
    DoEvents
        Sleep 1000 ' delay 1 second
    ie.Quit
End Sub
根据我有限的知识,我找不到带有“是否要打开/保存”对话框的小窗口的把手。感谢您在这件事上的帮助!另外,是否可以使用这组代码执行“另存为”操作

问候
Leslie

请尝试让我们知道抱歉,我没有进行此类编辑所需的权限,因为我在工作计算机上工作,并且我在这台计算机上的权限有限。请查看这可能也有用。