Neste artigo, criaremos uma macro para abrir vários arquivos com uma caixa de diálogo de arquivo.
Criamos a macro “abrindo_arquivo_múltiplo” para abrir vários arquivos. Um usuário pode clicar no botão “Abrir vários arquivos” para executar a macro.
Explicação lógica
Criamos a macro “abrindo_arquivo_múltiplo” para abrir vários arquivos. Um usuário pode clicar no botão “Abrir vários arquivos” para executar a macro. Ele abre a caixa de diálogo de arquivo de onde um usuário pode selecionar vários arquivos do Excel, que deseja abrir.
Uma vez que todos os arquivos estejam selecionados, clique no botão “OK” para abrir todos os arquivos selecionados.
Explicação do código
Application.FileDialog (msoFileDialogFilePicker)
O código acima é usado para abrir a caixa de diálogo do arquivo.
.AllowMultiSelect = True
No código acima, a propriedade AllowMultipleSelect é definida como true para habilitar a seleção múltipla na caixa de diálogo do arquivo.
.Filters.Add "Arquivos Excel", "* .xls *"
No código acima, a caixa de diálogo de filtro para arquivo é definida para selecionar apenas arquivos do Excel.
Se .Show = True Then
O código acima é usado para verificar se um usuário pressiona o botão “OK” ou “Cancelar” na caixa de diálogo do arquivo.
Workbooks.Open .SelectedItems (i)
O código acima é usado para abrir o arquivo Excel selecionado.
Siga abaixo para o código
Opção Explicit Sub opening_multiple_file () Dim i As Integer 'Caixa de diálogo de abertura de arquivo com Application.FileDialog (msoFileDialogFilePicker)' Habilitando vários arquivos, selecione .AllowMultiSelect = True .Filters.Clear 'Somente arquivos Excel podem ser selecionados .Filters.Add "Arquivos Excel" , "* .xls *" If .Show = True Then For i = 1 To .SelectedItems.Count 'Abrindo o arquivo selecionado Workbooks.Open .SelectedItems (i) Next i End If End With End Sub
Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail