SRick
|
LAVRAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/04/2010 16:19 hs
Olá, Perci,vi um exemplo seu de como enviar dados de um textbox para o bloco de notas E FICOU MUITO LEGAL. Exemplo que eu vi.
Não se esqueça de que você tem que ir no menu Project->References e marcar a opção: Microsoft Scripting Runtime
Private Sub GravaArquivoText()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("caminho_e_nome_do_arquivo", True)
a.Close
Open "caminho_e_nome_do_arquivo" For Output As #1
CurrentX = 0
CurrentY = 0
Print #1, Tab(0); TextBox.Text
Close #1
End Sub
Depois você utiliza um editor de textos (pode ser o NotePad - Bloco de Notas) para visualizar e ver como ficou.
Espero ter ajudado
Até mais.
BOM A PERGUNTA COMO QUE EU FAÇO PARA ENVIAR O CONTEUDO DE UM LISTBOX?
|
|
|
|
|
|
Perci!
|
MATAO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/04/2010 08:37 hs
SRick, você precisa ler o conteúdo da ListBox, um a um e ir imprimindo: faça o seguinte, aproveitando o exemplo acima, logo após a linha: CURRENTY=0, coloque essas linhas: For i = 1 to LstBox1.ListCount - 1 ListBox1.ListIndex = i Print #1, Tab(0); ListBox1.Text
Next que deve funcionar. Qualquer coisa poste novamente. Até mais. |
|
|
|
SRick
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2010 11:05 hs
Olá PERCI, sem querer abusar seria possível vc fazer um exemplinho para mim e me enviar via email: ahsouza@bol.com.br
Preciso do relatório do listbox assim:
informo codigo inicial e codigo final:
codigo nome endereço cidade
-----------------------------------------------------------------------
001 carlos rua 1 sao paulo
002 heitor rua 2 rio de janeiro
... ..... ..... .....
total de clientes listados: 02
|
|
|
|
Perci!
|
MATAO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 20/04/2010 08:44 hs
SRick, tenha um pouco de paciência, pois estou tendo muita dificuldade para montar o seu exemplo. Estou muito ocupado no trabalho, aqui. Mas prometo que vou te dar uma ajuda, sim, valeu? Até mais. |
|
|
|
Perci!
|
MATAO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/04/2010 15:33 hs
Te enviei um e-mail. Analise e depois me responda. Até mais. |
|
|
|
