Excel - 比较两个文档？答案

【问题标题】：Excel - compare two documents?Excel - 比较两个文档？
【发布时间】：2011-04-29 08:52:10
【问题描述】：

我正在尝试将两本 Excel 书籍链接在一起。它们是彼此的精确副本，但如果您编辑其中一个，另一个也应该得到更新。我知道您可以使用链接功能来做到这一点，但这是单向的。我需要知道如何在两个方向上做到这一点。

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

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

现在如果我在 Book2 和 Book1 之间有链接，在 Book1 中编辑的任何内容都会在 Book2 中更改，但反之则不然！

谢谢！！

【问题讨论】：

标签： excel excel-2007 hyperlink

【解决方案1】：

一个问题 - 如果文件是精确的副本，为什么要有 2 个副本？

一个可能的示例是使用 Workbook_SheetChange 事件，以便对工作簿的任何更改都会更新另一个工作簿。但是，这仅在您更改值而不是格式等时才有效。

例如 2 个工作簿 Book1.xlsm & Book2.xlsm，在 THISWORKBOOK 对象中的 Book1.xlsm 中输入

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

在 Book2.xlsm 中执行相同操作，但更改 strCopyto = "C:\Users\osknows\Desktop\Book1.xlsm"

这是可以做到的众多方法之一

【讨论】：