topic-3114

Board index FiveWin for Harbour/xHarbour Move excel sheets

Posts: 128

Joined: Wed Oct 26, 2005 12:18 PM

Move excel sheets
Posted: Wed May 24, 2006 08:44 PM

Hi,

Anybody knows what's the traduction of this macro from VB to xH/FWH?

Sheets("Sheet1").Select 
Sheets("Sheet1").Move After:=Sheets(3)

Thanks a lot.

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: Move excel sheets
Posted: Wed May 24, 2006 08:59 PM

César E. Lozada wrote:Hi,

Anybody knows what's the traduction of this macro from VB to xH/FWH?

Sheets("Sheet1").Select
Sheets("Sheet1").Move After:=Sheets(3)

Thanks a lot.

Try

Code: Select all Collapse

oExcel:Sheets( "Sheet1" ):Select()
oExcel:Sheets( "Sheet1" ):Move( , oExcel:Sheets( 3 ) )

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Jeff Barnes

Posts: 933

Joined: Sun Oct 09, 2005 01:05 PM

Move excel sheets
Posted: Thu May 25, 2006 10:34 PM

You should also be able to do this:

oSheet := oExcel:Sheets(“oSheet1”)
oExcel:Sheets( "oSheet2” ):Move( oSheet )

This example will move sheet2 infront of sheet1

Jeff

Thanks,

Jeff Barnes

(FWH 16.11, xHarbour 1.2.3, Bcc730)

FiveTech Support Forums

Continue the discussion