2011-04-29 205 views
0

我试图将两本Excel书籍连在一起。它们是彼此的精确副本,但是如果您编辑任何一个,另一个也应该更新。我知道你可以使用链接功能来做到这一点,但这是单向的。我需要知道如何在两个方向上做到这一点。Excel - 比较两个文件?

Book1.xls 
    Sheet1 
     A1: Hello! 
     A2: Goodbye! 

Book2.xls 
    Sheet1 
     A1: Hello! 
     A2: Goodbye! 

现在如果我有第二册和第一册之间的联系,任何在第一册编辑将在第二册改变,反之则不行!

谢谢!

回答

1

一个问题 - 如果文件是准确的副本为什么有2个副本?

一个可能的示例是使用Workbook_SheetChange事件,以便对工作簿的任何更改都更新其他工作簿。但是,当您更改值,而不是格式等

如2簿Book1.xlsm & Book2.xlsm,在Book1.xlsm中的ThisWorkbook对象进入

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
Dim MyObj As Object, strCopyto As String 

strCopyto = "C:\Users\osknows\Desktop\Book2.xlsm" 

Set MyObj = GetObject(strCopyto) 
MyObj.Parent.Windows(MyObj.Name).Visible = True 
Target.Copy Destination:=MyObj.Sheets(Sh.Name).Range(Target.Address) 
MyObj.Close savechanges:=True 

end sub 

做第二册同样这真的只能.xlsm但改变strCopyto = "C:\Users\osknows\Desktop\Book1.xlsm"

这是可以完成的许多方法之一