I am trying to enter some data into excel using Ken Ray's code.
I want to put the data into columns A1,B1 (the number for each row
is entered in field "Nub")
ON mouseUp
put "A,B,C,D,E" INTO tAlph
REPEAT for each item tLett in tAlph
put tLett before fld "Nub"
put fld "Nub" into tNub
SendToXL "99",tNub
delete char 1 of fld "Nub"
END REPEAT
END mouseUp
ON SendToXL pWhat,pCell
put "tell app" && q("Microsoft Excel") & cr & \
"set value of cell" && q(pCell) && "to" && q(pWhat) & cr & \
"end tell" into tScript
do tScript as AppleScript
END SendToXL
FUNCTION q pWhat
return quote & pWhat & quote
END q
Thanks'
Liam
IRELAND
[EMAIL PROTECTED]
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
