如何使用 VBA 在浏览器中打开 URL？

Question

尝试使用引用打开 PDF（-网站），该引用只能通过在父页面上单击链接打开。

通过使用

 CreateObject(WinHttp.WinHttpRequest.5.1) 
.setRequestHeader "referer", "https://...“ 

访问有效，但我需要在浏览器中打开页面才能查看 pdf。

发现这个：

https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/aa752094(v=vs.85)

语法：object.Navigate2(URL, Flags, TargetFrameName, PostData, Headers)

( PostData [in, optional] Headers [in, optional] )

并尝试

 Dim IE As InternetExplorer  
 Set IE = New InternetExplorer 
    
   With IE
    .Navigate2
    https://main...,
    "https://referer..."

没有结果！有没有人有办法解决吗？（请只使用 VBA！谢谢）

Answer 1

我相信您为Referer:Headers 参数提供了错误的 Referer URL（并且格式也错误，除了 Referer URL 之外，您还需要包含），试试这个：

Private Sub Test()
    Dim oIE As InternetExplorer
    Set oIE = New InternetExplorer
        
    With oIE
        .Visible = True
        .navigate "https://www.zvg-portal.de/index.php?button=showAnhang&land_abk=ni&file_id=16396&zvg_id=6467", _
                    headers:="Referer: https://www.zvg-portal.de/index.php?button=showZvg&zvg_id=6467&land_abk=sh"
    End With
    oIE.Quit
    Set oIE = Nothing
End Sub