Web.contents电源查询参考单元

时间:2017-08-19 09:46:00

标签: excel-vba powerquery excel-external-data vba excel

请查看以下代码

JAR

对于斜体文本,即超链接,我试图将其链接到单元格。谁能告诉我这是怎么做到的?

我尝试使用Cells标签,但徒劳无功

1 个答案:

答案 0 :(得分:1)

我不确定你在问什么,但如果你说要替换" https://in.finance.yahoo.com/quote/20MICRONS.NS/history?p=20MICRONS.NS"使用来自列的网址并引入该网址的信息,您可以尝试Web.Page(Web.Contents([Custom])),其中[自定义]是包含您要使用的网址的列。这将为" Custom"中列出的每个URL嵌入一个信息表。列,在该URL的相应​​行中。

例如,如果列"自定义"其中有https://in.finance.yahoo.com/quote/20MICRONS.NS/history?p=20MICRONS.NS,如下所示:

enter image description here

...然后使用Web.Page(Web.Contents([Custom]))创建新列将嵌入此表:

enter image description here

...在新专栏中,如下所示:

enter image description here

扩展新列(在本例中为" Custom1")会给你这样的内容:

enter image description here

扩展"数据"专栏会给你这样的东西:

enter image description here

我相信" Column1.1"和#34; Column2"就是你所提供的网址。

enter image description here

我们的评论讨论后面的编辑位于

之下

使用Excel 2016,我在B列中设置了一个带有URL的工作表,就像你说的那样。像这样:

enter image description here

然后我点击A1或B1单元格,然后点击"数据"选项卡和用于从表中创建查询的按钮:

enter image description here

...这给了我这个:

enter image description here

...然后点击"确定",它在Power Query Editor中给我这个:

enter image description here

然后我点击"添加列"选项卡和"自定义列"按钮...

enter image description here

...并填写弹出屏幕,如下所示:

enter image description here

...然后点击"确定" ...这给了我:

enter image description here

然后我点击" Custom"右上角的按钮。 column ... enter image description here ...扩展" Custom"中的表格。专栏并得到这个:

enter image description here

然后我点击"数据"右上角的按钮。 column ... enter image description here ...扩展"数据"中的表格专栏并得到这个:

enter image description here

这是我的查询代码:

let
Source = Excel.CurrentWorkbook(){[Name="Table5"]}[Content],
#"Added Custom" = Table.AddColumn(Source, "Custom", each Web.Page(Web.Contents([Column2]))),
#"Expanded Custom" = Table.ExpandTableColumn(#"Added Custom", "Custom", {"Caption", "Source", "ClassName", "Id", "Data"}, {"Caption", "Source", "ClassName", "Id", "Data"}),
#"Expanded Data" = Table.ExpandTableColumn(#"Expanded Custom", "Data", {"Column1", "Column2"}, {"Column1.1", "Column2.1"})
in
#"Expanded Data"