Excel 检查两张工作表是否相同

Excel 检查两张工作表是否相同,excel,vba,Excel,Vba,我正在检查一张工作表是否与另一张工作表相同。下面的例子显示了我是如何做的 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") 'Shoul

我正在检查一张工作表是否与另一张工作表相同。下面的例子显示了我是如何做的

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

但这会导致错误
对象不支持此属性或方法。那么,如何比较这样的两张工作表呢?

如果定义了时间表名称,则可以比较name属性

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

如果已定义时间表名称,则可以比较name属性

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

如果已定义时间表名称,则可以比较name属性

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

如果已定义时间表名称,则可以比较name属性

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

If sheet1 Is sheet2 Then Debug.Print("Same workbook")
有关详细信息,请参阅本文(VBA中似乎不支持
IsNot

使用
Is

If sheet1 Is sheet2 Then Debug.Print("Same workbook")
有关详细信息,请参阅本文(VBA中似乎不支持
IsNot

使用
Is

If sheet1 Is sheet2 Then Debug.Print("Same workbook")
有关详细信息,请参阅本文(VBA中似乎不支持
IsNot

使用
Is

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

详细信息在本文中(除了
IsNot
在VBA中似乎不受支持)。

谢谢,这可能就我的目的而言。但是如果这两张纸碰巧有相同的名字,那就失败了,不是吗?是的,那样的话,它就失败了。我在API中找不到比较时间表的方法。谢谢,这对我来说可能就足够了。但是如果这两张纸碰巧有相同的名字,那就失败了,不是吗?是的,那样的话,它就失败了。我在API中找不到比较时间表的方法。谢谢,这对我来说可能就足够了。但是如果这两张纸碰巧有相同的名字,那就失败了,不是吗?是的,那样的话,它就失败了。我在API中找不到比较时间表的方法。谢谢,这对我来说可能就足够了。但是如果这两张纸碰巧有相同的名字,那就失败了,不是吗?是的,那样的话,它就失败了。我在API中找不到比较时间表的方法。