[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有2474人关注过本帖树形打印复制链接主题：[求助]

回忆美好wy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：38 积分：352 威望：0 精华：0 注册：2019/3/27 20:17:00

[求助]

Post By：2019/5/16 21:34:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:一键导入表.xls

导入是提示：

.NET Framework 版本：2.0.50727.9035

Foxtable 版本：2018.10.9.1

错误所在事件：

详细错误信息：

外部表不是预期的格式。

导入代码为：

Dim dlg As New OpenFileDialog

dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"

dlg.MultiSelect = True '允许选择多个文件

If dlg.ShowDialog =DialogResult.OK Then

For Each fl As String In dlg.FileNames

Dim mg As New Merger

mg.SourcePath = fl

mg.Format = "excel" '指定格式

mg.SourceTableName = "sheet0$"

mg.DataTableName = "一键导入表"

mg.Merge()

End If

此主题相关图片如下：批注 2019-05-16 213206.png

回忆美好wy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：38 积分：352 威望：0 精华：0 注册：2019/3/27 20:17:00

Post By：2019/5/21 19:39:00 [显示全部帖子]

修改成一键导入表.xlsx后的代码为

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True '允许选择多个文件

If dlg.ShowDialog =DialogResult.OK Then

For Each fl As String In dlg.FileNames

Dim mg As New Merger

mg.SourcePath = fl

mg.Format = "excel" '指定格式

mg.SourceTableName = "sheet0$"

mg.DataTableName = "一键导入表"

mg.Merge()

End If

提示“sheet0$”不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。如下图所示

此主题相关图片如下：批注 2019-05-21 193751.png

回忆美好wy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：38 积分：352 威望：0 精华：0 注册：2019/3/27 20:17:00

Post By：2019/5/21 20:21:00 [显示全部帖子]

可以了，谢谢

下一主题 >> << 上一主题

主题：[求助]