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

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

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

Answer 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

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

extract name of worksheets and paste it in another workbook

excel

vba

loops

worksheet