[求助]在狐表中如何实现导入EXCEL数据？（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在狐表中如何实现导入EXCEL数据？（已解决）

共有12376人关注过本帖树形打印复制链接主题：[求助]在狐表中如何实现导入EXCEL数据？（已解决）

lh20111001

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

加好友

发短信

等级：婴狐帖子：11 积分：176 威望：0 精华：0 注册：2011/10/4 12:30:00

[求助]在狐表中如何实现导入EXCEL数据？（已解决） 发帖心情

Post By：2011/10/12 0:11:00 [只看该作者]

我是新手，请问在狐表中如何实现导入EXCEL数据？不是导入表。

[此贴子已经被作者于2011-10-14 14:52:49编辑过]

qianhouge

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

加好友

发短信

千年小白狐
等级：婴狐帖子：36 积分：409 威望：0 精华：0 注册：2009/6/1 21:48:00

Post By：2011/10/12 8:01:00 [只看该作者]

你去看完帮助后再来提问这个问题吧！

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/12 8:02:00 [只看该作者]

狐表可以直接生成excel文件，有多种方式。

lh20111001

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

加好友

发短信

等级：婴狐帖子：11 积分：176 威望：0 精华：0 注册：2011/10/4 12:30:00

Post By：2011/10/12 10:32:00 [只看该作者]

以下是引用狐狸爸爸在2011-10-12 8:02:00的发言：
狐表可以直接生成excel文件，有多种方式。

可能没描述明白，我是想原先在EXCEL录入的数据，导入到狐表中的一个表。例如，我用EXCEL录入了学生的基本信息。现在要把这些信息导入到狐表中的一个表。

我用过高速合并功能，合并后，只在狐表里增加行数，数据没有增加？

编写代码后，运行，提示没有权限。

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件

End If

Dim mg As New Merger

mg.SourcePath = "dlg.filename"

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

mg.SourceTableName = "Sheet1" '指定要合并的表

mg.DataTableName = "xsxxb" '指定接收数据的表

mg.Merge() '开始合并

此主题相关图片如下：err.jpg

[此贴子已经被作者于2011-10-12 10:42:53编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/12 10:53:00 [只看该作者]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.filename
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "Sheet1" '指定要合并的表
    mg.DataTableName = "xsxxb" '指定接收数据的表
    mg.Merge() '开始合并
End If

lh20111001

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

加好友

发短信

等级：婴狐帖子：11 积分：176 威望：0 精华：0 注册：2011/10/4 12:30:00

Post By：2011/10/12 11:04:00 [只看该作者]

以下是引用狐狸爸爸在2011-10-12 10:53:00的发言：
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.filename
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "Sheet1" '指定要合并的表
    mg.DataTableName = "xsxxb" '指定接收数据的表
    mg.Merge() '开始合并
End If

用您的代码试了，原来的问题没有了，但是合并后，没有数据呀(狐表里只增加空行，并没有添加数据呀）