Excel 提取工作表的名称并将其粘贴到其他工作簿中

不能开发一个代码，可以循环通过工作表提取每个工作表的名称，然后粘贴到主工作簿中，这是我到目前为止得到的

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=是主工作簿，我想在其中复制每个工作表的名称来结束此问题：

将

选项Explicit

添加到模块顶部<未声明代码>ws_num

循环浏览

wb.工作表的集合

确保在

.Cells（contador，1）

之前指定工作表<代码>结果是一个

工作簿

---

第一步：将

选项Explicit

添加到模块顶部

ws_num

未声明。

对于wb.Worksheets

，

result.Worksheets（1）.Cells（contador，1）.Value=ws.Name

将ws_num设置为整数
ws_num=ActiveWorkbook.Worksheets.Count
请使用我建议的代码，谢谢。它成功了，非常感谢
For Each ws in wb.Worksheeets
    result.Worksheets(1).Cells(contador, 1).Value = ws.Name
    contador = contador + 1
Next