Foxtable(狐表)用户栏目专家坐堂 → 要合并的表名称不固定但有规律,应该怎么合?


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

主题:要合并的表名称不固定但有规律,应该怎么合?

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


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
要合并的表名称不固定但有规律,应该怎么合?  发帖心情 Post By:2014/9/15 12:18:00 [只看该作者]

Dim  dlg As New  OpenFileDialog
dlg.Filter=  "Excel 97-2003 工作簿(*.xls)|*.xls|Excel 工作簿(*.xlsx)|*.xlsx"
If dlg.ShowDialog =  DialogResult.Ok Then
    Dim mg As New Merger
    mg.SourcePath =   dlg.FileName
    mg.Format =  "excel"
    mg.SourceTableName =  "8月工资表$"or"9月工资表"or"10月工资表"(可以这样写吗?如果不对应该怎么写?请老师指点)
    mg.DataTableName =  "工资表"   '指定接收数据的表
    mg.Merge()  '开始合并
End If
MessageBox.Show("导入完成" )

 回到顶部
帅哥哟,离线,有人找我吗?
jspta
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1731 积分:11255 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2014/9/15 12:42:00 [只看该作者]

以下是引用xiaoyongxg2在2014-9-15 12:18:00的发言:
Dim  dlg As New  OpenFileDialog
dlg.Filter=  "Excel 97-2003 工作簿(*.xls)|*.xls|Excel 工作簿(*.xlsx)|*.xlsx"
If dlg.ShowDialog =  DialogResult.Ok Then
dim arr() as string = {"8月工资表$","9月工资表","10月工资表")
for each ar as string in arr
    Dim mg As New Merger
    mg.SourcePath =   dlg.FileName
    mg.Format =  "excel"
    mg.SourceTableName =  ar
    mg.DataTableName =  "工资表"   '指定接收数据的表
    mg.Merge()  '开始合并
next
End If
MessageBox.Show("导入完成" )


 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/15 13:15:00 [只看该作者]

.NET Framework 版本:2.0.50727.8009
Foxtable 版本:2012.11.29.1
错误所在事件:
详细错误信息:
System.Data.OleDb.OleDbException: Microsoft Office Access 数据库引擎找不到对象“6月工资表”。请确定该对象存在,并正确拼写其名称和路径名。
   在 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()

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/15 13:21:00 [只看该作者]

这样不行啊,他会挨个出错,直到对的一个才导入。

 回到顶部
帅哥哟,离线,有人找我吗?
jspta
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1731 积分:11255 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2014/9/15 13:39:00 [只看该作者]

你需要判断表名的正确性啊,我只是给你个参考的方法

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/15 14:07:00 [只看该作者]

同一个问题不要反复提问

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/15 14:16:00 [只看该作者]

Dim  dlg As New  OpenFileDialog
dlg.Filter=  "Excel 97-2003 工作簿(*.xls)|*.xls|Excel 工作簿(*.xlsx)|*.xlsx"
If dlg.ShowDialog =  DialogResult.Ok Then
    Dim Book As New XLS.Book(dlg.FileName)
    For Each sheet As XLS.Sheet In Book.Sheets
        Dim mg As New Merger
        mg.SourcePath = dlg.FileName
        mg.Format =  "excel"
        mg.SourceTableName = sheet.Name.Replace("$", "") & "$"
        mg.DataTableName =  "工资表"   '指定接收数据的表
        mg.Merge()  '开始合并
    Next
End If
MessageBox.Show("导入完成" )

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/15 15:13:00 [只看该作者]

谢谢甜老师

 回到顶部