vba - 如何根据工作表的代号设置工作表对象？

Question

工作表名称可能会更改。因此，我想根据工作表的代号设置工作表对象。我怎样才能做到这一点？

到目前为止我最好的尝试是:

Sub UpdateNameDropdown()

    Dim wksName As String
    wksName = ThisWorkbook.Sheets(Sheet16).Name

    Dim wks As Worksheet
    Set wks = Sheets(wksName)

End Sub

但是我在行 wksName = ThisWorkbook.Sheets.Sheet16.Name

上收到类型不匹配错误

Answer 1

这个？

Sub Sample()
    Dim wks As Worksheet

    Set wks = Sheet16

    With wks
        Debug.Print .Name
        '~~> Do what you want
    End With
End Sub