同格式的多个工作薄文件汇总到一个文件中

hacker85

型如:
工作薄A.xls
       姓名     年龄    职位     工资     婚否

    张三     

    李四     

    王五     25          组员     3000        否
    .....
工作薄B.xls
       姓名     年龄    职位     工资     婚否

    张三     26          组员     3000        否

    李四     

    王五     
    .....

如同A、B这样的工作薄有很多，其个数是由“姓名”这列里的人名决定的，当然这个和本问题无关，呵呵。
不过工作中却需要给每个人发一个XLS文件，内容的格式就是上面那样，只是每个人需要按照相应的要求填表，只填自己的。这个时候就有了一个问题：当把这些XLS文件都收回来时，得一个个的打开，将每个人的信息复制下来，然后汇总到一个XLS文件中去。麻烦吧，是的，麻烦。于是我写了程序，虽然我写了程序实现了点一下命令按钮就可以把选定的文件复制到这个汇总的XLS文件中来，但是只能是选哪个文件就把哪个文件中的内容复制过来，再选另一个的话，就会把刚刚复制的内容全部覆盖了，而不是所要的这个效果（或者说该如何才能实现这个效果并且是一次可以选择多个文件一起导入）：
    汇总工作薄C.xls：
    姓名     年龄    职位     工资     婚否

    张三     26          组员     3000       否

    李四     

    王五     25          组员     3000        否
    ......


我的部分代码：
f = TextBox1.Value '文本框通过打开窗口获取的文件全名
Set wb = Workbooks.Open(f) '打开要数据源工作簿
    With ThisWorkbook.Sheets("Sheet1") '本工作簿表1
        .Cells.Clear '清除所有数据
        wb.Sheets(1).UsedRange.Copy .Cells(1, 1) '数据源工作簿第一表已经使用区域数据复制到本工作簿表1
。。。。。。。

[ 本帖最后由 hacker85 于 2009-11-24 08:10 编辑 ]

hacker85

我这里用得是文本框，其实应该用列表框，可是写好代码后，虽然可以一并选择多个文件了，但是导入后还是只显示一个人的内容

lb_bn

建议楼主上传一附件，以方便他人调试代码。

蓝桥玄霜

你用了.Cells.Clear '清除所有数据
就把上次复制的数据都删除了。

hacker85

这句rem后也是一样的效果.

boatwxp

这种多工作薄汇到一个工作表，论谈中已有类似例子。楼主看一下就知道！

hacker85

我也看到有这个，但是问题和我的有不同的地方，而且这不是简单的改变几行代码的问题。如果你有兴趣可以关注这个话题，相信肯定会有另样的收获。谢谢

hacker85

是lb_bn吧,呵.

我把代码传上来了   在一楼

hacker85

看来这个不太好弄哟

hacker85

还是没有答案，估计是难住了