Foxtable(狐表)用户栏目专家坐堂 → 对批量导入excel,电子表格的文件名不一样,而且里面工作表的名称也不一样,请问这怎么导入


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

主题:对批量导入excel,电子表格的文件名不一样,而且里面工作表的名称也不一样,请问这怎么导入

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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
对批量导入excel,电子表格的文件名不一样,而且里面工作表的名称也不一样,请问这怎么导入  发帖心情 Post By:2013/8/17 11:02:00 [显示全部帖子]

对批量导入excel,电子表格的文件名不一样,而且里面工作表的名称也不一样,请问这怎么导入?


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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
  发帖心情 Post By:2013/8/17 11:08:00 [显示全部帖子]

文件名和表名称一样

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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
  发帖心情 Post By:2013/8/17 11:11:00 [显示全部帖子]

然后应该怎么操作

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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
  发帖心情 Post By:2013/8/17 11:26:00 [显示全部帖子]

需合并导入同一张表中

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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
  发帖心情 Post By:2013/8/17 11:43:00 [显示全部帖子]

多谢

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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
  发帖心情 Post By:2013/8/17 15:53:00 [显示全部帖子]

出现如下错误提示:
.
NET Framework 版本:2.0.50727.42
Foxtable 版本:2012.11.28.1
错误所在事件:
详细错误信息:
System.Data.OleDb.OleDbException: Microsoft Jet 数据库引擎找不到对象'2009-01收入明细'。请确定对象是否存在,并正确地写出它的名称和路径。
   在 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()

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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
  发帖心情 Post By:2013/8/17 15:57:00 [显示全部帖子]

关键是工作表的名称不一样。

For Each File As String In FileSys.GetFiles("C:\55555")
Dim fileName As String =File.SubString(File.LastIndexOf("\")+1,File.length-File.LastIndexOf("\")-1)
Dim mg As New Merger
    mg.SourcePath = File
    mg.Format = "excel" '指定格式
    mg.SourceTableName = fileName.SubString(0,fileName.IndexOf("."))'指定要合并的表
    mg.DataTableName = "表A" '指定接收数据的表
    mg.Merge() '开始合并
Next


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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
  发帖心情 Post By:2013/8/17 16:23:00 [显示全部帖子]

这代码是错的吗

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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
  发帖心情 Post By:2013/8/17 16:30:00 [显示全部帖子]

执行只表A只是增加几个空行,数据都没有上

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


加好友 发短信
等级:童狐 帖子:226 积分:2815 威望:0 精华:0 注册:2008/9/1 15:41:00
  发帖心情 Post By:2013/8/17 16:37:00 [显示全部帖子]

这是需要导入的表
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:55555.zip

[此贴子已经被作者于2013-8-17 16:41:25编辑过]

 回到顶部
总数 19 1 2 下一页