Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Exportar dados da ListBox para arquivo de extensão .txt no MS Access

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

11052011

Mensagem 

Exportar dados da ListBox para arquivo de extensão .txt no MS Access






Seção de origem no Blog: Exportação (Nova seção que será instituída)


Pessoal,

Facilitarei a você, como exportar dados de um controle ListBox para a um arquivo txt, ou seja, a geração de um documento em algum lugar no explorer - diretórios do computador.

Acho maneiro essa forma, pois é muito prática, veja:

Basta aplicar no evento ao clicar de um botão, repare os comentários que estão em verde.

'Inicio++++++++++++++++++++++++++++++++++
'Constantes

Const FOR_READING = 1
Const FOR_WRITING = 2
Const FOR_APPENDING = 8

'Declarando variáveis
Dim fso As Object
Dim ts As Object

'Referenciando o endereço dos objetos nas variáveis
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\NomeDoSeuArquivo.txt", FOR_WRITING, True)

'Percorre os registros da ListBox
For i = 0 To SuaLista.ListCount - 1
ts.WriteLine SuaLista.Column(1, i)
Next
'Fim+++++++++++++++++++++++++++++++++++


Acima os trechos que estão de azul é para você substituir conforme o nome da sua ListBox e conforme o nome desejado para o arquivo que será exportado OK.

Neste código será exportado apenas uma coluna da ListBox, repare o argumento .Column(1, i), veja que estou exportando a coluna 1, exatamente a coluna que possui o nome dos países. Caso você deseje exportar mais de uma coluna em um mesmo arquivo, entao terá simplesmente que fazer o seguinte:

Usar um caractere de concatenação e escrevendo as colunas desejadas, assim exemplo:
ts.WriteLine Lista.Column(0, i) & Lista.Column(1, i) & Lista.Column(2, i)

Abaixo o exemplo para download:
Download

Nota: O código utilizado nessa solução foi proposto por VieiraSoft nas salas de dúvidas do Fórum MaximoAccess, se desejar, acesse e acompanhe.

Até mais!


avatar
Dilson
Facilitador
Facilitador

Brasil


http://www.dadosweb.com

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: diggdeliciousredditstumbleuponslashdotyahoogooglelive

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum