извлеките название рабочих листов и вставьте его в другую рабочую книгу

Question

Невозможно разработать код, который может oop с помощью рабочих таблиц извлечь имя каждого рабочего листа и затем вставить его в основную рабочую книгу, вот что я получил до сих пор

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 = основная рабочая книга, в которую я хочу скопировать имя каждого рабочего листа

Answer 1

Чтобы закрыть этот вопрос:

1. Добавьте Option Explicit в верхнюю часть модуля. ws_num не объявлено.
2. L oop для коллекции 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