Neste código abaixo veremos como chamar a Janela Abrir Arquivos, do Ms Excel. Siga os Passos abaixo:

1º – Abrar o Editor Visual Basic (VBE);
Dica: para Abrir o Editor Visual Basic, faça: Menu Ferramentas – Macros – Editor Visual Basic
2º – Insira um Módulo;
Dica: Clique no Menu Inserir – Módulo.
3º – Copie o Código abaixo e Cole no Módulo:


Sub Janela_Abrir_Arquivo()
Dim fd As FileDialog
Dim ffs As FileDialogFilters
Dim lngCount As Integer

Set fd = Application.FileDialog(msoFileDialogOpen)

With fd
Set ffs = .Filters

With ffs
.Clear
.Add “DIGITE AQUI O TIPO DO ARQUIVO”, “*.csv, *.xls”
End With

.AllowMultiSelect = False

If .Show = False Then Exit Sub

For lngCount = 1 To .SelectedItems.Count
Range(“A1”).Value = .SelectedItems(lngCount)
Next lngCount

End With

End Sub

Para ver o resultado, execute esta Macro com um Botão, ou Pressione a Tecla F5 no Editor.

Caso tenha algum truque ou dica, envie para contato@dicasdeexcel.com.br

Por: FV

Comentários
Fabio Vianna
Siga-Me

Fabio Vianna

Modela planilhas deste 1994 e ministra treinamentos desde 1997.
Especialista em Modelagem Profissional de Planilhas, incluindo Dashboards no Excel.
Fabio Vianna
Siga-Me

Últimos posts por Fabio Vianna (exibir todos)

Receba nossa Agenda

Cadastre-se para receber nossa agenda de treinamentos.

Obrigado :)