Alexandre,
Pesquisando em outros fóruns, fonte: ( http://www.tomasvasquez.com.br/blog/mic ... filedialog) encontrei o código abaixo que resolve parcialmente meu problema, mas precisa de adaptação e não sei como fazer.
Na linha 13) ChDir ("C:") quero passar como parâmetro o diretório selecionado através de uma combobox. Assim que eu visualizar e depois fechar o arquivo a combobox deverá ser reexibida para a escolha de outro diretório e assim por diante. Essa função poderia ser executada por um CommandButton1 em um UserForm ou na própria planilha.
1)Public Function OpenFileDialog() As String
2) Dim Filter As String, Title As String
3) Dim FilterIndex As Integer
4) Dim Filename As Variant
5) ' Define o filtro de procura dos arquivos
6) Filter = "Arquivos Wave (*.wav),*.wav,"
7) ' O filtro padrão é *.*
8) FilterIndex = 3
9) ' Define o Título (Caption) da Tela
10) Title = "Selecione um arquivo"
11) ' Define o disco de procura
12) ChDrive ("C")
13) ChDir ("C:")
14) With Application
15) ' Abre a caixa de diálogo para seleção do arquivo com os parâmetros
16) Filename = .GetOpenFilename(Filter, FilterIndex, Title)
17) ' Reseta o Path
18) ChDrive (Left(.DefaultFilePath, 1))
19) ChDir (.DefaultFilePath)
20) End With
21) ' Abandona ao Cancelar
22) If Filename = False Then
23) MsgBox "Nenhum arquivo foi selecionado."
24) Exit Function
25) End If
26) ' Retorna o caminho do arquivo
27) OpenFileDialog = Filename
28) End Function
Só pra lembrar! Todos meus diretórios já estão listados na Plan1
Obrigado pela atenção
Paulo
Postado : 24/02/2015 3:43 pm