VC++中調用EXCEL方法

我是調用EXCEL2003的基礎上寫的代碼，事後發現2007和2010版都可以兼容，微軟的程序接口在更新軟件時沒有改變還是很值得表揚的

Range類操作集合

range =sheet.GetRange(COleVariant("A1"), COleVariant("D1"));    // 獲得A1:D1的Range

range =sheet.GetRange(COleVariant("D2"),covOptional);                //獲得D2 Range

range =range.GetResize(COleVariant((long)NUMROWS), COleVariant((long)1)); //重新設置D2的大小
range.SetFormula(COleVariant("=C2*0.07"));                         // 給D2：D21設置公式

range.AutoFit();                                                                           //自動適合尺寸

oFont =range.GetFont();                                                             // 獲得Range的字體

Font類操作集合

oFont.SetBold(COleVariant((short)TRUE));                                   //設置是否粗體
oFont.SetColor(COleVariant((long)RGB(255, 0,0)));                    // 設置字體顏色

oFont.SetName(COleVariant("黑體"));                                      // 設置字體類型<span style="color:#333333;BACKGROUND: white"> </span>

range  = sheet.GetRange(COleVariant("A1"),covOptional);  //獲取A1 Range
range.SetValue2(COleVariant("Date"));                              // 添加數據

range = sheet.GetRange(COleVariant("A1"),COleVariant("D1"));    //獲得A1:D1的Range

oFont =range.GetFont();                                                             // 獲得Range的字體
oFont.SetBold(COleVariant((short)TRUE));                                   // 設置是否粗體
oFont.SetColor(COleVariant((long)RGB(255, 0, 0)));                    // 設置字體顏色

oFont.SetName(COleVariant("黑體"));                                      // 設置字體類型

range =range.GetEntireColumn();                                               //獲得全部的單元格
range.AutoFit();                                                                           //自動適合尺寸

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

 // 向單元格中添加公式

range= sheet.GetRange(COleVariant("D2"),covOptional);      //獲得D2 Range

range = range.GetResize(COleVariant((long)NUMROWS),COleVariant((long)1)); // 重新設置D2的大小
range.SetFormula(COleVariant("=C2*0.07"));                        // 給D2：D21設置公式

3、合併單元格

      //思路：1.先獲取A1：C1的Range範圍，然後重新定義此範圍，最後合併
      //         2.直接獲得A1:C2的Range範圍，直接合並。結果和第一種方法一樣
       

 Range unionRange;
unionRange =sheet.GetRange(COleVariant("A1"), COleVariant("C1"));
vResult = unionRange.GetMergeCells();
unionRange =unionRange.GetResize(COleVariant((long)2), COleVariant((long)3));
unionRange.Merge(COleVariant((long)0));      //合併單元格
unionRange.SetRowHeight(COleVariant((short)30));   //設置單元格的高度
unionRange.SetHorizontalAlignment(COleVariant((long)-4108));// 水平居中對齊

4、向單元格中插入圖片（支持BMP、JPG格式，其他沒試）

Shapes   shapes  =   sheet.GetShapes();       // 從Sheet對象上獲得一個Shapes
range   =sheet.GetRange(COleVariant("B16"),COleVariant("J22"));   // 獲得Range對象，用來插入圖片
rgMyRge1 = range;
shapes.AddPicture("D://Test1.jpg"  ,   false   ,   true   ,
                 (float)range .GetLeft().dblVal, (float)range .GetTop().dblVal,    //從本地添加一個圖片
                    (float)range .GetWidth().dblVal, (float)range .GetHeight().dblVal);
ShapeRange  sRange   =   shapes.GetRange(_variant_t(long(1)));
sRange.SetHeight(float(30));
sRange.SetWidth(float(30));

5、將已建的.xls文件另存爲

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
   book.SaveAs(COleVariant("D://3.xls"),covOptional,covOptional,
                               covOptional,covOptional,covOptional,0,
                               covOptional,covOptional,covOptional,covOptional,covOptional);

6、關閉Excel服務

COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    book.SetSaved(TRUE);     // 將Workbook的保存狀態設置爲已保存，即不讓系統提示是否人工保存
    range.ReleaseDispatch();    // 釋放Range對象
    sheet.ReleaseDispatch();    // 釋放Sheet對象
    sheets.ReleaseDispatch();    // 釋放Sheets對象

    book.ReleaseDispatch();     // 釋放Workbook對象
    books.ReleaseDispatch();    // 釋放Workbooks對象

    book.Close(covOptional, covOptional,covOptional);//關閉Workbook對象
    books.Close();           // 關閉Workbooks對象
    app.Quit();          // 退出_Application
   app.ReleaseDispatch();       // 釋放_Application

//得到所有的列    

rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);

//得到第一列    

rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true);

//打印預覽

wbMyBook.SetSaved(true);
ExcelApp.SetVisible(true);
wbMyBook.PrintPreview(_variant_t(false));

//調用模板中預先存放的宏

ExcelApp.Run(_variant_t("CopyRow"),_variant_t((long)10),vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);

//設置1行1列的單元的值

rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("ThisIs A Excel Test Program!"));

//獲取總共有多少個SHEET

sheets.get_Count();