如何使用VBA在浏览器中打开URL?
尝试使用引用打开 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!谢谢)
回答
我相信您为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
- This is a very good solution so please consider accepting. It is not required and you can select whichever answer you like and wait for future answers. As a new user take a moment to read: https://stackoverflow.com/help/someone-answers