Saber como usar o Excel para ler um diretório e criar uma planilha listando o conteúdo do diretório permite que você utilize o Excel como um aplicativo de gerenciamento de arquivos. Por exemplo, você poderia fornecer um usuário com uma listagem de diretório a partir do qual ela pode escolher uma tabela de banco de dados Access para importar para o atual pasta de trabalho do Excel. Projeto deste artigo baseia-se na linguagem de programação do Excel , Visual Basic for Applications, ou VBA para breve. Você pode usar esta linguagem para automatizar qualquer tarefa Excel que não requer intervenção do usuário. Uma maneira eficaz de aprender esta língua é usar o comando do Excel " Gravar Macro " na sua guia "Desenvolvedor" . Instruções
1
Clique no botão " Opções " do botão do Office e, em seguida, clique na caixa "show desenvolvedor " para revelar a guia "Desenvolvedor" . Este guia contém botões para macros Visual Basic . Você vai usar uma macro VBA para listar os arquivos em um diretório e armazenar essa lista em uma nova planilha.
2
Clique na guia "Desenvolvedor" , e , em seguida, clique no botão " Visual Basic " para entrar no ambiente de programação Visual Basic. Dê um duplo clique no item "Esta pasta de trabalho " no painel de navegação à esquerda da tela . Esta ação abrirá uma nova janela de programação para que você digite seu anúncio diretório do programa .
3
Cole o seguinte programa para a janela de programação. Este programa usa a função VBA " Dir " para ler um diretório. A saída dessa função é um único arquivo a partir desse diretório .
Opção
explícita
Public Sub ListFiles ( )
Dim d
d = dir ( "c: \\ windows \\ *")
MsgBox d
End Sub
4
Clique em qualquer das declarações do programa e , em seguida, clique no botão " Run" Menu "Run" comando para executar o programa. Excel irá exibir uma caixa de mensagem indicando o nome de um arquivo na pasta "C: \\ Windows. "
5
Cole o seguinte programa após a instrução " End sub" do primeiro programa . Este programa cria uma nova pasta de trabalho e insere um valor em uma de suas células. Seu programa final que lista os arquivos de um diretório usará as declarações no programa para inserir nomes de arquivos em uma nova pasta de trabalho.
Option Explicit
Public Sub MakeNewWorkbook ( )
pastas de trabalho . Adicionar
activecell = "Olá "
End Sub
6
Execute o programa como fez o anterior, e , em seguida, clique no ícone " Excel" em barra de tarefas do Windows para retornar ao Excel . Seu programa irá adicionar uma nova pasta de trabalho cuja planilha atual exibe o texto "Olá " na célula A1.
7
Use etapa 2 de instruções para retornar ao ambiente de programação Visual Basic for Applications , em seguida, cole o seguinte programa após a declaração " End Sub " do programa anterior. Este programa usa a função " Dir " para reunir todos os arquivos na pasta "C : \\ windows " pasta. O programa armazena cada arquivo em sua própria linha em uma planilha de um novo livro.
Option Explicit
Public Sub ListOneFile ()
Dim d
d = Dir ( "C: \\ windows \\ *")
Workbooks.Add
Do Until d = ""
ActiveCell = d
' mover para baixo
ActiveCell.Offset (1). Selecione
d = Dir
loop
End Sub
8
Execute o programa como você fez os anteriores, e depois voltar para o Excel usando instruções passo 6 do . Você verá uma nova planilha cujas células exibir uma lista de todos os arquivos na pasta "C : \\ windows " . Diretório