检查两个工作表是否相同

Question

我正在尝试检查一个工作表是否与另一个工作表相同。下面的例子展示了我是如何做到的。

Dim sheet1 as Worksheet, sheet2 as Worksheet
Set sheet1 = GetObject("C:\sheet1.xls").Worksheets(1)
Set sheet2 = GetObject("C:\sheet2.xls").Worksheets(1)

If sheet1 = sheet2 Then Debug.Print("Same workbook") 'Should of course return false, but instead gives an error

但这会产生错误Object doesn't support this property or method。那么如何比较两张这样的纸张呢？

Answer 1

如果您已定义时间表名称，则可以比较名称属性。

If sheet1.Name = sheet2.Name Then Debug.Print("Same workbook")

Answer 2

使用Is ...

If sheet1 Is sheet2 Then Debug.Print("Same workbook")

此msdn文章中的详细信息（VBA中似乎不支持IsNot除外）。