Skip links

Excel şablonu açıp farklı kaydetmek

Excel şablonu açıp farklı kaydetmek

Merhaba
Axaptada bir excel template açıp içini doldurup farklı kaydetmek aşşağıdaki kodla mümkün.
SysExcelApplication sysExcelApplication;
SysExcelWorkbooks   sysExcelWorkbooks;
SysExcelWorkbook    sysExcelWorkbook;
SysExcelWorksheets  sysExcelWorksheets;
SysExcelWorksheet   sheet_org;
SysExcelWorksheet   sheet_new;
SysExcelCells       cells;
SysExcelCell_XP     cell;

sysExcelApplication = SysExcelApplication::construct();
sysExcelApplication.visible(false);
sysExcelWorkbooks = sysExcelApplication.workbooks();
SablonName = “U:\\ORTAK\\NakliyeciRezForm\\Sablon.xls”;
sysExcelWorkbooks.open(SablonName);
sysExcelWorkbook  = sysExcelWorkbooks.item(1);
sysExcelWorksheets = sysExcelWorkbook.worksheets();
sheet_new         = sysExcelWorksheets.itemFromNum(1);
cells             = sheet_new.cells();
NewFileName = strRem(Date2str(ATMDisTicNakliyeci.DeliveryDate,321,2,2,2,2,4),’.’);
NewFileName += ‘_’+DlvName+ ‘_’ + num2str(AtmExcelSNTakip.SN,6,0,0,0);

sysExcelWorkbook.SaveAs(“U:\\deneme\\”+NewFileName+”.xls”);
sysExcelWorkbooks.close();
sysExcelApplication.quit();

Join the Discussion