[轉]在VC中徹底玩轉Excel
[原創]在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();

---

作者 ：龔敏Email : truetable@truetable.com主頁 ：http://www.truetable.com

[此貼子已經被作者于2004-10-8 8:21:13編輯過]
作者：leeyeafu 2003-10-28 12:50:37)

先給適當獎勵，本想加入精華，但那樣剛到明經的朋友就看不到了，過段時間再說吧。
作者：goldenshin 2003-10-28 14:49:26)

關于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;
}

}

作者：liuxinmin 2004-6-29 14:03:53)

高手,真的厲害
作者：白菜樂園 2004-10-6 17:34:59)

支持原創！！！
作者：xysyr 2004-10-31 15:55:11)

在vc中怎樣添加excel的sheet呢？請教。
作者：kingchen 2004-11-14 20:34:18)

高手。厲害
我也要象你一樣厲害

！

此主題相關圖片如下：
按此在新窗口瀏覽圖片或鼠標滾輪縮放圖片

作者：zhmary 2004-12-10 11:30:10)

請問各位高手，從哪里得到Excel.cpp Excel.h?
作者：unionsoft 2004-12-13 12:36:09)

以下是引用zhmary在2004-12-10 11:30:10的發言：
請問各位高手，從哪里得οnclick=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(); //合并單元格列數

posted on 2005-05-25 10:29 子玉 閱讀(18050) 評論(19) 編輯 收藏

FeedBack:

re: [轉]在VC中徹底玩轉Excel

2005-07-19 16:18 | hj
請問，我試著用你的定義字體顏色那段程序，但調試時老是說：“AttachDispatch’ : is not a member of ‘Font‘不知道為什么 ，我的font變量定義成Font對嗎？ 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2006-01-01 17:00 | 劉
請問各位高手：怎樣讀取含有公式的單元格中的數據？謝謝 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2006-09-22 10:23 | qianliyanyun
我就想在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），能幫忙解決一下嗎？ 回復 更多評論

re: [轉]在VC中徹底玩轉Excel[未登錄]

2008-04-14 10:27 | hehe
能提供這個程序的源碼嗎？
我想學習一下！~

saicowong@qq.com

謝謝 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2008-04-27 01:24 | tigerdrj
關于CreateDispatch創建excel服務失敗 的問題??
說是版本的問題,現在有什么解決的方案嗎..??

可否告知… tigerdrj@gmail.com 回復 更多評論

re: [轉]在VC中徹底玩轉Excel[未登錄]

2008-05-08 10:38 | 王濤
受益匪淺！！

多謝了！！ 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2008-05-29 15:55 | guoming
受益匪淺！
請問版主如何實現在單元格里的字能自動換行？
哪里有相關的詳細資料呀?如有敬請推薦啦，謝謝！！

回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2008-09-28 11:58 | cqwally
謝謝，很有參考價值 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2008-12-30 10:43 | emily
vc如何讀寫EXCELL中的combox(列表中的內容以及當前值)？
多謝幫忙~！ 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2009-03-04 16:03 | chenyue
多謝了. 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2009-06-13 17:28 | 魔獸私服
小說文筆灑脫靈秀，情節跌宕起伏，人物復雜逼真.. 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2010-03-18 15:23 | lesheng
謝謝樓主，我有個問題是如何將一幅圖填入excel一個單元格中。

liu_shenglun@126.com 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2012-08-24 11:31 | 外文系
Range是抽象類怎么可以定義呢？？？ 回復 更多評論

re: [轉]在VC中徹底玩轉Excel

2013-01-20 17:41 | Kerwin
你好，請教一下，我編譯的時候是在本機（本機裝的是office2010）,那Excel的版本是多少呢？用于操作office2003中的excel有問題么？
現在是想先獲得某個合并單元格的值，然后是向excel內寫數據，但是我循環第一次能得到數據，循環第二次得到第二個單元格的值就是空的。為什么呢？ 回復 更多評論

總結

以上是生活随笔為你收集整理的[转]在VC中彻底玩转Excel的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。