MiniGUI

*::: Guardar como
oHoja:SaveAs( "Archivo.Xls" )

*::: Imprimir
oHoja:PrintOut()

*::: Guardar
// No se por que, pero funciona si elimino este archivo
FErase( "c:\MisDoc~1\Reanudar.xlw" )
oExcel:Save()

*::: Agregar hoja nueva
oExcel:Sheets:Add()

*::: Renombrar las Hojas
oExcel:Sheets("Hoja1"):Name := "Contado"
oExcel:Sheets("Hoja2"):Name := "Credito"
oExcel:Sheets("Hoja3"):Name := "Otros"
oExcel:Sheets("Hoja4"):Name := "Varios"

*::: Mover una Hoja
oExcel:Sheets("Varios"):Move("After",4)

*::: Cambiar de Hoja Actual
oExcel:Sheets("Contado"):Select()

*::: Borra una Hoja
oExcel:Sheets("Varios"):Delete()

*::: Hoja Activa
oHoja := oExcel:Get( "ActiveSheet" )

*::: Cierra el libro
oExcel:WorkBooks:Close()

*::: Cierra el Excel
oExcel:Quit()

*::: Aliniamiento
oHoja:Cells( nRow, nCol ):Set("HorizontalAlignment","7") // Centrado
oHoja:Cells( nRow, nCol ):Set("HorizontalAlignment","4") // Izquierda
oHoja:Cells( nRow, nCol ):Set("HorizontalAlignment","1") // Derecha

oHoja:Cells( nRow, nCol ):HorizontalAlignment := -4108 //Centrar
oHoja:Cells( nRow, nCol ):HorizontalAlignment := -4152 //Derecha
oHoja:Cells( nRow, nCol ):HorizontalAlignment := -4131 //Izquierda

*::: Borde
oHoja:Cells( nRow, nCol ):Borders(7):LineStyle := 1 // Left
oHoja:Cells( nRow, nCol ):Borders(8):LineStyle := 1 // Top
oHoja:Cells( nRow, nCol ):Borders(9):LineStyle := 1 // Bottom
oHoja:Cells( nRow, nCol ):Borders(10):LineStyle := 1 // Right

*::: Tipo de Linea del Borde
oHoja:Cells( nRow, nCol ):Borders(7):Weight := 3 // Left - Grueso
oHoja:Cells( nRow, nCol ):Borders(8):Weight := 3 // Top - Grueso
oHoja:Cells( nRow, nCol ):Borders(9):Weight := 3 // Bottom - Grueso
oHoja:Cells( nRow, nCol ):Borders(10):Weight := 3 // Right - Grueso

oHoja:Cells( nRow, nCol ):Borders(9):Weight := 1 // _ _ _ intercalada
oHoja:Cells( nRow, nCol ):Borders(9):Weight := 2 // _____ Fina
oHoja:Cells( nRow, nCol ):Borders(9):Weight := 3 // ____ grueso
oHoja:Cells( nRow, nCol ):Borders(9):Weight := 4 // ____ más grueso

*:::Borde a un Rango
oHoja:Range( "A3:D6" ):Borders(7):LineStyle := 1 // Left - Linea simple
oHoja:Range( "A3:D6" ):Borders(8):LineStyle := 1 // Top - Linea simple
oHoja:Range( "A3:D6" ):Borders(9):LineStyle := 1 // Bottom - Linea simple
oHoja:Range( "A3:D6" ):Borders(10):LineStyle := 1 // Right - Linea simple

cRango := "A"+Str(nRow,1,0)+":"+Chr(65+FCount())+Str(nRow,1,0)
oHoja:Range( cRango ):Borders(9):LineStyle := 1 // Bottom - Linea simple

*::: Asignar valor y Formato a la celda
oHoja:Cells( nRow, nCol ):Value := nRow
oHoja:Cells( nRow, nCol ):Set("NumberFormat","##0,00%") // Formato a la Celda

*::: Ancho de columnas Manual
oHoja:Columns( 1 ):Set("ColumnWidth","30")
oHoja:Columns( 4 ):Set("ColumnWidth","15")

*::: Formato de Columnas
oHoja:Columns( 2 ):Set("NumberFormat","#.##0,00")
oHoja:Columns( 3 ):Set("NumberFormat","DD-MM-YYYY")

*::: Automatico ancho de las Columnas
FOR nCol := 1 TO FCOUNT()
oHoja:Columns( nCol ):AutoFit()
NEXT