如何将包含多个工作表的工作簿合并成一个工作簿

a68508122

smartelfs 发表于 2014-10-11 10:37
大神，求帮助。

csv格式的文件可以用同样的方法合并吗？

问题是你的总表最好还是用xls文件吧 csv不太熟悉 试了一下貌似不能保存宏
遍历文件 是可以 ，你的附件是最终结果吗 我看 每个工作簿只有一个sheet了？

smartelfs

a68508122 发表于 2014-10-11 12:01
问题是你的总表最好还是用xls文件吧 csv不太熟悉 试了一下貌似不能保存宏
遍历文件 是可以 ，你的附件是 ...

嗯 是的 附件是最终结果  这个类型的表只有一个sheet。

平台上下载下来的是这种格式，刚问了下说没有xls格式。

由于表比较多转换格式有些繁琐。

大神，在研究一下？或者能不能批量的把csv文件转换成xls文件 然后在合并？

a68508122

smartelfs 发表于 2014-10-11 14:45
嗯 是的 附件是最终结果  这个类型的表只有一个sheet。

平台上下载下来的是这种格式，刚问了下说没有 ...

test05.rar (14.47 KB, 下载次数: 37)

2014-10-11 15:30 上传

点击文件名下载附件

汇总表一定要是 xls的格式 因为要保存宏
双击附件中的"汇总表.xls"文件 试试看吧

smartelfs

a68508122 发表于 2014-10-11 15:31
汇总表一定要是 xls的格式 因为要保存宏
双击附件中的"汇总表.xls"文件 试试看吧

嗯  非常感谢~~  

能不能做一个只罗列汇总结果 不做相加的 汇总表 （也就是不要样表中的总计那一行）

再次感激~~

a68508122

smartelfs 发表于 2014-10-11 16:19
嗯  非常感谢~~  

能不能做一个只罗列汇总结果 不做相加的 汇总表 （也就是不要样表中的总计那一行）
...

test06.rar (14.54 KB, 下载次数: 41)

2014-10-11 16:28 上传

点击文件名下载附件

希望您满意

和以前一样 这次加了一个T=3只显示详细内容
如果要总计就T=1或者T=0，根据需求自己切换

smartelfs

a68508122 发表于 2014-10-11 16:29
希望您满意

和以前一样 这次加了一个T=3只显示详细内容

源表中AH-AJ列有数据

但是，AH-AJ 三列在合并后的表里 不显示啊 大神~~

a68508122

smartelfs 发表于 2014-10-11 16:49
源表中AH-AJ列有数据

但是，AH-AJ 三列在合并后的表里 不显示啊 大神~~

1. Sub test()
   
2.     Dim cFile$, cPath$, now$, Sh As Workbook, i As Integer, ar, ix As Integer, io As Integer
   
3.     Set Sh = ActiveWorkbook
   
4.     Application.ScreenUpdating = False
   
5.     Application.EnableEvents = False
   
6.     t = 3 't=1只显示总计 ，t=0 显示明细和总计，t=3 显示明细
   
7.     cPath = ThisWorkbook.Path & ""
   
8.     cFile = Dir(cPath & "*.csv")
   
9.            Sh.Sheets(1).Range("a3:ak5000").Clear
   
10.        Do While cFile <> ""
    
11.        If cFile <> "汇总表.xls" Then
    
12.         Workbooks.Open cPath & cFile
    
13.         With ActiveWorkbook
    
14.             i = 1
    
15.             a = .Sheets(i).Range("u65536").End(xlUp).Row
    
16.             ar = .Sheets(i).Range("a6:ak" & a)
    
17.             Sh.Sheets(i).Range("a" & Sh.Sheets(i).Range("u65536").End(xlUp).Row + 1).Resize(UBound(ar), 37) = ar
    
18.             Erase ar
    
19.             nn = nn + 1
    
20.             .Close
    
21.         End With
    
22.         End If
    
23.          cFile = Dir
    
24.        Loop
    
25.       
    
26.        ix = 1
    
27.        If t <> 3 Then
    
28.        ReDim ar(1 To 1, 1 To 37)
    
29.          ar(1, 1) = "总计"
    
30.          For jx = 2 To 37
    
31.             With Sheets(ix)
    
32.                 ar(1, jx) = Application.Sum(.Range(.Cells(3, jx), .Cells(.Range("u65536").End(xlUp).Row, jx)))
    
33.             End With
    
34.          Next jx
    
35.        If t = 1 Then Sheets(ix).Rows("3:" & Sheets(ix).Range("u65536").End(xlUp).Row + 2).Delete Shift:=xlUp
    
36.        Sheets(ix).Range("a" & Sheets(ix).Range("u65536").End(xlUp).Row + 2).Resize(1, 37) = ar
    
37.        Erase ar
    
38.        End If
    
39. Application.EnableEvents = True
    
40. Application.ScreenUpdating = True
    
41.     MsgBox "作业完成" & vbCrLf & "共合并了" & nn & "个工作簿"
    
42. End Sub
    
43. 
    
44. 
    

复制代码

替换即可

smartelfs

a68508122 发表于 2014-10-11 17:07
替换即可

大神 烦请在看下test04合并后的表格

合并后的结果中 sheet 外币日均和 外币时点中 最后 境外筹资转贷款  项目的四列（AH-AK）无内容。

再次感激~

a68508122

smartelfs 发表于 2014-10-11 17:49
大神 烦请在看下test04合并后的表格

合并后的结果中 sheet 外币日均和 外币时点中 最后 境外筹资转贷 ...

test04？
给的测试资料 （AH-AK）没有内容？
上传一个附件吧 有点昏了 到底要弄哪个

smartelfs

a68508122 发表于 2014-10-11 18:00
test04？
给的测试资料 （AH-AK）没有内容？
上传一个附件吧 有点昏了 到底要弄哪个

合并前  sheet 外币日均 和  sheet外币时点 两个表中的AH-AK有内容


但是 合并后的结果中 两个表中AH-AK无内容。


见附件~~~~


test04.rar (26.36 KB, 下载次数: 10)

2014-10-11 20:45 上传

点击文件名下载附件