/*For ActiveX (EXCEL OLE)*/
#define PG OlePropertyGet //取出屬性值
#define PS OlePropertySet //設定屬性值
#define FN OleFunction //呼叫有回傳值的函數
#define PR OleProcedure //呼叫無回傳值的函數
Variant gExcelAp, gWorkbook, gSheet, gCell; //宣告Variant變數
int __fastcall TForm1::OpenXls(String fName)
{
gExcelAp = CreateOleObject("Excel.Application");//開啟EXCEL應用程式
gExcelAp.PS("Visible",false);//設定EXCEL可視屬性為TRUE
gWorkbook = gExcelAp.PG("Workbooks").FN("Open", fName.c_str()); //開啟Excel檔,並取得活頁簿
}
//Write XLS
gSheet.PG("Cells", COL,ROW ).PS("Value", Value);
=> ROW: EXCEL 的第幾列
=> COL : EXCEL 的第幾行
=> Value : 要填入的值
int __fastcall TForm1::CloseXls()
{
gWorkbook.PR("Save"); //自動存檔到指定路徑
gWorkbook.PR("Close",true);//關閉活頁簿
gWorkbook = Unassigned;
gWorkbook = Unassigned;
gSheet = Unassigned;
gSheet = Unassigned;
gExcelAp.PR("Quit");//結束EXCEL應用程式
gExcelAp = Unassigned;
}
P.S. :
1. fName 為您要開啟EXCEL 的路徑
2. gExcelAp.PS("Visible",false);//設定EXCEL可視屬性為false
留言列表