So the only thing needed to make our code of last night work was to change
the Pastespecial params to logicals???
Yes, I tried it; it is true. Change that line to:
loSheet.Range("a5").PasteSpecial(-4104,-4142,.F.,.T.)
And it works.
But I SWEAR we did that last night. That's what we started with. We only
went to 0, 1 when the logicals didn't work. Didn't we? What was in that
Coke? Or was it the cake?
--stein
Stein Goering
Arbutus Computer Services
17494 Merry Hill Rd
Richland Center, WI 53581
608.538.3820
toggle quoted message
Show quoted text
-----Original Message-----
From: Cliff S [mailto:hawkridge@...]
Sent: Wednesday, February 18, 2004 10:16 AM
To: madfox_vfp@...
Subject: [madfox_vfp] Excel...l
This code runs no problemo... Output is as expected and no errors.
*** XTest.prg
***
*** finish up from madfox 17 Feb 04 meeting
***
SET STEP ON
oX=CREATEOBJECT("excel.application")
oX.Visible=.t.
oX.Workbooks.Add(1)
oX.range('a1').Value=1
oX.range('b1').Value=2
oX.Range('a4').Select
oX.Range('a1:b1').Copy
oX.Range('a4').PasteSpecial(-4104,-4142,.f.,.t.)
WAIT WINDOW 'did it work...?'
oX.activeworkbook.saved=.t.
oX.application.quit
*
Walk In Beauty,
cliff
Yahoo! Groups Links
