Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何将一个文件夹中的所有EXCEL合并或导入到一个表中


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

主题：[求助]如何将一个文件夹中的所有EXCEL合并或导入到一个表中
帅哥哟，离线，有人找我吗？
ybmjy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：428 积分：4711 威望：0 精华：3 注册：2009/7/4 13:40:00 		[求助]如何将一个文件夹中的所有EXCEL合并或导入到一个表中  发帖心情 Post By：2016/10/28 14:02:00 [显示全部帖子]

如题，要合并或导入的表结构都相同，怎么写代码。有30个单位，名称都不一样。
[此贴子已经被作者于2016/10/28 14:05:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ybmjy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：428 积分：4711 威望：0 精华：3 注册：2009/7/4 13:40:00 		  发帖心情 Post By：2016/10/28 14:23:00 [显示全部帖子]

顶一下
 回到顶部
帅哥哟，离线，有人找我吗？
ybmjy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：428 积分：4711 威望：0 精华：3 注册：2009/7/4 13:40:00 		  发帖心情 Post By：2016/10/28 14:34:00 [显示全部帖子]

都是第一个工作表，只是文件夹中有30个各单位报上来的，不晓得怎么写代码了
 回到顶部
帅哥哟，离线，有人找我吗？
ybmjy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：428 积分：4711 威望：0 精华：3 注册：2009/7/4 13:40:00 		  发帖心情 Post By：2016/10/28 14:37:00 [显示全部帖子]

30个单位报上来的EXCEL的名字不一样，想的是全部导入到一个工作表
 回到顶部
帅哥哟，离线，有人找我吗？
ybmjy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：428 积分：4711 威望：0 精华：3 注册：2009/7/4 13:40:00 		  发帖心情 Post By：2016/10/28 14:41:00 [显示全部帖子]

一下子蒙起了，不晓得咋个变通了图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
ybmjy
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：428 积分：4711 威望：0 精华：3 注册：2009/7/4 13:40:00 		  发帖心情 Post By：2016/10/28 14:52:00 [显示全部帖子]

那是不是这种写法
For Each File As String In FileSys.GetFiles("C:\")
  Dim mg As New Merger
mg.SourcePath = file
mg.Format = "excel" '指定格式
mg.SourceTableName = "订单" '指定要合并的表
mg.DataTableName = "订单" '指定接收数据的表
mg.Merge() '开始合并
Next
 回到顶部
帅哥哟，离线，有人找我吗？
ybmjy
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：428 积分：4711 威望：0 精华：3 注册：2009/7/4 13:40:00 		  发帖心情 Post By：2016/10/28 14:57: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

找到了，谢谢
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询