VBS脚本获取Excel活动的工作簿

VBS（Visual Basic for Applications Scripting）是一种在Microsoft Office应用程序中使用的自动化脚本语言，特别是用于Excel。如果你想通过VBS获取Excel活动工作簿，你可以使用以下代码：

Sub GetActiveWorkbook()
    Dim wb As Workbook
    '声明并创建一个新的Workbook对象，表示当前活动的Excel工作簿
    Set wb = ThisWorkbook
    
    '检查是否已打开至少一个工作簿
    If Not wb Is Nothing Then
        '如果工作簿存在，打印出它的名称或其他信息
        WScript.Echo "当前活动的工作簿名为：" & wb.Name
        '这里可以添加更多操作，比如读取数据或修改内容等
    Else
        WScript.Echo "没有活动的工作簿。"
    End If
End Sub

这个脚本首先声明了一个`Workbook`对象，然后检查它是否非空，即是否有一个活跃的工作簿。如果有的话，就会输出工作簿的名称。