使用Excel VBA从Web表格获取数据

我需要连接到一个网站，凭证，然后点击一个链接，并把它带到我的Excel表。

我已经login该网站，并与下面的代码，我得到的表更新，但这只适用于Excel“从networking”连接的活着。 我的意思是，首先我必须更新DATA-FROM WEB连接刷新凭据，然后运行macros。

虽然networking表总是到达和更新，但我不能把它粘贴到Excel表，如果连接更新一小时以前。

这里是代码：

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 

我应该添加到代码使用我已经在浏览器中它没有过期的网站公开会议的代码？