 | OLEObject iOLEExcel
iOLEExcel = CREATE OLEObject
iOLEExcel.ConnectToNewObject("excel.application")
iOLEExcel.Visible = FALSE
iOLEExcel.Workbooks.Open("c:\loadem.xls")
//----< MACRO >----
// NEW NUMBER FORMAT FOR COLUMN B
iOLEExcel.Columns("B:B").Select
iOLEExcel.Selection.NumberFormat = "#.##0,00"
// STRETCH COLUMN 1 and 2
iOLEExcel.Columns("A:A").EntireColumn.AutoFit
iOLEExcel.Columns("B:B").ColumnWidth = 19.14
// [1,2] - NEW VALUE
iOLEExcel.Range("A2").Select
iOLEExcel.ActiveCell.FormulaR1C1 = "_OBRAČUNANO_"
// [1,1], [2,1] - BOLD
iOLEExcel.Range("A1:B1").Select
iOLEExcel.Selection.Font.Bold = True
// [2,6] - BOLD
iOLEExcel.Range("B6").Select
iOLEExcel.Selection.Font.Bold = True
//----< END MACRO >----
iOLEExcel.Application.Activeworkbook.SaveAs("c:\file2.xls")
iOLEExcel.Application.Activeworkbook.Saved=TRUE
//Zapre alikacijo
iOLEExcel.Application.Quit
//Prekinemo povezavo z Objektom
iOLEExcel.DisConnectObject()
//Izbrišemo vse iz spomina
Destroy iOLEExcel
|
|
