Agregar hoja Excel OLE

[jparada]

Estoy intentado agregar varias hojas a un libro de Excel,

Code: Select all

If ( oExcel := win_oleCreateObject( 'Excel.Application' ) ) == Nil
  ? 'Excel no disponible, ', win_OleErrorText()
  Return Nil
Endif

oExcel:WorkBooks:Add()
oSheet := oExcel:ActiveSheet()

/* Rename Sheet Tab */
oSheet:Name := "Hoja1"
oSheet:Cells( 1, 1 ):Value := "Hoja1 - fila 1"
oSheet:Cells( 2, 1 ):Value := "Hoja1 - fila 2"

/* Add Sheet Tab */
//oExcel:Sheets:Add( ,oExcel:Sheets(1) )
oExcel:Sheets:Add( )

oSheet := oExcel:ActiveSheet()
oSheet:Name := "Hoja2"

oSheet:Cells( 1, 1 ):Value := "Hoja2 - fila1"
oSheet:Cells( 2, 1 ):Value := "Hoja2 - fila2"

/* Save as */
oExcel:ActiveWorkbook:SaveAs( "name.xls" )

oExcel:Visible := .T.

Esto funciona, pero la hoja2 se posiciona antes de la hoja1 y no es lo que requiero.

He leído en algunos foros y la mayoría coinciden en que se debe realizar algo así:

you must add SHEETS
not Workbooks
oExcel.Sheets.Add()

If you want to add this sheet AFTER some other sheet:
oExcel.Sheets.Add(,oExcel.Sheets("Sheet1"))

Pero al hacerlo de esa forma me despliega error.

Alguien sabe cómo puedo insertar hojas en orden específico.

Saludos,
Javier

[AUGE_OHR]

hi,

using Office 97 default are 3 x Work-Sheets so i must "delete" two of it

Code: Select all

   // Office 97 Excel creates 3 worksheets by default
   // Delete 2 of them
   oExcel:Application:Worksheets(3):delete()
   oExcel:Application:Worksheets(2):delete()

on newer Version i do start from scratch

Code: Select all

   // Create a workbook from scratch
   oExcel:Application:Workbooks:new()
   oExcel:Application:Workbooks:add()

i guess last line is what you looking for

[andyglezl]

Esto funciona, pero la hoja2 se posiciona antes de la hoja1 y no es lo que requiero.

Si es por el orden en que se crean, porque no empiezas a crear por la última (3,2,1)...

[jparada]

hi,

Code: Select all

   // Create a workbook from scratch
   oExcel:Application:Workbooks:new()
   oExcel:Application:Workbooks:add()

i guess last line is what you looking for

Ya había leído algo parecido, pero esa línea crea libros, o sea archivos de Excel por separado, no hojas dentro del mismo libro.

[jparada]

Si es por el orden en que se crean, porque no empiezas a crear por la última (3,2,1)...

Jajaja, pues va a ser que voy a tener que hacer eso, quería controlarlo de manera correcto, es decir, indicando yo el orden; Pero mientras sigo investigando... lo raro es que ya corrí un ejemplo en VFP y funciona perfecto con:

Code: Select all

loExcel.Worksheets.Add(,loExcel.ActiveSheet)

pero si pongo esa línea al menos en mi caso, tira error...

Saludos.

[andyglezl]

Quizá así...
oExcel.Sheets.Add(,oExcel.Sheets("Sheet1"))
oExcel.Sheets.Add(,oExcel.Sheets("Sheet2"))
oExcel.Sheets.Add(,oExcel.Sheets("Sheet3"))

o

objSheet1 := objExcel.ActiveWorkbook.Worksheets(1)
objSheet2 := objExcel.ActiveWorkbook.Worksheets(2)
objSheet3 := objExcel.ActiveWorkbook.Worksheets(3)

*--------------------------------------------------------------------
objSheet1:Cells( 1, 1 ):Value := "Hoja1 - fila 1"
objSheet1:Cells( 2, 1 ):Value := "Hoja1 - fila 2"
*--------------------------------------------------------------------
objSheet2:Cells( 1, 1 ):Value := "Hoja2 - fila 1"
objSheet2:Cells( 2, 1 ):Value := "Hoja2 - fila 2"
*--------------------------------------------------------------------
objSheet3:Cells( 1, 1 ):Value := "Hoja3 - fila 1"
objSheet3:Cells( 2, 1 ):Value := "Hoja3 - fila 2"

[jparada]

Quizá así...
oExcel.Sheets.Add(,oExcel.Sheets("Sheet1"))
oExcel.Sheets.Add(,oExcel.Sheets("Sheet2"))
oExcel.Sheets.Add(,oExcel.Sheets("Sheet3"))

o

objSheet1 := objExcel.ActiveWorkbook.Worksheets(1)
objSheet2 := objExcel.ActiveWorkbook.Worksheets(2)
objSheet3 := objExcel.ActiveWorkbook.Worksheets(3)

*--------------------------------------------------------------------
objSheet1:Cells( 1, 1 ):Value := "Hoja1 - fila 1"
objSheet1:Cells( 2, 1 ):Value := "Hoja1 - fila 2"
*--------------------------------------------------------------------
objSheet2:Cells( 1, 1 ):Value := "Hoja2 - fila 1"
objSheet2:Cells( 2, 1 ):Value := "Hoja2 - fila 2"
*--------------------------------------------------------------------
objSheet3:Cells( 1, 1 ):Value := "Hoja3 - fila 1"
objSheet3:Cells( 2, 1 ):Value := "Hoja3 - fila 2"

Lo intento este fin de semana, gracias.

[Tiger]

May be you can try .....

ADD SHEET

oExcel:Sheets:Add:Name:=oSheet:range("a3"):value() //add a Sheet before the ActiveSheet
oExcel:Worksheets:Add(after:=oExcel:Worksheets("Sheet5")):Name:="NewSheet"
oExcel:Worksheets:Add(before:=oExcel:Worksheets("Sheet5")):Name:=oSheet:range("a3"):value()
oExcel:sheets():Add(after:=oExcel:sheets("Chart2")):Name:="NewSheet" // sheets() CAN BE USED WITH "CHART" OR "SHEET"