EnterCell(RowNo : Integer;ColumnNo : Integer;CellValue : Text[50];Bold : Boolean;Italic : Boolean;UnderLine : Boolean) TempExcelBuffer.INIT; TempExcelBuffer.VALIDATE("Row No.",RowNo); TempExcelBuffer.VALIDATE("Column No.",ColumnNo); TempExcelBuffer."Cell Value as Text" := CellValue; TempExcelBuffer.Formula := ''; TempExcelBuffer.Bold := Bold; TempExcelBuffer.Italic := Italic; TempExcelBuffer.Underline := UnderLine; TempExcelBuffer.INSERT;
Comments
CASE Option OF
Option :: "Update Workbook" : BEGIN
TempExcelBuffer.OpenBook(FileName,SheetName);
TempExcelBuffer.CreateSheet(SheetName,'',COMPANYNAME,USERID);
TempExcelBuffer.GiveUserControl;
END;
Option :: "Create Workbook" : BEGIN
TempExcelBuffer.CreateBook;
TempExcelBuffer.CreateSheet(SheetName,'',COMPANYNAME,USERID);
TempExcelBuffer.GiveUserControl;
END;
END;
Thanks for help