提取工作表的名称并将其粘贴到另一个工作簿中答案

【问题标题】：extract name of worksheets and paste it in another workbook提取工作表的名称并将其粘贴到另一个工作簿中
【发布时间】：2020-06-17 05:21:09
【问题描述】：

无法开发可以循环遍历工作表的代码提取每个工作表的名称，然后将其粘贴到主工作簿中，这就是我到目前为止所得到的

Sub date()
Dim day As String
Dim x As Integer
Dim wb As Workbook
Set wb = Workbooks.Open(SelectedFileItem)
Dim contador As Integer
contador = 2
Dim result As Workbook
Set result = Workbooks.Open("C:\Users\apractica\Desktop\Macro\Durst\Resultados.xlsm")

For x = 1 To ws_num
    wb.Worksheets(x).Activate
    day = wb.Sheets(x).Name
    result.Cells(contador, 1).PasteSpecial xlPaste
    contador = contador + 1
Next
End Sub

wb = 是带有工作表的工作簿，我需要提取每个工作表的名称

result = 是我要复制每个工作表名称的主工作簿

【问题讨论】：

第一步：在模块顶部添加Option Explicit。 ws_num 未声明。
For Each ws in wb.Worksheeets, result.Worksheets(1).Cells(contador, 1).Value = ws.Name.
Dim ws_num As Integer ws_num = ActiveWorkbook.Worksheets.Count
请使用我建议的代码，谢谢。
成功了，非常感谢

标签： excel vba loops worksheet

【解决方案1】：

结束这个问题：

在模块顶部添加Option Explicit。 ws_num 未声明。
循环遍历wb.Worksheets 的集合。
确保在.Cells(contador, 1) 之前指定工作表。 result 是 Workbook。

For Each ws in wb.Worksheeets
    result.Worksheets(1).Cells(contador, 1).Value = ws.Name
    contador = contador + 1
Next

【讨论】：