1. 程式人生 > >《讀取xls檔案示例》

《讀取xls檔案示例》

讀取xls檔案示例 :

       //變數定義

       _Application app;          //Excel應用程式介面

       Workbooks books;         //工作薄集合

       _Workbook book;          //工作薄

       Worksheets sheets;         //工作表集合

       _Worksheet sheet;          //工作表

       Range range;                 //Excel中針對單元格的操作都應先獲取其對應的Range物件

       Font font;

       Range cols;

       Range iCell;

       LPDISPATCH lpDisp;   

       COleVariant vResult;

       COleVariant

              covTrue((short)TRUE),

              covFalse((short)FALSE),

              covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); 

    //初始化

       if( !app.CreateDispatch(L"Excel.Application") ){

              this->MessageBox(L"無法建立Excel應用!");

              return;

       }

       app.SetVisible(TRUE);     //可見

       app.SetUserControl(TRUE); //使用者可控制

       //開啟XLS檔案

       books.AttachDispatch(app.GetWorkbooks());

       lpDisp = books.Open(L"d:\\3.xls",     

              covOptional, covOptional, covOptional, covOptional, covOptional,

              covOptional, covOptional, covOptional, covOptional, covOptional,

              covOptional, covOptional );  

       //得到Workbook

    book.AttachDispatch(lpDisp);

       //得到Worksheets

       sheets.AttachDispatch(book.GetWorksheets());

       //得到當前活躍sheet

       //如果有單元格正處於編輯狀態中,此操作不能返回,會一直等待

       lpDisp=book.GetActiveSheet();

       sheet.AttachDispatch(lpDisp);