同一格式表格之间的数值替换

lylimi

我一工作簿中N多表（除了表名不同，格式都一样），不小心被美女把所有表的D2单元格的数值，全部替换成2（无语了），导致所有表的数据全错，她竟然还保存了（彻底完了），于是我各种恢复加找回，最终无能为力，最后从文件堆里找到一份2月前的备份，于是就想能否根据以前的数据用代码替换现在的数据，挽回一部分损失，我截取了一部分文件压缩，原始数据为销售表1， 销售表1.zip (41.65 KB, 下载次数: 4)

2014-12-19 23:03 上传

点击文件名下载附件

，被美女不知如何改成2的，我就命名销售表2吧 销售表2.zip (44.25 KB, 下载次数: 4)

2014-12-19 23:08 上传

点击文件名下载附件

，怎样才能把表2，D2单元格的数值根据表名替换成表1，D2单元格的数值。恳请大神出手，谢谢！

zhaogang1960

请参考：

1. Sub 宏1() '在销售表1中执行
   
2.     Dim cnn As Object, SQL$, sh As Worksheet
   
3.     On Error Resume Next '忽略错误，销售表1工作簿中的工作表名在销售表2中找不到时会出错
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=No';Data Source=" & ThisWorkbook.Path & "\销售表2.xlsx"
   
6.     For Each sh In Sheets
   
7.         SQL = "update [" & sh.Name & "$d2:d2] set f1=" & sh.[d2]
   
8.         cnn.Execute SQL
   
9.     Next
   
10.     MsgBox "ok"
    
11.     cnn.Close
    
12.     Set cnn = Nothing
    
13. End Sub
    

复制代码

zhaogang1960

前三个工作表d2本来是2，现改为111以测试效果，如果在销售表2中没有对应的工作表，则不会更新
请测试附件
新建文件夹.rar (95.07 KB, 下载次数: 6)

2014-12-20 00:46 上传

点击文件名下载附件

lylimi

谢谢！正式我需要的。