以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何将excel文件导入到当前已存在的datatable表中？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32423)
--  作者：jxkqf
--  发布时间：2013/5/2 9:57:00
--  如何将excel文件导入到当前已存在的datatable表中？

如何将excel文件导入到当前已存在的datatable表中？

用importer只能导入到新建立的表中。
--  作者：Bin
--  发布时间：2013/5/2 10:00:00
--  
可以使用高速合并http://www.foxtable.com/help/topics/0187.htm
--  作者：jxkqf
--  发布时间：2013/5/3 7:01:00
--  
以下是引用Bin在2013-5-2 10:00:00的发言：
可以使用高速合并http://www.foxtable.com/help/topics/0187.htm

我希望用代码来解决。如何用代码？
--  作者：狐狸爸爸
--  发布时间：2013/5/3 8:10:00
--  

http://www.foxtable.com/help/topics/0685.htm

 
--  作者：xiooye
--  发布时间：2013/6/25 12:31:00
--  合并 导出的文件 数据库错误
 
导出解决乱码问题了

 Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
        dlg.Filter= "Excel文件|*.xls" \'设置筛选器
        If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
            Tables("订单").SaveExcel(dlg.FileName, "订单")  \'保存文件,注意加上"窗口_表名"
        End If


新问题 导入用以上代码导出的文件  出错  ystem.Data.OleDb.OleDbException: 不可识别的数据库格式 \'C:\\Documents and Settings\\Administrator\\桌面\\分.xls\'。
乱码的文件可以正常导入
Dim dlg As New OpenFileDialog
dlg.Filter = "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.SourceTableName = "订单"
        mg.DataTableName = "订单"
        mg.Merge()
    Next
End If
--  作者：Bin
--  发布时间：2013/6/25 14:07:00
--  
上例子看看
--  作者：zaianda
--  发布时间：2013/6/25 15:07:00
--  

Dim dlg As New OpenFileDialog
dlg.Filter = "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.SourceTableName = "订单"
        mg.DataTableName = "订单"
        mg.Merge()
    Next
End If

 

把上面那句改为：dlg.Filter = "Excel文件|*.xls"   吧

你所说的乱码文件是Access文件，用EXCEL打开是乱码的，但是用你的代码却能导入

[此贴子已经被作者于2013-6-25 15:17:00编辑过]