Microsoft Excel não é apenas sobre os dados tabulares, cálculos e gerenciamento de informações. Qualquer usuário ávido pode transformar o Excel em uma ferramenta poderosa para o gerenciamento de pastas , organização de arquivos e manter o controle de tarefas. Você pode criar uma macro que usa um objeto FileDialog VBA para digitalizar rapidamente um diretório e listar o seu conteúdo em uma planilha. Após a execução, esta macro irá solicitar aos usuários para escolher uma pasta , e , posteriormente, listar os nomes de seus conteúdos em uma única coluna . Instruções
Criando o
Macro
1
Inicie o Microsoft Excel. Pressione " CTRL + O ", selecione a pasta de trabalho e , em seguida, clique em " Abrir". Para criar uma nova pasta de trabalho em vez disso, pressione " CTRL + N." " ALT + F8"
2
Pressione para abrir a caixa de diálogo Macros. Digite " GetFolderContents " na caixa Nome da macro e , em seguida, clique em " Criar".
3
Digite o seguinte código no editor VBA .
Sub GetFolderContents ()
Dim xDir , xFilename , f, fso As Object
Set fso = CreateObject (" Scripting.FileSystemObject " )
Com Application.FileDialog ( msoFileDialogFolderPicker )
. InitialFileName = ThisWorkbook.Path & "\\"
. Title = " Selecione uma pasta para listar os arquivos de "
. AllowMultiSelect = False
. Mostrar
Se
. SelectedItems.Count < > 0 Then
xDir = . SelectedItems (1 ) & " \\ "
End If End With
Se ( MsgBox ( Prompt : Buttons = " você deseja incluir nomes de subpastas ? ", _
: = vbYesNo , Título : = " incluir subpastas ") = vbYes ) Então
GoTo ListFolders
GoTo ListFiles
Else
GoTo ListFiles
End If
ListFolders :
para cada f Em fso.GetFolder ( xDir ) . SubFolders
ActiveCell.Value = " .. \\ " & f.Name
ActiveCell.Offset (1 , 0). Selecione
Próxima f
ListFiles :
Para Cada f Em fso.GetFolder ( xDir ) Arquivos
ActiveCell.Value = f.Name
ActiveCell . . Deslocamento (1 , 0). Selecione
Próxima f
Set fso = Nothing
End Sub
4
Pressione " ALT + Q" para fechar o editor de VBA e retornar à sua pasta de trabalho.
Usando o
Macro
5
Realce um celular em sua folha . Pressione " ALT + I" e " C " para criar uma coluna em branco . Selecione a primeira célula da nova coluna. Se você gostaria de exibir a lista em uma nova planilha em vez disso, pressione " SHIFT + F11 ".
6
Pressione " ALT + F8" para abrir a caixa de diálogo Macros. Selecione " GetFolderContents " e , em seguida, clique em " Executar".
7
Selecione a pasta ou o diretório a partir do qual você gostaria de listar o conteúdo . Clique em " OK".
8
Clique em " Sim" se você gostaria que a macro para listar também os nomes de sub-pastas , ou clique em " Não" para listar apenas arquivos . Aguarde Excel para terminar de preencher a nova coluna com o conteúdo de sua pasta selecionada.
