在VC中徹底玩轉Excel
如今Excel是越來越重要了,在我們自己開發的程序中不免要和Excel打交道了。利用Automation技術,我們可以在不去了解
數據庫的情況下玩轉Excel,而且你會發現一切竟如此輕鬆!
好了,咱們開始吧,我不喜歡用長篇累牘的代碼來故弄玄虛,所以下面的代碼都是切中要害的片段,總體上是個連貫的過程,
包括啓動Excel,讀取數據,寫入數據,以及最後的關閉Excel,其中還包括了很多人感興趣的合併單元格的處理。
特別說明以下代碼需要MFC的支持,而且工程中還要包含EXCEL2000的定義文件:EXCEL9.H,EXCEL9.CPP
*****************************************************************************************************************
//*****
//變量定義
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
Range iCell;
LPDISPATCH lpDisp;
COleVariant vResult;
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
//*****
//初始化COM的動態連接庫
if(!AfxOleInit())
{
AfxMessageBox("無法初始化COM的動態連接庫!");
return ;
}
//*****
//創建Excel 2000服務器(啓動Excel)
if(!app.CreateDispatch("Excel.Application"))
{
AfxMessageBox("無法啓動Excel服務器!");
return;
}
app.SetVisible(TRUE); //使Excel可見
app.SetUserControl(TRUE); //允許其它用戶控制Excel
//*****
//打開c://1.xls
books.AttachDispatch(app.GetWorkbooks());
lpDisp = books.Open("C:////1.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);
//*****
//讀取已經使用區域的信息,包括已經使用的行數、列數、起始行、起始列
Range usedRange;
usedRange.AttachDispatch(sheet.GetUsedRange());
range.AttachDispatch(usedRange.GetRows());
long iRowNum=range.GetCount(); //已經使用的行數
range.AttachDispatch(usedRange.GetColumns());
long iColNum=range.GetCount(); //已經使用的列數
long iStartRow=usedRange.GetRow(); //已使用區域的起始行,從1開始
long iStartCol=usedRange.GetColumn(); //已使用區域的起始列,從1開始
//*****
//讀取第一個單元格的值
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
COleVariant vResult =range.GetValue();
CString str;
if(vResult.vt == VT_BSTR) //字符串
{
str=vResult.bstrVal;
}
else if (vResult.vt==VT_R8) //8字節的數字
{
str.Format("%f",vResult.dblVal);
}
else if(vResult.vt==VT_DATE) //時間格式
{
SYSTEMTIME st;
VariantTimeToSystemTime(&vResult.date, &st);
}
else if(vResult.vt==VT_EMPTY) //單元格空的
{
str="";
}
//*****
//讀取第一個單元格的對齊方式,數據類型:VT_I4
//讀取水平對齊方式
range.AttachDispatch(sheet.GetCells());
iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
vResult.lVal=0;
vResult=iCell.GetHorizontalAlignment();
if(vResult.lVal!=0)
{
switch (vResult.lVal)
{
case 1: //默認
break;
case -4108: //居中
break;
case -4131 : //靠左
break;
case -4152 : //靠右
break;
}
}
//垂直對齊方式
iCell.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
vResult.lVal=0;
vResult=iCell.GetVerticalAlignment();
if(vResult.lVal!=0)
{
switch (vResult.lVal)
{
case -4160 : //靠上
break;
case -4108 : //居中
break;
case -4107 : //靠下
break;
}
}
//*****
//設置第一個單元格的值"HI,EXCEL!"
range.SetItem(COleVariant(1),COleVariant(1),COleVariant("HI,EXCEL!"));
//*****
//設置第一個單元格字體顏色:紅色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.SetColor(COleVariant((long)0xFF0000));
//*****
//合併單元格的處理
//包括判斷第一個單元格是否爲合併單元格,以及將第一個單元格進行合併
Range unionRange;
range.AttachDispatch(sheet.GetCells());
unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
vResult=unionRange.GetMergeCells();
if(vResult.boolVal==-1) //是合併的單元格
{
//合併單元格的行數
range.AttachDispatch (unionRange.GetRows ());
long iUnionRowNum=range.GetCount ();
//合併單元格的列數
range.AttachDispatch (unionRange.GetColumns ());
long iUnionColumnNum=range.GetCount ();
//合併區域的起始行,列
long iUnionStartRow=unionRange.GetRow(); //起始行,從1開始
long iUnionStartCol=unionRange.GetColumn(); //起始列,從1開始
}
else if(vResult.boolVal==0)
{//不是合併的單元格}
//將第一個單元格合併成2行,3列
range.AttachDispatch(sheet.GetCells());
unionRange.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );
unionRange.AttachDispatch(unionRange.GetResize(COleVariant((long)2),COleVariant((long)3)));
unionRange.Merge(COleVariant((long)0)); //合併單元格
//*****
//將文件保存爲2.xls
book.SaveAs(COleVariant("C:////2.xls"),covOptional,covOptional, //
covOptional,covOptional,covOptional,0,//
covOptional,covOptional,covOptional,covOptional);
//*****
//關閉所有的book,退出Excel
book.Close (covOptional,COleVariant(OutFilename),covOptional);
books.Close();
app.Quit();
關於excel.h和excel.cpp,要注意版本問題.
比如對excel xp, 類庫是直接包含在excel.exe中. 因此你只要用加入類(add class)的方法,直接選中excel.exe,並選擇對話框中的常用的幾個類(如Rang)就可以編程了. 千萬不要選所有的類,否則太大了.
作者:unionsoft 2003-11-29 11:00:34)
修改字體顏色的那段漏了一句,應爲:
//*****
//設置第一個單元格字體顏色:紅色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
作者:zhengkuo 2003-12-2 10:50:00)
如果,程序既要安裝在2000的計算機上,也可能安裝在XP的機子上,有的用戶還用97,(指的都是office),可能會出現版本問題------其中比較麻煩的是--在app.quit()後,仍舊存在excel進程,如果這樣?怎麼解決?
作者:zhengkuo 2003-12-2 10:51:50)
請教高手,能否用vb控制excel做成dll,在arx中進行調用,因爲畢竟vb與excel親切
作者:unionsoft 2004-1-30 11:06:58)
以下是引用zhengkuo在2003-12-2 10:50:00的發言:
如果,程序既要安裝在2000的計算機上,也可能安裝在XP的機子上,有的用戶還用97,(指的都是office),可能會出現版本問題------其中比較麻煩的是--在app.quit()後,仍舊存在excel進程,如果這樣?怎麼解決?
兼容性問題:
office2002-office97是向下兼容的,只要你不使用office2002中的新特性,程序在這些office版本中都好用
Excel程序不能退出的問題:
1 . 不要使用#import導入類型庫,如:#import "c://excel//excel.olb"
2 . 程序結束時,確保所有IDispatch都釋放了,如:app.ReleaseDispatch ();
作者:easypower 2004-5-14 10:00:39)
還是不明白如何得到excel.cpp和excel.h這兩個文件,請指教
作者:jack1975 2004-6-24 16:43:03)
有版本問題時,可以加一個判斷:1、首先通過 exlApp得到版本,比如9.0,10.0,11.0,10.0以後的版本注意open函數的參數爲15個,即最後在增加兩個covOptional,即可,另外,補充一下,判斷當前是否有excel應用程序在運行,使之更舒服一些:
::CLSIDFromProgID(L"Excel.Application",&clsid); // from registry
if(::GetActiveObject(clsid, NULL,&pUnk) == S_OK)
{
VERIFY(pUnk->QueryInterface(IID_IDispatch,(void**) &pDisp) == S_OK);
ExcelApp.AttachDispatch(pDisp);
pUnk->Release();
}
else
{
if(!ExcelApp.CreateDispatch("Excel.Application")) {
AfxMessageBox("Excel program not found");
return 0;
}
}
作者:unionsoft 2004-12-13 12:36:09)
以下是引用zhmary在2004-12-10 11:30:10的發言:
請問各位高手,從哪裏得onclick=Cswf() height=22 alt=Flash圖片 src="skins/default/ubb/swf.gif" width=23 border=0>到Excel.cp...
Excel.cpp和Excel.h是從Excel的類型庫中獲取的,類型庫類似C++中的頭文件,包括接口,方法,屬性的定義;類型庫在Excel的安裝目錄可以找到,Excel的版本不同,這個類型庫也不一樣,如下所示:
Excel 95 and prior : xl5en32.olb
Excel 97 : excel8.olb
Excel 2000 : excel9.olb
Excel 2002 : excel.exe
具體的獲取方法:
1 . 使用VC++新建立一個基於MFC的EXE工程
2 . 點擊菜單"查看"-->"建立類嚮導",此時會彈全"MFC ClassWizard"對話框
3 . 點擊"Add Class"-->"From a type libray",指定Excel的type libray,在Excel的安裝目錄下可以找到,如:"D://Microsoft Office//Office//EXCEL9.OLB"
4 . 在彈出的對話框中選擇所需的類,按"確定",Excel.cpp和Excel.h就產生了。
作者:yfy2003 2004-12-23 17:41:57)
lpDisp = books.Open("C:////1.xls",
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional );
編譯顯示錯誤:
error C2660: 'Open' : function does not take 13 parameters
作者:xux4618 2005-4-6 8:48:51)
請問怎樣才能增加一個工作表?
作者:夢幻神話 2005-4-6 15:50:40)
Workbooks.AttachDispatch(ExcelApp.GetWorkbooks());
Workbook.AttachDispatch(Workbooks.Open(FileName,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional,covOptional, covOptional));
Worksheets.AttachDispatch(Workbook.GetWorksheets());
Worksheet.AttachDispatch(Worksheets.GetItem((COleVariant((long)1))));
Range.AttachDispatch(Worksheet.GetCells());
iCell.AttachDispatch(Range.GetItem(COleVariant((long)2),COleVariant((long)2)).pdispVal);
vResult = iCell.GetMergeCells();
if(vResult.boolVal == -1)
{
AfxMessageBox("Yes");
Range.AttachDispatch(iCell.GetRows());
long row_num = Range.GetCount();
Range.AttachDispatch(iCell.GetColumns());
long col_num = Range.GetCount();
CString str;
str.Format("%d×%d",row_num,col_num);
AfxMessageBox(str);
}
請教:爲什麼str得到的結果都是1×1?(求合併單元格的原始行數和列數)。
謝謝。。。。。。。。。。
作者:unionsoft 2005-4-9 10:13:25)
首先你的Cells(2,2)是否處於合併單元格中
其次,你缺少了個關鍵語句:iCell.GetMergeArea()),你可以參考下面的語句
Range UnionRange;
UnionRange.AttachDispatch(iCell.GetMergeArea()); //先要獲取合併區域
range.AttachDispatch (UnionRange.GetRows ());
long iRowNum = range.GetCount(); //合併單元格行數
range.AttachDispatch (UnionRange.GetColumns ());
long iColNum = Range.GetCount(); //合併單元格列數
我就想在excel裏 實現,第一行爲標題(居中)
第二行爲時間(左對齊),下面爲9列數據.最後一行爲簽名(左對齊)
怎麼辦? 回覆 更多評論
# re: [轉]在VC中徹底玩轉Excel
2006-11-26 17:24 | 好學者
修改字體顏色的那段漏了一句,應爲:
//*****
//設置第一個單元格字體顏色:紅色
Font font;
range.AttachDispatch(sheet.GetCells());
range.AttachDispatch((range.GetItem (COleVariant(long(1)), COleVariant(long(1)))).pdispVal);
font.AttachDispatch (range.GetFont ());
font.SetColor(COleVariant((long)0xFF0000));
這樣改了還是不能用,Font是哪兒來的哦! 回覆 更多評論
# re: [轉]在VC中徹底玩轉Excel
2007-10-19 15:11 | 唐特
Font 和 _Application,Workbooks等等這些東西一樣, 是打開excel.exe(excel9.olb) 的時候添加的class 回覆 更多評論
# re: [轉]在VC中徹底玩轉Excel
2008-01-16 11:19 | HU
請教一個問題,現在出現了OFFICE 2007,在2000中做的程序,在2007下無法啓動EXCEL服務,就是CreateDispatch失敗。
但是,運行的環境既有2007,也會有老版本的EXCEL,這種情況下,怎麼辦?怎麼讓程序更有通用性?謝謝!!!! 回覆 更多評論
# re: [轉]在VC中徹底玩轉Excel
2008-01-25 10:55 | 想飛的星期
請問怎麼知道我createdispatch出來的excel已經關閉了??我還想每次重用同一個excel進程,怎麼辦? 回覆 更多評論
# re: [轉]在VC中徹底玩轉Excel
2008-03-28 14:56 | lamorak
你好,請教一下,我在做數據導入到excel中的程序,將3個文件的數據導入沒有問題,我爲了做測試,將這3個文件複製了44次,就是145個文件的數據,總共有6702314行,200M的數據量,轉換到75M數據的時候,Excel就不給轉了,就彈出Excel中“value,range,GetIDsOfNames”函數出錯,Excel大小有限制嗎?我這個差不多就是做9×3文件循環數據插入,第10個循環就錯了。我每次轉一個文件後都加了Sleep(2000),能幫忙解決一下嗎? 回覆 更多評論
本文來自CSDN博客,轉載請標明出處:http://blog.csdn.net/vicozo/archive/2009/04/12/4067804.aspx