1. Open Excel:
Code:
TmpExcelBuffer.OpenBook(FileName, SheetName);
TmpExcelBuffer.ReadSheet;
2.) Update Lines:
Code:
TmpExcelBuffer.GET(1,1);
TmpExcelBuffer."Cell Value as Text" := 'Hello';
3.) Update with new function in Excel buffer
Create method UpdateSheet in Excel Buffer!
Code:
TmpExcelBuffer.UpdateBook(FileName,SheetName);
TmpExcelBuffer.UpdateSheet(RowFilter, Spaltenfilter); //Which Row / Col TmpExcelBuffer.CloseBook;
UpdateSheet - Parameter ->RowNoFilter Text30 / ColumnNoFilter Text30
Code:
LastUpdate := CURRENTDATETIME;
ExcelBufferDialogMgt.Open(Text005);
IF RowNoFilter_p > '' THEN
SETFILTER("Row No.", RowNoFilter);
IF ColumnNoFilter_p > '' THEN
SETFILTER("Column No.", ColumnNoFilter);
CRLF := 10;
TotalRecNo := COUNT + InfoExcelBuf.COUNT;
RecNo := 0;
// commit is required because of the result boolean check of ExcelBufferDialogMgt.RUN
COMMIT;
IF FINDSET THEN
REPEAT
RecNo := RecNo + 1;
IF NOT UpdateProgressDialog(ExcelBufferDialogMgt,LastUpdate,RecNo,TotalRecNo) THEN BEGIN
QuitExcel;
ERROR(Text035)
END;
// IF Formula = '' THEN
WriteCellValue(Rec)
// ELSE
// WriteCellFormula(Rec)
UNTIL NEXT = 0;
ExcelBufferDialogMgt.Close;
---
Thats it!
