vba 获取worksheet

以下是两种获取worksheet的VBA代码示例：

1. 使用Worksheets.Add方法添加新的工作表：

Worksheets.Add after:=Worksheets(Worksheets.Count)

这段代码将在当前活动工作簿中添加一个新的工作表，并将其放置在所有现有工作表之后。

2. 使用Worksheet_Change事件来获取当前活动工作表：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Set ws = ActiveSheet
    ' 在这里可以使用ws对象进行操作
End Sub

这段代码是一个Worksheet_Change事件的处理程序，它会在工作表中的单元格发生更改时触发。在事件处理程序中，我们可以使用ActiveSheet对象来获取当前活动的工作表，并将其赋值给一个Worksheet对象变量ws。然后，我们可以使用ws对象来进行进一步的操作。