Insertar Hoja en libro Excel

[juanjogascem]

Muy buenas, estoy insertando hojas en un libro de excel pero se crean en la posicion de la hoja activa y me desplaza esta a la ultima posicion
Hoja1, Hoja2, Hoja6, Hoja5, Hoja4, Hoja3
Existe alguna forma de que las hojas se añadan al final?
como Sheets.Add After

el codigo que utilizo es:

oExcel := ExcelObj()
// Inicio
If oExcel == nil
MsgInfo( "Excel no está instalado", "Informe" )
RETURN(.F.)
Endif

oExcel := TOleAuto():New("Excel.Application")
oExcel:WorkBooks:Add()
oExcel:sheets("Hoja3"):Select()
oHoja:=oExcel:ActiveSheet()
oExcel:sheets:Add()

Saludos
Juan Jose

[Sebastián Almirón]

No no he probado, pero supongo que antes del oExcel:sheets:Add() debes posicionarte en la última hoja, algo así:

nultima := oExcel:Workbooks:Sheets:Count()
oExcel:Sheets:Item(nultima):Select()
oExcel:sheets:Add()


o también puedes después del oExcel:sheets:Add() moverla a la ultima posición:
oExcel:sheets:Add()
oHoja := oExcel:ActiveSheet()
oHoja:Move(,oExcel:Workbooks:Sheets:Count()) //Ojo debe ser el segundo parámetro de Move

[juanjogascem]

Sebastián, gracias por contestar

La primera opción que me das es la que estoy utilizando, y la hoja se crea en la posición de la hoja activa, desplazando esta a la derecha.

La segunda opción me da error y no la puedo poner en marcha

Encontré por el foro la siguiente instrucción

oBook := oExcel:ActiveWorkbook:Sheets:Add( oExcel:ActiveWorkbook:Worksheets( oExcel:ActiveWorkbook:Worksheets:Count() ) )

Pero actúa como el primer caso