Power Query自适应路径变化

我们创建了Power Query查询，其中的路径都是绝对路径，当文件移动或或更改名称后，还需要手动更改路径，能不能做到自动更改呢？

下面由李老师独家推出解决方案，用VBA替换文件夹地址。

有同学可能要吐槽，Power Query是个什么鬼？

Power Query是Power BI的一个组件...

等等，Power BI又是个什么东西？

Power BI是微软推出的一套业务分析工具，BI=Business Intelligence。

微软官网是这么说的。

等等，我刚才明明是在讲Power Query的绝对路径问题，别把我带歪了~

老师，我还有事儿，我先走了~

。。。

好了，我们继续讲课~

我们创建了Power Query的查询，在查询编辑器界面，点击右侧“应用的步骤”中的“源”。

显示出以下界面，里面显示如下公式：

= Excel.Workbook(File.Contents('C:\_My Folder\Excel\20170621 Query.xlsx'), null, true)

如果是查询文件夹中的数据，里面显示的是如下公式：

= Folder.Files('C:\_My Folder\Excel\20170505')

其中20170505是文件夹名称。

通过VBA代码可以看出来，

查询工作表的公式如下：

查询文件夹的公式如下：

我们可以通过两次Split，将地址取出来，然后替换公式文本中的文件夹地址为当前文件夹地址。

代码如下：

这样我们执行这段代码就可以更新文件夹地址了。

我们可以将代码放到按钮中，点击按钮就可以更新；也可以放到Workbook_Open过程中，这样打开文件时，自动执行代码，就可以替换成正确的文件夹地址了。

--End--