- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教怎么把几个Excel表导入到Foxtable已存在的表格中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26238)
-- 发布时间：2012/11/27 20:37:00
-- 请教怎么把几个Excel表导入到Foxtable已存在的表格中
此主题相关图片如下：1.jpg
此主题相关图片如下：未命名1.jpg
此主题相关图片如下：未命名.jpg
请教：比如我在D盘一个文件夹中有三个工作表，怎么把它们导入到FOXTABLE已设好格式的表格中，格式都一样，提示外部表不是预期的表，怎么解决？
For Each fl As String In FileSys.GetFiles("d:\\手术信息")
If fl.EndsWith(".xls")
Dim mg As New Merger
mg.SourcePath = fl
mg.Format = "excel" \'指定格式
mg.SourceTableName = "手术信息查询$" \'指定要合并的表
mg.DataTableName = "手术" \'指定接收数据的表
mg.Merge() \'开始合并
End If
Next
-- 发布时间：2012/11/27 20:52:00
--
发文件上来帮你看下
-- 发布时间：2012/12/1 11:07:00
--
我也需要实现这个功能，也在不解中！
哪位高手帮忙拉一把呀？
-- 发布时间：2012/12/1 11:09:00
--
以下是引用llm507在2012-12-1 11:07:00的发言：
我也需要实现这个功能，也在不解中！
哪位高手帮忙拉一把呀？
做一个例子，上传对应的excel表格，自然有人帮你做的了。
-- 发布时间：2012/12/1 11:11:00
--
论坛上有案例，你搜索一下
-- 发布时间：2012/12/1 13:10:00
--
这样看看:
Dim dlg As New 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 = "手术信息查询$"
mg.DataTableName = "手术"
mg.Merge()
End If
-- 发布时间：2012/12/1 13:11:00
--
做个例子，包括要导入的xls文件。前一阵也有类似的例子的。