多工作簿汇总，汇总数据区域如何累加，求大神指点

tudarong

将工作簿“费用统计-1.xlsx”和工作簿“费用统计-2.xlsx”中的C5:Q17，C5:Q17区域的数据汇总后填入到工作簿“费用统计.xlsm”C5:Q17，C5:Q17区域中。
工作簿“费用统计.xlsm”C5:Q17，C5:Q17区域中数据为各分表的数据相加的总和。

我使用Do循环+GetObject函数来读取分表数据，但各分表数据需要和汇总表中的数据区域累加，
这部分代码不会写，求大神指点。
求助.7z (25.08 KB, 下载次数: 84)

2018-7-27 10:49 上传

点击文件名下载附件

xiangbaoan

'中间加这段            
wb.Sheets(1).[c5:q17].Copy
ThisWorkbook.Sheets(1).[c5].PasteSpecial -4163, 2 '这是选择性粘贴 运算 加

LMY123

ADO加字典，数组汇总同夹多薄指定表

tudarong

LMY123 发表于 2018-7-27 11:39
ADO加字典，数组汇总同夹多薄指定表

ADO没有学过，字典还可以看懂，可以帮忙写一段吗？

tudarong

xiangbaoan 发表于 2018-7-27 11:23
'中间加这段            
wb.Sheets(1).[c5:q17].Copy
ThisWorkbook.Sheets(1).[c5].PasteSpecial -4163, ...

这个应该是最快捷的方法了，
选择性粘贴：复制的数据与目标单元格中的值相加

1. Sub 汇总()
   
2.     Dim wb As Workbook
   
3.     Dim mypath, f As String
   
4.     Application.DisplayAlerts = False
   
5.     Application.ScreenUpdating = False
   
6.     [C5:Q17] = ""
   
7.     [C22:Q27] = ""
   
8.     mypath = ThisWorkbook.Path & ""
   
9.     f = Dir(mypath & "*.xlsx")
   
10.     Do While f <> ""
    
11.         If f <> ThisWorkbook.Name Then
    
12.             Set wb = GetObject(mypath & f)
    
13.             wb.Sheets(1).Columns("C:Q").Copy
    
14.             ThisWorkbook.Sheets(1).Columns("C:Q").PasteSpecial -4163, 2   '复制的数据与目标单元格中的值相加。
    
15.             Windows(f).Visible = True
    
16.             wb.Close False
    
17.         End If
    
18.         f = Dir
    
19.     Loop
    
20.     [A1].Select
    
21.     Application.ScreenUpdating = True
    
22.     Application.DisplayAlerts = True
    
23. End Sub

复制代码

tudarong

朱荣兴 发表于 2018-7-27 11:54
参考，把两个区域作为一个数组来处理》》》》》》》》》》》》》》》》》》》》
Sub 汇总()
    Applicat ...

感谢版主的帮助
调试过程中，在下面这句代码时出现错误。
提示：类型不匹配
If m <> "" And n <> "" And m <> 21 Then

jiminyanyan

tudarong 发表于 2018-7-27 22:17
感谢版主的帮助
调试过程中，在下面这句代码时出现错误。
提示：类型不匹配

我试了，代码可以运行的。。。

tudarong

jiminyanyan 发表于 2018-7-27 22:31
我试了，代码可以运行的。。。

我这里还是出现这样的调试错误