fbpx

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 [email protected]

Por: FV

Fabio Vianna
Siga-Me
Nossas Redes Sociais
Facebook
Linkedin
Instagram
Youtube