Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用Excel VBA从web表获取数据时出现的问题_Vba_Excel - Fatal编程技术网

使用Excel VBA从web表获取数据时出现的问题

使用Excel VBA从web表获取数据时出现的问题,vba,excel,Vba,Excel,我需要使用凭据连接到一个网站,然后单击一个链接并获取它带来的表格到我的excel工作表 我已经登录了该站点,并使用以下代码更新了表,但这仅在excel“从web”连接处于活动状态时有效。我的意思是,首先我必须更新来自WEB连接的数据刷新凭据,然后运行宏 虽然web表始终处于访问和更新状态,但如果该连接在一个多小时前更新,我无法将其粘贴到excel工作表中 代码如下: Sub Descargar_tabla() Dim IE As Object Set IE = CreateObjec

我需要使用凭据连接到一个网站,然后单击一个链接并获取它带来的表格到我的excel工作表

我已经登录了该站点,并使用以下代码更新了表,但这仅在excel“从web”连接处于活动状态时有效。我的意思是,首先我必须更新来自WEB连接的数据刷新凭据,然后运行宏

虽然web表始终处于访问和更新状态,但如果该连接在一个多小时前更新,我无法将其粘贴到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

我应该向代码中添加哪些内容来使用浏览器中已存在但尚未过期的网站打开会话?

您确定网站会话不会过期吗?事实上,你是从excel查询让我相信你没有自己的网站。因此,我认为更好的问题是,我如何连接到一个站点并传递凭据,而不是下载表。无法复制,因为我无法访问该URL。为什么不尝试通过IE自动化或XHR响应解析获取表?