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]
- 6 maneiras de usar o preenchimento relâmpago - março 12, 2021
- quatro motivos para voce parar de usar o procv - fevereiro 16, 2021
- Como Criar um Gráfico de Waterfall no Excel - fevereiro 2, 2021