Excel...l

Cliff S

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

Stein Goering

#87

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

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

hawkridge

#88

I really believe we tried every which way for those params and nothing
worked.  I banged this little example out in two minutes no problem.  I am
much more likely to believe that PJ has done some things to his workstation
to make us all look like beginners again.

Actually, the energy in the cosmos must be WIERD.  I was working REAL LATE
at a client network tonight and all of a sudden the network just went
bonkers.  I was burning a CD across the wire and it just stopped for a
minute, then the buffer filled up again, then it would stop.  I went to look
at the switches (2 10/100 switches and a 10/100 hub) and both switches were
just banging every port, the hub was quiet.  Only the print servers, file
server, and my tech system were alive - I have no idea what was going on
other than maybe there were aliens on the roof - maybe PJ has some aliens in
the back room there too.

Walk In Beauty,

Cliff Smith
hawkridge@... / 608 647-2366

Show quoted text

-----Original Message-----
From: Stein Goering [mailto:sgoering@...]
Sent: Wednesday, February 18, 2004 10:52 PM
To: madfox_vfp@...
Subject: RE: [madfox_vfp] Excel...l

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

-----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

Yahoo! Groups Links

开云体育

Excel...l