[AJUDA] COM LISTA E EXPORTACAO

ROARENA 17/12/2009 12:59:47
#329910
Galera, estou com um problema.
Tenho uma lista, que pega todos os e-mails de um banco de dados.
E eu quero exportar essa lista para um arquivo de texto.
Como devo proceder?
Agradeço desde já!
Abraços!
TECLA 17/12/2009 13:33:58
#329914
Simples... Utilize o objeto PRINTER.

Exemplo:
Open [Ô]C:\Arq.txt[Ô] For Output As #1
Print #1, [Ô]TECLA|tecla@vbmania.com.br[Ô]
Close #1
MsgBox [Ô]Arquivo criado com sucesso![Ô], , [Ô]Exportação[Ô]
ROARENA 17/12/2009 14:06:00
#329923
Então tecla, eu já fiz esse código =]
Só que eu queria que ele pegasse o conteudo da lista
mas com o .list não da.
meu código tá assim

Citação:

arq = App.Path & [Ô]\E-mails Exportados.txt[Ô]
exporta = MsgBox([Ô]Deseja Exportar todos os registros?[Ô], 36, [Ô]Exportar Registros[Ô])
If exporta = 6 Then
Open arq For Output As #1
Print #1, lista.list
Close #1
End If
TECLA 17/12/2009 16:30:12
#329949
Fiz algumas alterações no seu código... teste novamente!

arq = App.Path & [Ô]\E-mails Exportados.txt[Ô]
exporta = MsgBox([Ô]Deseja Exportar todos os registros?[Ô], 36, [Ô]Exportar Registros[Ô])
Dim i As Integer
If exporta = 6 Then
     Open arq For Output As #1
     For i=0 To lista.ListCount - 1
          Print #1, lista.List(i)
     Next i
     Close #1
End If
ROARENA 17/12/2009 16:36:52
#329951
Tecla, muito obrigado funcionou!
TECLA 17/12/2009 16:42:46
#329954
Não esqueça de encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar