比较两个工作表对象（不是内容）

Question

在错误处理代码的上下文中，我想验证用户是否在同一工作簿中为当前工作表赋予了另一个工作表的相同名称（当然禁止操作）。因此，我直观地尝试验证这一点的方式是简单地遍历所有工作表并比较名称：

For Each sh In ThisWorkbook.Sheets
    If sh.Name = ThisWorkbook.ActiveSheet.Name Then
        'error handling here
    End If
Next sh

但是，在以下情况下这是一个巨大的逻辑错误：

1) 用户正在编辑，比方说，工作表编号 3； 2）同名的sheet在位置5；

在这种情况下，肯定会满足条件sh.Name = ThisWorkbook.ActiveSheet.Name，因为工作表会与自身进行比较。

所以，我想知道：如何理解sh 不是ThisWorkbook.ActiveSheet？

我认为这个任务可以通过简单的对象比较来解决：

If (sh Is Not ThisWorkbook.ActiveSheet) And (sh.Name = ThisWorkbook.ActiveSheet.Name) Then

但这会引发编译错误，即对象不支持此属性或方法。谁能帮我找到我的代码结构中缺乏逻辑的地方？

其他信息

我尝试通过Err.Description 和Err.Number 来管理此案例，但第一个是依赖于操作系统语言的，第二个对于我需要以不同方式处理的其他类型的错误是相同的。

此外，工作表（名称和内容）包含在.xlam 加载项中，因此用户可以通过自定义用户表单而不是通过 Excel 应用程序更改内容。

更一般地说，假设我想知道如何进行比较，即使在这种特定情况下可以解决，以便将这种方法用于我已经计划做的未来开发和无法通过默认的 VBA 错误处理程序进行管理。

Answer 1

只需检查工作表的索引和名称即可。 如果名称匹配，则只有错误（或其他），但索引不匹配。

Option Explicit

Public Sub test()
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ThisWorkbook
    Set ws = wb.ActiveSheet

    Dim wsToCheck As Worksheet
    For Each wsToCheck In wb.Worksheets
        If ws.Name = wsToCheck.Name And ws.Index <> wsToCheck.Index Then
            'do something
        End If
    Next
End Sub

当然，您也可以只使用test for object equality using the Is operator，或者在您的具体情况下不等式。

Public Sub test2()
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ThisWorkbook
    Set ws = wb.ActiveSheet

    Dim wsToCheck As Worksheet
    For Each wsToCheck In wb.Worksheets
        If Not ws Is wsToCheck Then
            'do something
            Debug.Print ws.Name
        End If
    Next
End Sub

Answer 2

“Not”的语法不正确；应该是这样的：

If (Not sh Is ThisWorkbook.ActiveSheet) And (sh.Name = ThisWorkbook.ActiveSheet.Name) Then

Answer 3

没有理由遍历工作表集合。使用这个：

Function IsWshExists(ByVal wbk As Workbook, ByVal wshName As String) As Boolean
Dim wsh As Worksheet

On Error Resume Next
Set wsh = wbk.Worksheets(wshName)

IsWshExists = (Err.Number = 0)

Set wsh = Nothing
End Function

用法：

If Not IsWshExists(ThisWorkbook, "Sheet2") Then 
    'you can add worksheet ;)
    'your logic here
End If