power query数据源问题，如何导入dbf格式的数据库

xing836

wdx223 发表于 2019-9-11 12:48
大概就是这么个意思，自己再酌情修改一下

我试下哈，谢谢了

xing836

wdx223 发表于 2019-9-11 12:48
大概就是这么个意思，自己再酌情修改一下

你好，按照你的提示自己写了下，但是报错，您给看下哪里出问题了，谢谢

Let fx=(pth,nm)=> OleDb.DataSource("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=”&pth&”;extended properties=dBASE IV", [Query="select * from [“&nm&”]"]),

   Custom1=Table.Selectrows(Folder.Files(“D:\”),Each [Extension]=”.dbf”),

   Custom2=List.Trasform(List.Positions(Custom1[Name]),Each fx(Custom[Folder Path]{_},Custom1[Name]{_})),

  Custom3=Table.Combine(Custom2)

In

   Custom3

xing836

wdx223 发表于 2019-9-11 12:48
大概就是这么个意思，自己再酌情修改一下

Let
  fx=(pth,nm)=> OleDb.DataSource("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=”&pth &”;extended properties=dBASE IV", [Query="select * from [“&nm&”]"]),
   Custom1=Table.Selectrows(Folder.Files(“D:\”),Each [Extension]=”.dbf”),
   Custom2=List.Trasform(List.Positions(Custom1[Name]),Each fx(Custom[Folder Path]{_},Custom1[Name]{_})),
  Custom3=Table.Combine(Custom2)
In
   Custom3
您给看下，代码为什么报错，谢谢，照着你的代码写的，也做了替换

q1579398897

1. let
   
2.    fx=(pth,nm) => OleDb.DataSource("Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&pth&";extended properties=dBASE IV",[Query="Select * from ["&nm&"]"]),
   
3.    已添加的自定义1 = Table.SelectRows(Folder.Files("E:\TestDBF"),each [Extension]=".dbf"),
   
4.    已添加的自定义2 = List.Transform(List.Positions(已添加的自定义1[Name]),each fx(已添加的自定义1[Folder Path]{_},已添加的自定义1[Name]{_})),
   
5.    已添加的自定义3 = Table.Combine(已添加的自定义2)
   
6. in
   
7.    已添加的自定义3

复制代码

按wdx223大神的代码测试成功
又学一招
我得回去给您加个分
非常感谢分享代码与知识！

xing836

q1579398897 发表于 2019-9-13 02:31
按wdx223大神的代码测试成功
又学一招
我得回去给您加个分

试了下您的代码，可以运行，未检测到语法错误，但是读不出数据，不知道怎么回事？

敢问您也是统计同仁？

q1579398897

xing836 发表于 2019-9-15 18:55
试了下您的代码，可以运行，未检测到语法错误，但是读不出数据，不知道怎么回事？

敢问您也是统计同仁 ...

如果读不出来
有可能是原DBF表不是真正的dBASE IV格式
用VFP先转换一下原表格式
转换命令如下：

1. use 原表名
   
2. copy to 新表名 type foxplus

复制代码

xing836

q1579398897 发表于 2019-9-16 08:44
如果读不出来
有可能是原DBF表不是真正的dBASE IV格式
用VFP先转换一下原表格式

读取成功了，谢谢