Foxtable(狐表)用户栏目专家坐堂 → 多个文件合并问题?


  共有4630人关注过本帖树形打印复制链接

主题:多个文件合并问题?

帅哥哟,离线,有人找我吗?
qsmj001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:2 积分:86 威望:0 精华:0 注册:2013/8/4 15:55:00
多个文件合并问题?  发帖心情 Post By:2013/8/6 9:03:00 [显示全部帖子]

以下代码是多个文件合并

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
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

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "到期合同提醒"
    mg.DataTableName = "到期合同提醒"
    mg.Merge()
End If
给的提示是:

.NET Framework 版本:2.0.50727.5472
Foxtable 版本:2012.11.29.1
错误所在事件:
详细错误信息:
System.Data.OleDb.OleDbException: 不可识别的数据库格式 'C:\Users\lenovo\Desktop\到期合同提醒.xls'。
   在 System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr)
   在 System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult)
   在 System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult)
   在 System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult)
   在 System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method)
   在 System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior)
   在 System.Data.OleDb.OleDbCommand.System.Data.IDbCommand.ExecuteReader(CommandBehavior behavior)
   在 System.Data.Common.DbDataAdapter.FillInternal(DataSet dataset, DataTable[] datatables, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
   在 System.Data.Common.DbDataAdapter.Fill(DataTable[] dataTables, Int32 startRecord, Int32 maxRecords, IDbCommand command, CommandBehavior behavior)
   在 System.Data.Common.DbDataAdapter.Fill(DataTable dataTable)
   在 Foxtable.Merger.Merge()

 

 

但是用这段

Dim mg As New Merger
mg.SourcePath = "e:到期合同提醒.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "到期合同提醒$" '指定要合并的表
mg.DataTableName = "到期合同提醒" '指定接收数据的表
mg.Merge() '开始合并

 

就可以合并    

 

 

求解释


 回到顶部