如何对同一文件夹中多个EXCEL中某些单元格做批量修改？（需要做简单条件查找）

Went777

这边大概有100张左右的电子表，命名规则是A1-xxx、A2-XX、A3-XXXX，头三个字符按规则数字排列，后面加不同后缀。
（附件中只加了三张表，实际有100张左右）
100张左右的表内容都是三列数据：姓名、今日、累计
（需要修改的只有B与C列）

重中之重：还有一张数据源表，如下

这张表就是我每日的工作内容，需要根据姓名去每张分表中把“今日”的金额黏贴到对应的B列，然后把“今日”金额加到C列的“累计”中。
------------------------------------------------------------------------------------------------------------------------------------------------------
目前我的做法是把所有分表通过数据连接的方式连到一张主表上，主表上会有所有姓名及对应数据的汇总，然后通过数据源表一张张找到对应的分表，打开后手工修改，这样比较耗时间。不知道有没有高手有批量修改的好方法？希望大家不吝赐教！

wdx223

1. Sub test()
   
2. Dim cnn, mf$, mp$, wkt
   
3. 
   
4. Set cnn = CreateObject("ADODB.Connection")
   
5. cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0';Data Source=" & ThisWorkbook.FullName
   
6. mp = ThisWorkbook.Path
   
7. mf = Dir(mp & "\*.xlsx")
   
8. Do Until mf = ""
   
9.     If mf <> ThisWorkbook.Name Then
   
10.         Application.ScreenUpdating = False
    
11.         Application.DisplayAlerts = False
    
12.         With Workbooks.Open(mp & "" & mf)
    
13.             .Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets("Sheet2").[a1]
    
14.             cnn.Execute ("update [Sheet1$] a,[Sheet2$] b set b.[今日]=a.[今日],b.[累计]=a.[今日]+b.[累计] where a.姓名=b.姓名")
    
15.             ThisWorkbook.Worksheets("Sheet2").UsedRange.Copy .Worksheets(1).[a1]
    
16.             .Close 1
    
17.         End With
    
18.         Application.DisplayAlerts = True
    
19.         Application.ScreenUpdating = True
    
20.     End If
    
21.     mf = Dir
    
22. Loop
    
23. End Sub

复制代码

因新版本ADO限制了update的语句对链接表的更新，只能用这个笨办法了

wdx223

需要在代码表中手动加一个Sheet2页

chaohuahch

既然已经打开了工作簿，是否还有用ADO的必要，毕竟ADO的运行速度，没有数组快。

Went777

wdx223 发表于 2018-8-21 17:47
因新版本ADO限制了update的语句对链接表的更新，只能用这个笨办法了

谢谢这位兄台给的思路，我用你的代码试了下，有2个问题：
1.我实际要修改的列名不在首行，比如在第六列怎么修改？
2.运行你的代码，B列数据加到C列时好像多加了一次。