电源查询：选择查询要应用于的文件的简便方法？

Question

在我们的实验室中，我们有一个系统，许多人使用并生产出结果奇怪的TXT文件。我创建了一个清除文件的电源查询，我想与他人分享（不是很精通计算机），以便他们可以将其应用于将生成的文件。

我该怎么做才能使其他用户尽可能容易地选择他们希望将查询应用于的文件？示例：是否有一种简单的方法来创建按钮打开请求文件位置的对话框？现在，我必须编辑查询源以选择数据，此方法很笨拙，我的某些同事会感到困惑。

let
Source = Table.FromColumns({Lines.FromBinary(File.Contents("X:\foo\foo.txt"), null, null, 1252)}),
#"Removed Top Rows2" = Table.Skip(Source,32),
#"Removed Bottom Rows" = Table.RemoveLastN(#"Removed Top Rows2",16),
#"Other Steps" = ...

谢谢！

Answer 1

您可以直接从范围名称单元格中直接获取filepath，而无需通过函数

let
NameValue= Excel.CurrentWorkbook(){[Name="rangenamehere"]}[Content]{0}[Column1],
Source = Table.FromColumns({Lines.FromBinary(File.Contents(NameValue), null, null, 1252)}),

或想要文件提示的vba路由

1创建范围名称，here aaa

2使用vba要使用文件提示填充它

Sub prompt()
Dim FName As Variant
FName = Application.GetSaveAsFilename("", "Data file (*.xl*),*.xl*", 1)
If FName = False Then
MsgBox "False"
Exit Sub
End If
Range("aaa").Value = FName
End Sub

设置4个钉的命名范围，

let
NameValue= Excel.CurrentWorkbook(){[Name="aaa"]}[Content]{0}[Column1],
Source = Table.FromColumns({Lines.FromBinary(File.Contents(NameValue), null, null, 1252)}),

3请参考您在VBA末尾在代码上

ActiveWorkbook.RefreshAll

以刷新所有查询或特定查询或

ActiveWorkbook.Queries("QueryNameHere").Refresh

Answer 2

您可以将fngetParameter变成一个单线：

= ( getValue as text ) => Excel.CurrentWorkbook(){[Name=”Parameters”]}[Content]{[Parameter=getValue]}?[Value]?

Answer 3

我发现 /a>从2014年起运行良好。您在查询（fngetParameter）上编写一个函数，该功能从表中读取文件位置，然后将其馈送到处理数据的查询。

用户需要做的就是在表格上写文件位置以及名称和刷新。

我将第一个更改为PowerQuery代码上的行，看起来像这样：

    Fileloc = fnGetParameter("File Path"),
    Source = Table.FromColumns({Lines.FromBinary(File.Contents(Fileloc), null, null, 1252)}),

有什么建议以使其变得更好？