如何通过 vba 获取工作簿所有sheet的名称 给出代码示例

### 回答1：

你可以使用下面这段代码来获取Excel工作簿中所有sheet的名称：Sub 获取工作簿Sheet名称()
Dim i As Integer
For i = 1 To Sheets.Count
Debug.Print Sheets(i).Name
Next i
End Sub

### 回答2：
通过VBA可以使用Workbook对象的Sheets属性来获取工作簿中所有工作表的名称。以下是一个获取工作簿所有Sheet名称的代码示例：

Sub GetSheetNames()
    Dim wb As Workbook
    Set wb = ThisWorkbook ' 设置要操作的工作簿，这里是当前活动工作簿
    
    Dim ws As Worksheet
    For Each ws In wb.Sheets ' 遍历工作簿中的每个工作表
        MsgBox ws.Name ' 弹出消息框显示工作表名称
    Next ws
End Sub

在上面的代码中，首先使用`Set`关键字将当前活动工作簿赋值给名为`wb`的Workbook对象。然后使用For Each循环迭代`wb.Sheets`属性，它返回一个包含所有工作表的集合。在循环中，使用`ws.Name`获取每个工作表的名称，并使用`MsgBox`显示出来。

使用此代码示例，你可以获取工作簿中所有Sheet的名称。你可以将代码放置在VBA编辑器中的一个模块中，并通过执行Sub GetSheetNames()来运行它。

### 回答3：
通过VBA可以很方便地获取工作簿中所有sheet的名称。以下是一个简单的示例代码：

Sub GetSheetNames()
    Dim ws As Worksheet
    Dim sheetNames As String
    
    '清空sheetNames变量
    sheetNames = ""
    
    '循环工作簿中的每个sheet
    For Each ws In ThisWorkbook.Sheets
        '将每个sheet的名称追加到sheetNames变量中
        sheetNames = sheetNames & ws.Name & ","
    Next ws
    
    '将结果显示出来
    MsgBox "工作簿中的所有sheet名称：" & sheetNames
    
    '或者将结果输出到单元格中
    'Range("A1").Value = "工作簿中的所有sheet名称：" & sheetNames

End Sub

以上代码首先定义了一个字符串变量`sheetNames`用于存储所有sheet的名称。然后通过`For Each`循环遍历工作簿中的每个sheet，将其名称追加到`sheetNames`变量中，并使用逗号分隔。最后，通过`MsgBox`函数弹出一个消息框显示所有sheet的名称，你也可以将结果输出到指定的单元格中。