MiniGUI
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