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