- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]在狐表中如何实现导入EXCEL数据？（已解决） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13431)
-- 发布时间：2011/10/12 0:11:00
-- [求助]在狐表中如何实现导入EXCEL数据？（已解决）
我是新手，请问在狐表中如何实现导入EXCEL数据？不是导入表。
[此贴子已经被作者于2011-10-14 14:52:49编辑过]
-- 发布时间：2011/10/12 8:01:00
--
你去看完帮助后再来提问这个问题吧！
-- 发布时间：2011/10/12 8:02:00
--
狐表可以直接生成excel文件，有多种方式。
-- 发布时间：2011/10/12 10:32:00
--
以下是引用狐狸爸爸在2011-10-12 8:02:00的发言：
狐表可以直接生成excel文件，有多种方式。
狐表可以直接生成excel文件，有多种方式。
可能没描述明白，我是想原先在EXCEL录入的数据，导入到狐表中的一个表。例如，我用EXCEL录入了学生的基本信息。现在要把这些信息导入到狐表中的一个表。
我用过高速合并功能，合并后，只在狐表里增加行数，数据没有增加？
编写代码后，运行，提示没有权限。
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
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: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
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
--
可能是这个原因。
-- 发布时间：2011/10/12 11:11:00
--
以下是引用狐狸爸爸在2011-10-12 11:06:00的发言：
可能是这个原因。
可能是这个原因。
什么原因?能解决吗？
-- 发布时间：2011/10/12 11:26:00
--
上传狐表及ＥＸＣＥＬ表看看吧
-- 发布时间：2011/10/12 11:28:00
--
http://www.foxtable.com/help/topics/2280.htm