Ola!! Sou recém chegado aqui no fórum e pretendo aprender mais sobre o uso do excel VBA.
Achei muito interessante essa macro e gostaria de adaptar para uma rotina que estou tentando fazer. Gostaria de saber como adicionar nesse código a opção de selecionar uma planilha contendo uma lista de vários diretórios.
Portanto, quando eu selecionar um diretório na Plan1, intevalo A2, A10 através de uma combobox ou listbox o arquivo procurado seja aberto na tela. Por exemplo,
C:\GERENCIA DE PESSOAL\FORMULÁRIOS\ESCALA DE FERIAS\JAN.TXT
C:\GERENCIA DE ADMINISTRACAO\ALMOXARIFADO\FORMULÁRIOS\FICHA DE ESTOQUE.XLS
etc
Eu consegui ma macro que carrega os diretórios que eu preciso para Plan1, mas não sei como faze para abrir o diretorio ataves da combobox.
Como eu faço para passar como parâmetro o texto da combobox para ChDir ("C:\"), na linha 13 do código
Agradeco a ajuda.
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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Abrir um arquivo usando combobox
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qua Fev 25, 2015 11:58 pm