EXPORTA PARA EXCELL VIA AREA TRANSF. DO WINDOWS

BOSCOSANTANNA 09/02/2015 19:07:13
#444408
Olá Pessoal

Estou tento que fazer manutenção em um sistema que foi escrito em VB com o VB6.
O código abaixo era pra abrir o excell e pela área de transferência o conteudo do listview para o excell.
Ele esta abrindo o excell percorre até a qtd de registro x mas não esta colando.
Alguém poderia me dar um help por que não esta colando?

Dim I, J, K, l, TamF, pos1, qtd, pos As Integer
Dim VAplic As Double

txtplan.text = [Ô][Ô]
MousePointer = 11
VAplic = Shell(VDirExcel, 1) [ô] Run Calculator.
AppActivate VAplic [ô] Activate the Calculator.


For I = 1 To lstcontas.ListItems.count
pos1 = 1
qtd = Len(lstcontas.ListItems(I))
If InStr(lstcontas.ListItems(I), [Ô]<p><n>[Ô]) <> 0 Then
pos1 = 7
qtd = Len(lstcontas.ListItems(I)) - 6
ElseIf InStr(lstcontas.ListItems(I), [Ô]<p>[Ô]) <> 0 Then
pos1 = 4
qtd = Len(lstcontas.ListItems(I)) - 3
ElseIf InStr(lstcontas.ListItems(I), [Ô]<n>[Ô]) <> 0 Then
pos1 = 4
qtd = Len(lstcontas.ListItems(I)) - 3
End If

txtplan.text = txtplan.text + Mid(lstcontas.ListItems(I), pos1, qtd) + Chr(9)
txtplan.text = txtplan.text + lstcontas.ListItems(I).SubItems(1) + Chr(9)
txtplan.text = txtplan.text + lstcontas.ListItems(I).SubItems(2) + Chr(9)
txtplan.text = txtplan.text + lstcontas.ListItems(I).SubItems(3) + Chr(9)
txtplan.text = txtplan.text + lstcontas.ListItems(I).SubItems(4) + vbCrLf
Clipboard.Clear
Clipboard.SetText txtplan.text

AppActivate VAplic
Sendkeys [Ô]^V[Ô], True [ô]colar
Sendkeys [Ô]{DOWN}[Ô]
txtplan.text = [Ô][Ô]
Next
MousePointer = 0
TUNUSAT 10/02/2015 08:29:29
#444417 Resposta escolhida
BOSCOSANTANNA,

Desculpe, mas de agora (Windows 7) em diante (Windows 8.1) vi muita gente reclamando deste tal de [Ô]Sendkeys[Ô].
Recomendo fortemente, para você NÃO ter problemas óbvios no futuro, retirar toda esta parte de código e fazer de uma forma mais correta.

==============================================================
Excel - Visual Basic - Importando e Exportando dados
http://www.macoratti.net/excel_vb.htm
==============================================================
Aqui no VBMania tem muitos exemplos!!! Digite EXCEL na pesquisa e depois refine para VB6.
Saca este (parece mamãozinho...):
DLL PARA EXPORTAR PARA EXCEL
http://www.vbmania.com.br/index.php?modulo=detalhe&id=8717
==============================================================
VB6 Excel
http://forum.imasters.com.br/topic/179859-vb6-excel/
==============================================================

[][ô]s,
Tunusat.
BOSCOSANTANNA 10/02/2015 09:31:48
#444420
Olá Tunusat

Obrigado pelo retorno.
Você esta certo é melhor trabalhar com a importação normal do VB6 com excell.
Vou dar uma olhada nos link.
Valeu.
BOSCOSANTANNA 10/02/2015 09:34:51
#444421
Citação:

:
BOSCOSANTANNA,

Desculpe, mas de agora (Windows 7) em diante (Windows 8.1) vi muita gente reclamando deste tal de [Ô]Sendkeys[Ô].
Recomendo fortemente, para você NÃO ter problemas óbvios no futuro, retirar toda esta parte de código e fazer de uma forma mais correta.

==============================================================
Excel - Visual Basic - Importando e Exportando dados
http://www.macoratti.net/excel_vb.htm
==============================================================
Aqui no VBMania tem muitos exemplos!!! Digite EXCEL na pesquisa e depois refine para VB6.
Saca este (parece mamãozinho...):
DLL PARA EXPORTAR PARA EXCEL
http://www.vbmania.com.br/index.php?modulo=detalhe&id=8717
==============================================================
VB6 Excel
http://forum.imasters.com.br/topic/179859-vb6-excel/
==============================================================

[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar