power query 自动获取相对路径，请高手完善

ybds8 · 发表于 2019-7-7 23:34

本帖最后由 ybds8 于 2019-7-8 09:28 编辑

power query每次加载excel文件在数据源都是固定的路径，如源 = Excel.Workbook(File.Contents("E:\测试自动获得文件路径\计算工龄样表.xlsx"), null, true),如果拷给其他用户使用其他路径就会提示找不到文件，下面基层单位很多都是电脑小白，为了解决这个问题，笔者百度和结合自己工作需要临时找到一个解决办法，发帖讨论下，看各位高手还有没有更完美的解决办法。
具体办法：

一、使用excel函数获得文件路径
新建一个excel文件，在a1输入自动获得路径，在a2输入如下公式 =TRIM(LEFT(SUBSTITUTE(CELL("filename"),"[",REPT(" ",999)),999))

二、将新建excel表的a1 a2加载到查询
数据-新建查询-从表格-选择a1 a2 ，这里记住勾选表包含标题行

三、成功加载a1 a2后，就会出现下图的表1 表1_2

四、下面的操作就是正常的加载excel文件的操作
数据-新建查询-从文件 ....

五、手工改编辑器，
修改前一行代码，具体修改如下

let
spath= Excel.CurrentWorkbook(){[Name="表1"]}[Content]{0}[自动获取文件路径],
源 = Excel.Workbook(File.Contents(spath & "测试文件.xlsx"), null, true),
Sheet1_Sheet = 源{[Item="Sheet1",Kind="Sheet"]}[Data],
提升的标题 = Table.PromoteHeaders(Sheet1_Sheet, [PromoteAllScalars=true]),
更改的类型 = Table.TransformColumnTypes(提升的标题,{{"序号", Int64.Type}, {"姓名", type text}, {"出生日期", type date}})
in
更改的类型

复制代码

测试使用的文件

及川冰丽 · 发表于 2019-7-9 13:41

http://club.excelhome.net/thread-1450802-1-1.html
可以参考一下参数表格，需要建立M函数公式，参数表格的概念可以百度

157947372 · 发表于 2019-7-9 22:48

一般使用excel的cell函数获取当前路径然后再用PQ处理

sayhi95 · 发表于 2019-7-12 10:04

我觉得这个方法已经非常好了

话江 · 发表于 2019-8-20 15:40

不错！本地文件夹处理很有用！

tycm10 · 发表于 2019-9-18 14:46

能不能改一下，从文件夹了，一个文件夹下有多个文件，把多个文件夹里的文件进行合并

ejsz · 发表于 2020-4-17 15:51

能否用窗体中文本框的value作为路径的替代？但是用中间变量好像也不能获取文件。有点头大。

skull322 · 发表于 2020-4-22 15:16

这个思路不错

hulle · 发表于 2020-5-14 15:42

已利用，十分感谢！！！

mafect · 发表于 2020-8-4 08:31

下载试了，不能用

		自动登录	找回密码
密码			免费注册

power query 自动获取相对路径，请高手完善

评分

评分