时间戳

首页 > 解决方案 > Excel 网页查询

excel - Excel 网页查询

问题描述

我使用网络查询工具在电子表格中导入表格。鉴于我想多次查询该站点，我录制了一个宏以将 Web 查询转换为 VBA 格式，然后在循环中使用它来下载我需要的表。

通过这样做，我注意到 excel 网络查询做了一些奇怪的事情（显然对我来说）。从数据源中，它通过硬编码日期对列标题进行转换。如果标题是静态的，这将不是问题，但鉴于他们会更改，如果我保留代码原样，这将是一个问题。

我想知道是否有一种方法可以在 VBA 中概括由 Web 查询完成的数据转换，以便正确导入数据和日期

您可以在下面找到网络查询的代码

"let" & Chr(13) & "" & Chr(10) & "    Source =
 Web.Page(Web.Contents(""https://fred.stlouisfed.org/release/tables?
rid=53&eid=783269#snid=783270""))," & Chr(13) & "" & Chr(10) & 
"    Data0 = Source{0}[Data]," & Chr(13) & "" & Chr(10) & 
"    #""Changed Type"" = Table.TransformColumnTypes(Data0,{{"""", type text},
 {""Q3 2020"", type number}, {""Q2 2020"", type number}, {""Q3 2019"", type
 number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " 
   #""Changed Type"""

标签： excelvbaexcel-web-query

解决方案

您可以确定当前列名，并自己创建转换列表。

例如：

colNames = Table.ColumnNames(Data0),
colTypes = {type text, type number, type number, type number},

    #"Changed Type" = Table.TransformColumnTypes(Data0,List.Zip({colNames,colTypes}))

推荐阅读