VBA代码片段：获取最后一个活动工作表的名称

有时候，我们需要在VBA中动态引用最后一个活动工作表。本文将介绍一个简单的VBA代码片段，帮助你快速获取最后一个活动工作表的名称。

代码片段

Function GetLastActiveWorksheetName()
    Dim i As Long
    i = ActiveWorkbook.Worksheets.Count
    
    If i > 0 Then
        GetLastActiveWorksheetName = ActiveWorkbook.Worksheets(i).Name
    Else
        GetLastActiveWorksheetName = ""
    End If
End Function

代码说明

这个代码片段定义了一个函数 GetLastActiveWorksheetName()，用于获取最后一个活动工作表的名称。

首先，我们使用 ActiveWorkbook.Worksheets.Count 获取工作簿中工作表的数量。然后，我们检查工作表的数量是否大于零。如果是，我们使用 ActiveWorkbook.Worksheets(i).Name 获取最后一个活动工作表的名称。如果不是，我们返回空字符串。

下面是使用这个函数的示例：

Sub TestGetLastActiveWorksheetName()
    Dim wsName As String
    wsName = GetLastActiveWorksheetName()
    
    If Len(wsName) > 0 Then
        MsgBox "最后一个活动工作表的名称是：" & wsName
    Else
        MsgBox "没有活动工作表。"
    End If
End Sub

这个示例中，我们调用 GetLastActiveWorksheetName() 函数，获取最后一个活动工作表的名称。如果工作表的数量大于零，我们使用 MsgBox 函数显示名称。否则，我们显示一个消息，说明没有活动工作表。

希望这个VBA代码片段对你有所帮助！