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

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