/*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

arrow
arrow
    全站熱搜

    Jacson 發表在 痞客邦 留言(0) 人氣()