Durante todo el año recibimos muchos mail, pidiéndonos información para realizar trabajos sobre autómatas. Así que ahora es el momento para recordaros que necesitamos de vuestra colaboración enviándonos los que ya habéis presentado.

El Objetivo es el de intercambiar una serie de Datos o Variables entre 2 aplicaciones Windows vía OLE (Object Link Embedded), en nuestro caso lo haremos entre Monitor y Excel, una tiene que ser Servidora de Datos (OLE Server) y la otra Cliente de Datos (OLE Client). Este método es apropiado para un intercambio de un número moderadamente alto de Variables (unas 150).

Realizaremos un aplicación en que Monitor sea Servidora y Cliente de Datos OLE (así quedan especificadas ambas funcionalidades).

Primera Parte:

Segunda Parte:

xxxxxxxxxx

xxxxxxxxxx

Los Botones ESCRITURA EXCEL y LECTURA EXCEL tienen Visual Basic asociado:

dim HojaExcel as Object

dim CeldaExcel as integer

dim i as integer

dim j as integer

dim ValorExcel as integer

set HojaExcel=GetObject("c:\temp\ejemplo.xls")

'HojaExcel.application.visible=true

HojaExcel.application.windows("Ejemplo.xls").activate

'Appactivate "Microsoft Excel"

for i=1 to 5

for j=1 to 5

CeldaExcel=tagolewrite(i-1,j-1)

HojaExcel.application.cells(j,i)=CeldaExcel

next j

next i

HojaExcel.printout

dim HojaExcel as Object

dim CeldaExcel as integer

dim i as integer

dim j as integer

dim ValorExcel as integer

set HojaExcel=GetObject("c:\temp\ejemplo.xls")

for i=1 to 5

for j=1 to 5

CeldaExcel=HojaExcel.application.cells(j,i)

tagoleread(i-1,j-1)=CeldaExcel

next j

next i

El Resultado del código Visual Basic anterior es el siguiente:

Todos los nombres comerciales que se utilizan en esta web están o pueden estar registrados por sus respectivos fabricantes.

[ Principal ] [ Arriba ]

        2000, 2006            Última modificación: 02/03/2006