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

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

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

以下是引用狐狸爸爸在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编辑过]

以下是引用狐狸爸爸在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

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

以下是引用狐狸爸爸在2011-10-12 11:06:00的发言：
可能是这个原因。

什么原因?能解决吗？

问题已解决，谢谢！

主题：[求助]在狐表中如何实现导入EXCEL数据？（已解决）