agregar hojas en excel

[Luis g]

 
como puedo  agregar mas hojas en excel y cambiar el nombre 
y como puedo abrir un aexistente  y hacer lo mismo

[Fidel Charny]

* Crear un libro y agregar una hoja con un nombre

lcNombreHoja="Nombre de la Hoja"

Oexcel = CREATEOBJECT("Excel.Application")

olibro=oexcel.workbooks.ADD()  && agrega una hoja (sheet)

XLSheet = oexcel.ActiveSheet

XLSheet.NAME=Proper(lcNombreHoja)  && asigna un nombre para la hoja.

*oExcel.visible=.t.

* Nombre de las hojas en un libro existente.

xcFile="\lcRuta\Archivo.xls"

oExcel = CREATEOBJECT("Excel.Application")

oLibro=oExcel.Workbooks.Open(xcfile)

qHOjas=oExcel.Sheets.Count

dimension ganame(qhojas)

for bas=1 to qHojas

ganame[bas]=oExcel.Sheets(bas).Name  && nombre de cada hoja

next

*oExcel.visible=.t.

oLibro.Close()

oExcel.Quit

oExcel=null