Listar o nome de várias guias em Diretório específico.
Página 1 de 1
Listar o nome de várias guias em Diretório específico.
Boa tarde!!
Como listar dentro de uma guia o nomes das guias de arquivos dentro de um determinado diretório.
Como listar dentro de uma guia o nomes das guias de arquivos dentro de um determinado diretório.
- Código:
Option Explicit
Sub ListWsheetClosedWrkbks()
'Listar o nome de várias guias em determinado diretório.
'Autor:JBeaucaire
Dim fPATH As String, fNAME As String
Dim wb As Workbook, wsList As Worksheet, wsNew As Worksheet
Dim sh As Long, Rw As Long, Col As Long
fPATH = "C:\test\" 'path to files, remember the final \ in this string
fNAME = Dir(fPATH & "*.xl*") 'get the first filename from fPATH, edit filter as needed
Set wsList = ThisWorkbook.Sheets(1) 'the sheet in the workbook with the macro where the list is being created
wsList.UsedRange.ClearContents 'clear the prior list
Rw = 1 'first row to add info
Application.ScreenUpdating = False 'speed up macro
Application.DisplayAlerts = False 'no popup questions, default answers are selected
Do While Len(fNAME) > 0 'loop one file at a time
wsList.Cells(Rw, 1) = fNAME 'note the filename
Col = 2 'first column to note sheet names
Set wb = Workbooks.Open(fPATH & fNAME) 'open the file
For sh = 1 To wb.Sheets.Count 'loop through sheets and write names in successive columns
wsList.Cells(Rw, Col).Value = wb.Sheets(sh).Name
Col = Col + 1
Next sh
wb.Close False 'close file, do not save
Rw = Rw + 1 'increment to next row
fNAME = Dir() 'get next filename using same filter as before
Loop
wsList.Columns.AutoFit 'cleanup appearance
Application.ScreenUpdating = True 'back to normal, update screen
End Sub
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copia 1 para Muitas Guias (nome das guias em células) critério
» listar os arquivos em um diretório
» Listar o nome de todas as Tabelas Dinâmicas do arquivo
» Criar_Hiperlilnk baseado no nome das guias
» Limpar células de várias guias.
» listar os arquivos em um diretório
» Listar o nome de todas as Tabelas Dinâmicas do arquivo
» Criar_Hiperlilnk baseado no nome das guias
» Limpar células de várias guias.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|