Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Abrir um arquivo usando combobox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Paulo Reis
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qua Fev 25, 2015 11:58 pm

Abrir um arquivo usando combobox

Mensagem por Paulo Reis »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Abrir um arquivo usando combobox

Mensagem por webmaster »

Ops... fórum errado. Movendo a mensagem


Responder