使用Excel VBA从web表获取数据时出现的问题
我需要使用凭据连接到一个网站,然后单击一个链接并获取它带来的表格到我的excel工作表 我已经登录了该站点,并使用以下代码更新了表,但这仅在excel“从web”连接处于活动状态时有效。我的意思是,首先我必须更新来自WEB连接的数据刷新凭据,然后运行宏 虽然web表始终处于访问和更新状态,但如果该连接在一个多小时前更新,我无法将其粘贴到excel工作表中 代码如下:使用Excel VBA从web表获取数据时出现的问题,vba,excel,Vba,Excel,我需要使用凭据连接到一个网站,然后单击一个链接并获取它带来的表格到我的excel工作表 我已经登录了该站点,并使用以下代码更新了表,但这仅在excel“从web”连接处于活动状态时有效。我的意思是,首先我必须更新来自WEB连接的数据刷新凭据,然后运行宏 虽然web表始终处于访问和更新状态,但如果该连接在一个多小时前更新,我无法将其粘贴到excel工作表中 代码如下: Sub Descargar_tabla() Dim IE As Object Set IE = CreateObjec
Sub Descargar_tabla()
Dim IE As Object
Set IE = CreateObject("WScript.Shell")
IE.Run ("""C:\Program Files (x86)\Opera\launcher.exe"" ""https://clientes.invertirenbolsa.com.ar/cart.aspx""")
With ActiveSheet.QueryTables.Add(Connection:="URL;https://clientes.invertirenbolsa.com.ar/cart.aspx", Destination:=Range("$L$40"))
' .Name = "cart"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=True
Set IE = Nothing
End With
End Sub
我应该向代码中添加哪些内容来使用浏览器中已存在但尚未过期的网站打开会话?您确定网站会话不会过期吗?事实上,你是从excel查询让我相信你没有自己的网站。因此,我认为更好的问题是,我如何连接到一个站点并传递凭据,而不是下载表。无法复制,因为我无法访问该URL。为什么不尝试通过IE自动化或XHR响应解析获取表?