Friday, August 14, 2009

Axapta : Sending data to Excel by X++


SysExcelApplication SysExcelApplication;
SysExcelWorksheet SysExcelWorksheet;
SysExcelWorksheets SysExcelWorksheets;
SysExcelWorkbooks SysExcelWorkbooks;
SysExcelWorkbook SysExcelWorkbook;
SysExcelRange SysExcelRange;
SysExcelCell SysExcelCell;
SysExcelCells SysExcelCells;
COMVariant COMVariant1;
#excel
// ข้างบนนี้ คือการ กำหนดตัวแปรกับ macro
;

sysExcelApplication = SysExcelApplication::construct();
sysExcelApplication.visible(false); //set ไม่ให้มัน show ตั้งแต่แรก
sysExcelWorkbooks = sysExcelApplication.workbooks();
COMVariant1 = new COMVariant();

COMVariant1.bStr('\\\\Axaptaserver\\AxaptaSP4\\Excel\\Losses.xls');
sysExcelWorkbook = sysExcelWorkbooks.add(COMVariant1); // สั่งให้เปิดไฟล์ที่กำหนดตามบรรทัดข้างบน
SysExcelWorksheets = sysExcelWorkbook.worksheets();
SysExcelWorksheet = SysExcelWorksheets.itemFromNum(1); // เลือกทำงานกับ Sheet ที่ 1
// SysExcelRange = SysExcelWorksheet.cells().range(#ExcelTotalRange);

SysExcelCell = SysExcelWorksheet.cells().item(1,1); // กำหนด cell ที่จะอ่านหรือเขียน
SysExcelCell.value(strfmt("Losses of %1 from %2 to %3",fromDate,toDate)); // เขียนข้อความลงไปใน cell ที่กำหนดเมื่อกี้

No comments: