如何才能在更新一个工作簿的内容是同步更新另外一个工作簿相关内容

tzqshan

原型如下：
1.xls
类别      型号         单价
A               A1                    1
A               A2                    3
B               B2                    1
2.xls（这个工作薄引用了1.xls的数据，通过有效性检测提取的）
类别      型号         单价         数量           合计
A               A1                    1                   10                        10
A               A2                    3                    20                        60
B               B2                    1                     15                        15

问题：当1.xls中的价格更新的时候可以自动更新2中的价格；对1的引用在多个工作薄中都有，需要都同时更新

求大虾赐教

yxy博

是用公式引用的，数据源表有变动，其它引用此数据源表的公式应该会自动计算的麻。

zhaogang1960

请把每个工作表的第3列“单价”设置为“数值”格式
在1工作簿更新后中执行：
Private Sub CommandButton1_Click() '引用Microsoft ActiveX Data Objects 2.8
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim arr, strSql As String, i As Long
    arr = Range("A2:C" & Range("A65536").End(xlUp).Row).Value
    On Error Resume Next
    Set cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    Application.ScreenUpdating = False
    wk = Dir(ThisWorkbook.Path & "\*.xls")
    While wk <> ""
        If wk <> ThisWorkbook.Name Then
            cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\" & wk
            For i = 1 To UBound(arr)
                strSql = "update [Sheet1$a2:c65536] set f3 =" & arr(i, 3) & "  where f1='" & arr(i, 1) & " ' And f2 = '" & arr(i, 2) & " '"
                rs.Open strSql, cnn, adOpenKeyset, adLockOptimistic
            Next
            cnn.Close
         End If
         wk = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

tzqshan

就是数据更新后人工执行一下更新过程
有没有办法在打开第二个工作薄时自动去检查一遍来更新数据

zhaogang1960

我认为这才是最省事的，就是说你编辑第一个工作薄后可以更新其他所有工作簿，而不用把代码复制到其他所有工作簿中，如果嫌麻烦，可以把代码放到Workbook_BeforeClose过程中，让你编辑完成关闭第一个工作薄时让它自己完成

tzqshan

谢谢啊，还有一个问题，那个ado怎么引用进来的？我执行的时候提示对象错误，应该是没有引用ado

tzqshan

自己找到了，好用了，非常感谢，

飞云楼主

跟着学下，谢谢3楼。

tzqshan

还是有个问题，我的工作薄中有多个sheet
怎样才能遍历这些sheet

zhaogang1960

这个问题可以解决，请上传个附件吧