LLevo toda la mañana intentando hacer un programa que me lea una celda de un documento de excel y si el valor de la celda es 1 active una salida y si es 0 active otra distinta del puerto serie.
El modulo necesario para activar el puerto serie ya lo tengo, pero no consigo poder leer la celda de excel.
Muchas gracias
Range("XZ").Value = ...
en un ejemplo:
if (Range("A1").Value = 1) then
...
endif
o si lo q kieres es pedir la celda por teclado, pues tipica variable...
dim celda as string
celda = msgbox "introduce la celda" "celda"
if (Range(celda).value = 1) then
...
endif
Nada no consigo que me funcione, he intentado que cuando se active la entrada DCD del puerto serie si en la celda A7 de un documento de excel el valor es 1 se active la salida TxD del puerto serie y si es 0 se active la salida DTR.
Gracias por la respuesta, pero sigo igual 
EDIT: http://rapidshare.com/files/207261015/PtoSerie.rar.html
Esto es lo que tengo hasta ahora