0

我正在尝试创建一个工作簿，其中包含 3 个工作表，其中包含来自 3 个网页的数据源。

在此处输入图像描述 在此处输入图像描述

当工作表加载时，这 3 个中只有一个（中间）加载到工作表中，另外 2 个必须手动加载（选择目标工作表，右键单击“查询”，然后单击“加载到...”）。

在此处输入图像描述 在此处输入图像描述

有没有办法创建将强制将数据加载到特定工作表中的宏？

这是我尝试过的，但只有一张纸加载：

Sub ReadPafData() 

' clear existing data in 3 sheets
 ThisWorkbook.Sheets("PStarted").Range("A1:E9999").Clear
 ThisWorkbook.Sheets("PExceptions").Range("A1:E9999").Clear
 ThisWorkbook.Sheets("PCompleted").Range("A1:E9999").Clear

' Update all queries
 ThisWorkbook.RefreshAll

End Sub

连接（由 excel 创建）如下所示：

let
Source = Web.Page(Web.Contents("http://address_of_the_server/page_containing_data_table.html#")),
Data0 = Source{0}[Data],
#"Changed Type" = Table.TransformColumnTypes(Data0,{{"LINE NUMBER", Int64.Type}, {"SERVER", type text}, {"START", type text}, {"EXCEPTION TASK", type text}, {"RELEASE", type text}, {"END Export", type text}})
in
#"Changed Type"

起初我认为与 Source 和 Data0 变量有冲突，使它们唯一没有区别。

如何像手动加载步骤一样，将来自单个查询的数据强制到子程序中的特定工作表？

4

0 回答 0