如何在vba中打开工作表？

Sub OpenWorksheet()
    Dim ws As Worksheet
    Dim wb As Workbook
    
    ' 设置工作簿变量为当前工作簿
    Set wb = ThisWorkbook
    
    ' 设置工作表变量为要打开的工作表
    Set ws = wb.Worksheets("Sheet1") ' 请将 "Sheet1" 替换为要打开的工作表名称
    
    ' 激活工作表
    ws.Activate
    
End Sub