Javascript 如何使用带标签的URL[VBA]

我是这个领域的新手

我的问题是，当我被访问时会得到URL，这在web浏览器中为我提供了很好的网页，但当我尝试使用winhttp[vba]或internet explorer方法提取信息时，它失败了

我的网址是

同样，当我尝试从同一个网站下载PDF时，网站中的链接是 但当我使用ADODB.Stream从URL下载pdf时，它失败了

当我在浏览器中访问PDF url时，它会指向另一个链接：

我的问题是，如何使用这种类型的网站来使用html

编辑

---

我认为，由于它包含JavaScript，如果不使用java脚本，就不可能解决我的问题。

使用API直接从URL下载

Option Explicit

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" ( _
    ByVal pCaller As LongPtr, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As LongPtr, _
    ByVal lpfnCB As LongPtr _
    ) As Long
    Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" _
    Alias "DeleteUrlCacheEntryA" ( _
    ByVal lpszUrlName As String _
    ) As Long
#Else
    Private Declare Function URLDownloadToFile Lib "urlmon" _
                             Alias "URLDownloadToFileA" ( _
                             ByVal pCaller As Long, _
                             ByVal szURL As String, _
                             ByVal szFileName As String, _
                             ByVal dwReserved As Long, _
                             ByVal lpfnCB As Long _
                             ) As Long
    Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" _
                             Alias "DeleteUrlCacheEntryA" ( _
                             ByVal lpszUrlName As String _
                             ) As Long
#End If

Public Const BINDF_GETNEWESTVERSION As Long = &H10
Public Const folderName As String = "C:\Users\User\Desktop\litigationInfo.pdf" '<=Change as required

Public Sub downloadPDF()
    Dim ret As Long
    ret = URLDownloadToFile(0, "https://insight.rpxcorp.com/litigation_documents/11809340", folderName, BINDF_GETNEWESTVERSION, 0)
End Sub

选项显式
#如果是VBA7和Win64，则
私有声明PtrSafe函数urldownloadtofilelib“urlmon”_
别名“URLDownloadToFileA”（_
ByVal pCaller作为LongPtr_
ByVal szURL作为字符串_
ByVal文件名为字符串_
ByVal DW保留为LongPtr_
ByVal lpfnCB作为长PTR_
)只要
私有声明PtrSafe函数DeleteUrlCacheEntry库“Wininet.dll”_
别名“DeleteUrlCacheEntryA”（_
ByVal lpszUrlName作为字符串_
)只要
#否则
专用声明函数urldownloadtofilelib“urlmon”_
别名“URLDownloadToFileA”（_
拜瓦尔·普查勒，只要_
ByVal szURL作为字符串_
ByVal文件名为字符串_
拜瓦尔：只要_
ByVal lpfnCB尽可能长_
)只要
私有声明函数DeleteUrlCacheEntry库“Wininet.dll”_
别名“DeleteUrlCacheEntryA”（_
ByVal lpszUrlName作为字符串_
)只要
#如果结束
Public Const BINDF_GETNEWESTVERSION As Long=&H10
Public Const folderName As String=“C:\Users\User\Desktop\collectioninfo.pdf”使用API直接从URL下载

Option Explicit

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" ( _
    ByVal pCaller As LongPtr, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As LongPtr, _
    ByVal lpfnCB As LongPtr _
    ) As Long
    Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" _
    Alias "DeleteUrlCacheEntryA" ( _
    ByVal lpszUrlName As String _
    ) As Long
#Else
    Private Declare Function URLDownloadToFile Lib "urlmon" _
                             Alias "URLDownloadToFileA" ( _
                             ByVal pCaller As Long, _
                             ByVal szURL As String, _
                             ByVal szFileName As String, _
                             ByVal dwReserved As Long, _
                             ByVal lpfnCB As Long _
                             ) As Long
    Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" _
                             Alias "DeleteUrlCacheEntryA" ( _
                             ByVal lpszUrlName As String _
                             ) As Long
#End If

Public Const BINDF_GETNEWESTVERSION As Long = &H10
Public Const folderName As String = "C:\Users\User\Desktop\litigationInfo.pdf" '<=Change as required

Public Sub downloadPDF()
    Dim ret As Long
    ret = URLDownloadToFile(0, "https://insight.rpxcorp.com/litigation_documents/11809340", folderName, BINDF_GETNEWESTVERSION, 0)
End Sub

选项显式
#如果是VBA7和Win64，则
私有声明PtrSafe函数urldownloadtofilelib“urlmon”_
别名“URLDownloadToFileA”（_
ByVal pCaller作为LongPtr_
ByVal szURL作为字符串_
ByVal文件名为字符串_
ByVal DW保留为LongPtr_
ByVal lpfnCB作为长PTR_
)只要
私有声明PtrSafe函数DeleteUrlCacheEntry库“Wininet.dll”_
别名“DeleteUrlCacheEntryA”（_
ByVal lpszUrlName作为字符串_
)只要
#否则
专用声明函数urldownloadtofilelib“urlmon”_
别名“URLDownloadToFileA”（_
拜瓦尔·普查勒，只要_
ByVal szURL作为字符串_
ByVal文件名为字符串_
拜瓦尔：只要_
ByVal lpfnCB尽可能长_
)只要
私有声明函数DeleteUrlCacheEntry库“Wininet.dll”_
别名“DeleteUrlCacheEntryA”（_
ByVal lpszUrlName作为字符串_
)只要
#如果结束
Public Const BINDF_GETNEWESTVERSION As Long=&H10
Public Const folderName As String=“C:\Users\User\Desktop\诉讼信息.pdf”