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

Question

尝试打开带有引用的 PDF(网站)，只能通过在父页面上单击链接打开。

通过使用

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

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

找到这个:

https://learn.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]标题 [in, optional])

尝试过

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

没有结果!有没有人有办法解决吗？ (请使用 VBA!谢谢)

Answer 1

我认为您为 Headers 参数提供了错误的 Referer URL(格式也错误，除了 Referer URL 之外，您还需要包括 Referer:)，试试这个:

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