German
30 de Mayo del 2005

Por favor alguien me puede decir cual es el truco para poder sacar datos con VB al Excel a traves de DDE.
La sintaxis que yo probe es :
LinkTopic=Excel|Libro1
LinkItem=L1C1.
Esto no me funciona. Si alguien lo conoce le pido por favor que me diga como se hace.
Desde ya les agradesco mucho.
Saludos mil, Germán.

fmoragues
30 de Mayo del 2005

Ola German, prueba con este code...

Dim i as Integer, j as Integer
Dim cad as String
Dim canalExcel_1 As Long
...
On Error Resume Next 'Establecer el control de errores
canalExcel_1 = DDEInitiate("Excel", "System") 'Establecer vinculo con excel
If err Then 'Si error -> excel no está en ejecucion
err = 0 'Restablecer error
Shell pathOffice + "Excel.exe", 1 'Ejecutar excel
If err Then Exit Sub 'Si error -> salir
canalExcel_1 = DDEInitiate("Excel", "System") 'Establecer vínculo con excel
End If
...
cad = "[WORKBOOK.ACTIVATE(""" + hoja + """)]"
DDEExecute canalExcel_1, cad

For i = 1 To FILAS
For j = 1 To COLUMNAS
DDEPoke canalExcel_1, "L" & LTrim(Str(i)) & "C" & LTrim(Str(j)), VALOR_A_COPIAR_EN_LA_CELDA
Next j
Next i
...
cad = "[SELECT(""R1C1:R1C1" + """)]"
DDEExecute canalExcel_1, cad

DDETerminateAll 'Finalizar todos los vinculos