控制“;是否要打开/保存”;VBA中IE11上的对话窗口按钮
我正在尝试编写一个VBA代码,从内部网下载跨度至少为1年的每日列表。我遇到了一个性质类似的问题,但答案中几乎没有解释。这是相关代码控制“;是否要打开/保存”;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
' 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请尝试让我们知道抱歉,我没有进行此类编辑所需的权限,因为我在工作计算机上工作,并且我在这台计算机上的权限有限。请查看这可能也有用。