使用VBA通过Internet Explorer登录后下载JSON文件遇弹窗求助

我明白你现在卡在IE下载JSON时的系统弹窗上了——这种弹窗确实棘手，因为它属于系统级对话框，不在IE的DOM控制范围内，常规的VBA操作IE的方法根本碰不到它。我给你两个可行的方案，按优先级推荐：

方案1：跳过IE，用HTTP请求直接下载（推荐） #

既然登录已经完成，IE里已经保存了登录Cookie，我们可以直接用WinHttpRequest或者XMLHTTP来请求JSON文件，完全绕开IE的下载流程，自然就不会有弹窗了。这种方法稳定、高效，还能隐藏IE窗口不干扰操作。

修改后的代码示例：

Sub DownloadJSONWithoutPopup()
    ' 登录页面和JSON文件的URL
    Const LoginUrl$ = "https:/xxx.com/2020-01-01"
    Const JsonUrl$ = "https://xxx.com/your-target-json-url" ' 替换成你的JSON文件地址
    
    Dim UserName As String, Password As String, LoginData As Worksheet
    Set LoginData = ThisWorkbook.Worksheets("Sheet1")
    UserName = LoginData.Range("A1")
    Password = LoginData.Range("A2").Value
    
    ' 第一步：完成登录，让系统保存登录Cookie
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .navigate LoginUrl
        ieBusy ie
        .Visible = False ' 隐藏IE窗口，不需要显示
        ' 定位用户名和密码输入框（和你原代码一致）
        Dim oLogin As Object, oPassword As Object
        Set oLogin = .document.getElementsByName("username")(1)
        Set oPassword = .document.getElementsByName("password")(0)
        oLogin.Value = UserName
        oPassword.Value = Password
        .document.forms(0).submit
        ieBusy ie ' 等待登录跳转完成
        .Quit ' 登录完成后关闭IE
    End With
    
    ' 第二步：用WinHttpRequest请求JSON，自动复用系统保存的登录Cookie
    Dim http As Object
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    http.Open "GET", JsonUrl, False
    http.SetAutoLogonPolicy 0 ' 允许自动使用当前用户的Cookie（关键！）
    http.Send
    
    ' 第三步：将JSON内容保存到本地文件
    Dim fso As Object, ts As Object
    Dim SavePath As String
    SavePath = "C:\Your\Custom\Path\output.json" ' 替换成你要保存的路径
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 第三个参数True表示用UTF-8编码保存，避免中文乱码
    Set ts = fso.CreateTextFile(SavePath, True, True)
    ts.Write http.ResponseText
    ts.Close
    
    MsgBox "JSON文件已成功保存到：" & SavePath, vbInformation
End Sub

' 等待IE加载完成的通用函数（和你原代码一致）
Sub ieBusy(ie As Object)
    Do While ie.Busy Or ie.readyState < 4
        DoEvents
    Loop
End Sub

关键说明： #

• SetAutoLogonPolicy 0 这个设置会让WinHttpRequest自动使用当前用户的Cookie容器，也就是刚才IE登录后保存的登录状态，这样请求JSON文件时就会被识别为已登录用户。
• 保存文件时用UTF-8编码，避免JSON里的中文或特殊字符乱码。

方案2：用SendKeys模拟弹窗操作（不推荐，仅作备选） #

如果因为某些原因必须用IE打开JSON，那只能用SendKeys模拟按键来操作弹窗，但这种方法非常不稳定——比如弹窗出现的时间不确定、焦点不在弹窗上的话就会失效。

示例代码（在你原登录代码后添加）：

Sub LoginAndDownloadWithSendKeys()
    ' 先执行你的登录代码...
    Const JsonUrl$ = "https://xxx.com/your-target-json-url"
    
    Dim ie As Object
    ' 这里省略你的登录代码，直接导航到JSON文件
    ie.navigate JsonUrl
    ieBusy ie
    
    ' 等待弹窗出现，需要根据你的网速调整延迟时间
    Application.Wait Now + TimeValue("00:00:03")
    
    ' 模拟按下Alt+S（对应“保存”按钮的快捷键，不同系统可能有差异）
    SendKeys "%s", True
    ' 如果是需要选择保存路径，可能还要继续模拟回车等操作，这里仅作示例
End Sub

注意： #

• 这个方法可靠性很低，比如弹窗延迟超过你设置的等待时间，或者操作过程中用户点击了其他窗口导致焦点丢失，都会失败。

内容的提问来源于stack exchange，提问作者azza452