Rsantana28
Mensagens : 2
Data de inscrição : 13/10/2014
 | | Assunto: Preencher Caixa de Listagem através de um .txt Seg Out 13, 2014 4:37 pm | |
| Amigos,
Preciso de um auxilio existe a possibilidade de alimentar uma caixa de listagem buscando as informações em um arquivo .txt se sim como posso fazer.
Obrigado.
Rick Santana | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Preencher Caixa de Listagem através de um .txt Seg Out 13, 2014 8:48 pm | |
| Boa tarde!! Qual controle tu vai usar? - Código:
-
Sub ReadStraightTextFile()
Dim sStr as String
Dim LineofText As String
Open "C:\Local\Arquivo.TXT" For Input As #1
sStr = ""
Do While Not EOF(1)
Line Input #1, LineofText
userform1.combobox1.AddItem LineofText 'baseado em um combobox userform
Loop
'Close the file
Close #1
End Sub  Att | |
|
Rsantana28
Mensagens : 2
Data de inscrição : 13/10/2014
| | Assunto: Re: Preencher Caixa de Listagem através de um .txt Seg Out 13, 2014 9:39 pm | |
| Vou usar o combobox mesmo, vou testar o seu código.
Obrigado! | |
|
Conteúdo patrocinado
| | Assunto: Re: Preencher Caixa de Listagem através de um .txt | |
| |
|
