Excel vba ler nome de arquivo e nome guia de planilhas num diretório

[Diegodcr]

Bom dia povo!

Como ficaria um vba que pode ler o nome da planilha com nome das guias (que tem quantidade aleatórias) das planilhas num diretório?

 

EX:

C:\plalinhas

planilha1.xls com guia com nome1 nome2 nome 3 nome4 nome5

planilha2.xls com guia com nome1 nome2 nome 3 nome4

 

O resultado tem que ficar como na planilha matriz em anexo.

matriz.xlsx

[Wendell Menezes]

Bom dia,

 

Ficaria assim (alterar o valor da variável folder para a pasta onde estão os arquivos Excel a serem lidos):

 

Sub GET_SHEET_NAMES()

Dim FSO     As Object
Dim Folder  As String
Dim File    As Object
Dim wb      As Workbook
Dim ws      As Worksheet
Dim LR      As Long

Set FSO = VBA.CreateObject("Scripting.FileSystemObject")
Folder = "C:\Users\PC\Desktop"

Application.DisplayAlerts = False

For Each File In FSO.GetFolder(Folder).Files
    If InStr(1, LCase(File), ".xls") > 0 And InStr(1, LCase(File), "$") = 0 And File.Name <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(File, UpdateLinks:=False)
        With ThisWorkbook.ActiveSheet
            LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            For Each ws In wb.Worksheets
                .Cells(LR, 1) = wb.Name
                .Cells(LR, .Cells(LR, Columns.Count).End(xlToLeft).Column + 1) = ws.Name
            Next
        End With
        wb.Close False
    End If
Next

End Sub