以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Importer不兼容Office2016?无法导入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125208)

--  作者:Exon_Liang
--  发布时间:2018/9/22 10:58:00
--  Importer不兼容Office2016?无法导入
在其他版本的Office下正常,Office2016下都不行,是否不兼容?有没有其他代替办法呢?

Dim ip as New Importer
ip
.SourcePath = "D:\\Test\\Test.xlsx" \'指定数据文件
ip
.SourceTableName = "Test" \'指定要导入的表
ip
.NewTableName ="Test" \'导入后的表名
ip.Format = "Excel"
\'指定导入格式

ip
.Import()


图片点击可在新窗口打开查看此主题相关图片如下:0918.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2018/9/22 11:02:00
--  
又是没有认真看帮助的结果:http://www.foxtable.com/webhelp/scr/0684.htm

Format
指定导入格式,包括Access、Access2007、Excel、Excel2007、dBASE、Delimited、Fixed等格式
其中Delimited为符号分割的文本文件,Fixed为固定列宽的文本文件。
默认为Access。
导入文本文件的时候,最好配合有schema.ini文件,以便于指定列的类型和宽度。

示列三

导入Excel文件:

Dim ip as New Importer
ip
.SourcePath = "c:\\Data\\销售管理.xlsx" \'指定数据文件
ip
.SourceTableName = "订单" \'指定要导入的表
ip
.NewTableName ="订单" \'导入后的表名
ip.Format = "Excel2007" 
\'指定导入格式

ip
.Import()


一些Excel文件,可能需要在表名后面加上“$”,才能正常导入,例如:

Dim ip as New Importer
ip
.SourcePath = "c:\\Data\\销售管理.xlsx" \'指定数据文件
ip
.SourceTableName = "订单$\'指定要导入的表
ip
.NewTableName ="订单" \'导入后的表名
ip.Format = "Excel2007
\'指定导入格式

ip
.Import()


--  作者:Exon_Liang
--  发布时间:2018/9/22 11:06:00
--  
改成以下也是一样,两台电脑,一台Office2007都能正常导入,另一台Office2016总无法导入:

修改一:
Dim ip as New Importer
ip
.SourcePath = "D:\\Test\\Test.xlsx" \'指定数据文件
ip
.SourceTableName = "Test$" \'指定要导入的表
ip
.NewTableName ="Test" \'导入后的表名
ip.Format = "Excel2007" 
\'指定导入格式

ip
.Import()

修改二:
Dim ip as New Importer
ip
.SourcePath = "D:\\Test\\Test.xlsx" \'指定数据文件
ip
.SourceTableName = "Test$" \'指定要导入的表
ip
.NewTableName ="Test" \'导入后的表名
ip.Format = "Excel" 
\'指定导入格式

ip
.Import()

--  作者:有点蓝
--  发布时间:2018/9/22 11:24:00
--  

下载安装下面的数据访问组件:

http://www.foxtable.com/download/AccessDatabaseEngine.exe


--  作者:Exon_Liang
--  发布时间:2018/9/22 11:31:00
--  
安装后,Office2016也能正常导入了。谢谢!