19. Dezember 2018 12:14
ServerFilename := FileManagement.UploadFileSilent(FileName);
ExcelBuffer.DELETEALL;
ExcelBuffer.OpenBook(ServerFilename,'Results');
ExcelBuffer.ReadSheet;
Col := 6;
Row := 6;
IF NOT ExcelBuffer.GET(Row,Col) THEN BEGIN
ExcelBuffer.SetCurrent(Row,Col);
ExcelBuffer.AddColumn('hhhhhh',FALSE,'',FALSE,FALSE,FALSE,'',0);
END;
ExcelBuffer.UpdateBook(ServerFilename,'Results');
ExcelBuffer.WriteSheet('Test',COMPANYNAME,USERID);
ExcelBuffer.OnlyOpenExcel;
ExcelBuffer.CloseBook;
19. Dezember 2018 12:25
19. Dezember 2018 14:14