Tag: excel web query

Excel Web Query只拉取一半的表格

我在一小时前遇到了excel中的网页查询选项,请原谅我的天真。 我试图从BLS上的这个页面拉一个表,但是我只获得表的第一部分,而我只需要表(或全表)的第二部分。 我正在试图导入只有下载xlsxbutton的历史数据部分。 它是从“ Series Id: CES2000000001 ”开始并以“ P : preliminary ”结束的表格的一部分。 有一件事我注意到表没有任何id,而excel的名字是“3”

在XLSM中自动运行数据连接

我有一个包含2个Web查询连接的XLSM文件。 当我在“数据”选项卡中进入“连接”时,会看到我拥有的两个连接。 对于每一个我可以编辑一些属性,一个说:“每X分钟更新”。 我已经设置为1分钟,并勾选“激活后台更新”。 但是,这将不会工作,因为networking查询连接无法运行。 最终我需要的是每小时自动运行一次这些连接。 优选地,没有任何用户交互并且没有文档被打开。 这可能吗?

使用login名+密码的VBA Web查询

早上好, 使用已经在这里回答的问题,我仍然无法获得任何代码为我的特定网站工作,不幸的是,因为它是一个内部网站,我不能分享实际的网站。 该网站是一个.jsplogin页面可以导致这个问题? macros在IE中打开login页面,但不会将任何用户数据input到字段中或当前提交。 一旦macros运行,我也会收到错误消息“被调用的对象已经从它的客户端断开”。 微软的互联网控件是活跃的,并且Forms 2.0在参考中也是活跃的 我是相当新的VBA如果我错过任何明显的请让我知道,我已经降低了IE内的安全设置。 编辑我有点确定这是做我的表单ID,但我不明白我哪里出错了? Sub GetTable() Dim ieApp As InternetExplorer Dim ieDoc As Object Dim ieTable As Object Dim clip As DataObject 'create a new instance of ie Set ieApp = New InternetExplorer 'you don't need this, but it's good for debugging ieApp.Visible = True 'assume we're not logged in […]

如何查找从网页粘贴到Excel表的RowCount

即时通讯从下面的代码excel接收一个表格 With ActiveSheet.QueryTables.Add(Connection:= _ "URL;some url") .WebSelectionType = "xlSpecifiedTables" .WebTables = "10" .BackgroundQuery = True .TablesOnlyFromHTML = True .Refresh BackgroundQuery:=False .SaveData = True End With 但我也想从那个表中得到行数。 所以我怎么能达到呢? With ActiveSheet.QueryTables.Add(Connection:= _ "URL;some url") .LineCount 'is it smt like this??????? End With

Web查询VBA刷新

如果我build立了一个Web查询连接,那么更新URL并刷新与VBA的连接的最好方法是什么? 这基本上是我想要做的: Sub RefreshWebQuery() Dim request As String request = 'some url constructed by concatenating cell values 'set command text of my web query as request 'update my query table End Sub 我在网上看到了各种方法,但没有一个是简洁/为我工作。 在此先感谢您的帮助。

保存工作表时Excel Web查询引用中断

当我修改包含Web查询的现有Excel工作簿时,我添加的任何新的Web查询都将正常工作,直到我保存并重新打开该文档。 当我重新打开时,突然所有表返回相同的数据,因为(以某种方式)新查询的query参数已被replace为添加到文档的第一个查询。 也就是说,当我重新打开文档并查看查询参数时,它们都是这样的: 所以我决定探索xlsx工作簿中的XML来看看发生了什么。 原来,我所有的新查询都存在于/xl/queryTables/path中,但它们都引用相同的数据连接(连接被id号引用),而且, /xl/queryTables/ /xl/connections.xml中没有提及新的数据连接我创build。 所以我想我会很聪明,只需在connections.xml创build一些新的节点,然后通过相应的id引用正确的连接。 不幸的是,Excel决定这样做并不好,决定把我的工作手册打破回去。 有谁知道修复,黑客或解决方法? 必须有一些方法来获得新的查询保存在工作簿中。 [我的环境] :Excel Mac版本14.2.4(120824) – 写作时的最新版本; MacOS山狮10.8.2。

VBA如果比较TR \ TD元素

我有一个networking查询表给我这样一个表: [C] [D] [E] [A] Events | IP source | IP destination | [B] MyEvent (1.10) | 192.168.0.1 | 192.168.0.3 | 给我信息的Html代码就是这种types的模式: <table class="wrapper"> <tbody> <tr> <td width="100%" valign="top"> <center> <div id="contenpanel"> <table id="contenttable" class="full_table_of_events"> <tbody> <tr class="content" oncontextmenu="blablabla",( "src=192.168.0.1&dst=192.168.0.2")></tr> <tr></tr> <tr></tr> </tbody> </table> </div> </center> </td> <tr> </tbody> </table> 所以我可以通过简单的c0de .innerText从innerText得到的值是: myEvent (1.10) 192.168.0.1 […]

Excel Web查询的CSS格式

我很难findExcel的这个非常方便的function很好的文档。 请参阅下面的代码和jsFiddle以供参考。 这jsFiddle包含以下代码: CSS body { font-family: calibri, san-serif; font-size:9pt; } td, th { white-space: nowrap; } .date { mso-number-format: "Short Date"; } .text { mso-number-format: "\@"; } .percent { mso-number-format: "Percent"; text-align:right; } .int { mso-number-format: "\#\,\#\#0"; text-align:right;} .account { mso-number-format: "\#\,\#\#0;[Red\]\(\#\,\#\#0\);\-"; text-align:right;} .money { mso-number-format: "Currency"; text-align:right; } HTML <table> <thead> <tr> <th […]

Excel VBA从Web服务导入带有发布数据的CSV

我有一个networking服务,产生大量的CSV数据,我需要导入到Excel 2013。 我find了直接的方法来做到这一点: With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & URL, Destination:=Cells(1, 1)) .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .WebPreFormattedTextToColumns = True .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier […]

Excel VBA QueryTables TEXT与URL连接

我有以下两段代码用于从Web服务中提取大型表格,一个用于URL连接: With ActiveSheet.QueryTables.Add(Connection:="URL;" & URL, Destination:=Cells(1,1)) .PostText = "" .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = False .RefreshStyle = xlOverwriteCells .SavePassword = False .AdjustColumnWidth = False .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = False .WebSingleBlockTextImport = True .WebDisableDateRecognition = False .WebDisableRedirections […]