提取工作表的名稱並將其粘貼到另一個工作簿中

Question

無法開發可以循環遍歷工作表的代碼，提取每個工作表的名稱，然后將其粘貼到主工作簿中，這是我到目前為止所得到的

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 = 是包含工作表的工作簿，我需要提取每個工作表的名稱

結果 = 是主工作簿，我想在其中復制每個工作表的名稱

Answer 1

要結束這個問題：

1. 將Option Explicit添加到模塊頂部。 ws_num未聲明。
2. 循環wb.Worksheets的集合。
3. 確保在.Cells(contador, 1)之前指定工作表。 result是一個Workbook 。

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