Usar o controlo DialogBox no Office (VBA)

(c) 2002 João Tito Lívio 'This code can only be use as a part of an Application and could not be sell

1. Inserir o Controlo ActiveX
2. Design View ir a INSERT - ActiveX CONTROL
3. Renomear controlo para "cdlg"
4. Copiar código em baixo para o evento CLICK de um Botão de Comando












CÓDIGO

Dim strCaminho As String

With Me.cdlg
' Directorio
InitDir = "C:\"
'Titulo
.DialogTitle = "Localizar Arquivo"
'Filtros
.Filter = "Arquivos(*.txt)*.txtAll Files (*.*)*.*"
.ShowOpen
'Retorna caminho e nome ficheiro
strCaminho = .FileName
End With
MsgBox "Path: " & strCaminho

EXEMPLO