[原創(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ù)，寫(xiě)入數(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ù)類(lèi)型: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, 類(lèi)庫(kù)是直接包含在excel.exe中. 因此你只要用加入類(lèi)(add class)的方法,直接選中excel.exe,并選擇對(duì)話框中的常用的幾個(gè)類(lèi)(如Rang)就可以編程了. 千萬(wàn)不要選所有的類(lèi),否則太大了.
作者：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)入類(lèi)型庫(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的類(lèi)型庫(kù)中獲取的，類(lèi)型庫(kù)類(lèi)似C++中的頭文件，包括接口，方法，屬性的定義；類(lèi)型庫(kù)在Excel的安裝目錄可以找到，Excel的版本不同，這個(gè)類(lèi)型庫(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)擊菜單"查看"-->"建立類(lèi)向?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ì)話框中選擇所需的類(lèi)，按"確定"，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，這種情況下，怎么辦？怎么讓程序更有通用性？謝謝?。。。?nbsp; 回復(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
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
//創(chuàng)建Excel 2000服務(wù)器(啟動(dòng)Excel)
if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
{
AfxMessageBox("創(chuàng)建Excel服務(wù)失敗!");
return;
}
//得到路徑
char cCurrentDir[255];
::GetCurrentDirectory(255, cCurrentDir);
CString str = cCurrentDir;
int iPos = str.ReverseFind('\\');
CString str1 = str.Left(iPos);
CString strDirectory;
strDirectory = _tcsdup(str1 + "\\MyTemplate.xlt");
//利用模板文件建立新文檔
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(strDirectory)));
//得到Worksheets
wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
//得到sheet1
wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
//得到全部Cells，此時(shí),rgMyRge是cells的集合
rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
//設(shè)置1行1列的單元的值 行 列
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("名稱(chēng)"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)2),_variant_t("時(shí)間"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)3),_variant_t("信息"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)4),_variant_t("級(jí)別"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)5),_variant_t("確認(rèn)時(shí)間"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)6),_variant_t("人"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)7),_variant_t("啊啊"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)8),_variant_t("cc"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)9),_variant_t("gh元"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)10),_variant_t("h"));
rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)11),_variant_t("dsf"));
//int j=m_theListCtrl.GetItemCount();
//CString str;
//str=m_theListCtrl.GetItemText(0,1);
//MessageBox(str);
for(int i = 2; i < m_theListCtrl.GetItemCount()+2; i++)
{
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)1),_variant_t(m_theListCtrl.GetItemText(i-2,0)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)2),_variant_t(m_theListCtrl.GetItemText(i-2,1)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)3),_variant_t(m_theListCtrl.GetItemText(i-2,2)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)4),_variant_t(m_theListCtrl.GetItemText(i-2,3)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)5),_variant_t(m_theListCtrl.GetItemText(i-2,4)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)6),_variant_t(m_theListCtrl.GetItemText(i-2,5)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)7),_variant_t(m_theListCtrl.GetItemText(i-2,6)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)8),_variant_t(m_theListCtrl.GetItemText(i-2,7)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)9),_variant_t(m_theListCtrl.GetItemText(i-2,8)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)10),_variant_t(m_theListCtrl.GetItemText(i-2,9)));
rgMyRge.SetItem(_variant_t((long)i),_variant_t((long)11),_variant_t(m_theListCtrl.GetItemText(i-2,10)));
}
//得到所有的列
rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);
//得到第一列 //設(shè)置列寬
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true);
rgMyRge.SetColumnWidth(_variant_t((long)15));
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)2),vtMissing).pdispVal,true);
rgMyRge.SetColumnWidth(_variant_t((long)15));
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)3),vtMissing).pdispVal,true);
rgMyRge.SetColumnWidth(_variant_t((long)16));
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)4),vtMissing).pdispVal,true);
rgMyRge.SetColumnWidth(_variant_t((long)15));
rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)5),vtMissing).pdispVal,true);
rgMyRge.SetColumnWidth(_variant_t((long)15));
//顯示excel表
wbMyBook.SetSaved(true);
ExcelApp.SetVisible(true);
//wbMyBook.PrintPreview(_variant_t(false));
//釋放對(duì)象
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
ExcelApp.ReleaseDispatch();
本文來(lái)自CSDN博客，轉(zhuǎn)載請(qǐng)標(biāo)明出處：http://blog.csdn.net/vicozo/archive/2009/04/12/4067835.aspx
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
SDK程序，沒(méi)有用MFC。
用的是excel2003
// StatisticsGen.cpp : Defines the entry point for the console application.
//
#include "stdafx.h"
int _tmain(int argc, _TCHAR* argv[])
{
// Dispatch interface
IDispatch *pDispExcel;
// Temporary variable to hold names.
unsigned short *ucPtr;
// ClSID of excel
CLSID clsidExcel;
// Return value
HRESULT hr;
// Initialize OLE Libraries.
OleInitialize(NULL);
// Get CLSID for Excel.Application from registry.
hr = CLSIDFromProgID(L"Excel.Application", &clsidExcel);
if ( FAILED(hr) )
{
MessageBox(NULL, "Excel not registered.", "Error", MB_OK);
goto __exit;
}
///////////////////////////////////////////////////////////////////////////////////////////////////
// Start excel and get its IDispatch pointer.
hr = CoCreateInstance(clsidExcel, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void**)&pDispExcel);
if ( FAILED(hr) )
{
MessageBox(NULL, "Couldn't start Excel.", "Error", MB_OK);
goto __exit;
}
///////////////////////////////////////////////////////////////////////////////////////////////////
// Get the 'visible' property's DISPID.
DISPPARAMS dispParamsVisible = { NULL, NULL, 0, 0};
VARIANT parmVisible;
DISPID dispidNamed = DISPID_PROPERTYPUT;
DISPID dispVisible;
ucPtr = L"Visible";
pDispExcel->GetIDsOfNames(IID_NULL, &ucPtr, 1, LOCALE_USER_DEFAULT, &dispVisible);
// Initialize parameters to set visible property to true.
VariantInit(&parmVisible);
parmVisible.vt = VT_I4;
parmVisible.llVal = 1;
// One argument.
dispParamsVisible.cArgs = 1;
dispParamsVisible.rgvarg = &parmVisible;
// Handle special-case for property-puts!
dispParamsVisible.cNamedArgs = 1;
dispParamsVisible.rgdispidNamedArgs = &dispidNamed;
// Set 'visible' property to true.
hr = pDispExcel->Invoke(dispVisible, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYPUT | DISPATCH_METHOD,
&dispParamsVisible, NULL, NULL, NULL);
VariantClear(&parmVisible);
if(FAILED(hr))
{
MessageBox(NULL, "Set visible!", "Failed!", MB_OK);
goto __exit;
}
/////////////////////////////////////////////////////////////////////////////////////////////////////
OLECHAR* szGetBooks = L"Workbooks";
DISPID dispGetWorkbooks;
VARIANT varBooks;
hr = pDispExcel->GetIDsOfNames(IID_NULL, &szGetBooks, 1, LOCALE_USER_DEFAULT, &dispGetWorkbooks);
if ( FAILED(hr) )
goto __exit;
DISPPARAMS dispParamsForGetBooks = { NULL, NULL, 0, 0};
hr = pDispExcel->Invoke(dispGetWorkbooks, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET | DISPATCH_METHOD,
&dispParamsForGetBooks, &varBooks, NULL, NULL);
if ( FAILED(hr) )
goto __exit;
///////////////////////////////////////////////////////////////////////////////////////////////////
// Open
IDispatch* pDispBooks;
IDispatch* pDispBook;
if ( varBooks.vt != VT_DISPATCH)
goto __exit;
else
{
// Get workbooks dispatch interface
pDispBooks = varBooks.pdispVal;
// Open
VARIANT varRetBook;
VARIANTARG varg;
varg.vt = VT_BSTR;
varg.bstrVal = _bstr_t("c:\\bool.xls");
DISPPARAMS dpOpen= { &varg, NULL, 1, 0 };
LPOLESTR lpOpen = L"Open";
DISPID dispOpen;
hr = pDispBooks->GetIDsOfNames(IID_NULL, &lpOpen, 1, LOCALE_USER_DEFAULT, &dispOpen);
if ( FAILED(hr) )
goto __exit;
hr = pDispBooks->Invoke(dispOpen, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET | DISPATCH_METHOD,
&dpOpen, &varRetBook, NULL, NULL);
if ( FAILED(hr) )
goto __exit;
if ( varRetBook.vt != VT_DISPATCH )
goto __exit;
else
pDispBook = varRetBook.pdispVal;
}
// worksheets
IDispatch* pDispSheets;
if ( pDispBook != NULL )
{
DISPPARAMS dpSheets = {NULL, NULL, 0, 0};
DISPID dispSheets;
LPOLESTR lpSheets = L"Worksheets";
VARIANT varRetSheets;
hr = pDispBook->GetIDsOfNames(IID_NULL, &lpSheets, 1, LOCALE_USER_DEFAULT, &dispSheets);
if ( FAILED(hr) )
goto __exit;
hr = pDispBook->Invoke(dispSheets, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET | DISPATCH_METHOD,
&dpSheets, &varRetSheets, NULL, NULL);
if ( FAILED(hr) )
goto __exit;
if ( varRetSheets.vt != VT_DISPATCH )
goto __exit;
else
pDispSheets = varRetSheets.pdispVal;
}
///////////////////////////////////////////////////////////////////////////////////////////////////
// worksheet
IDispatch* pDispSheet;
if ( pDispSheets != NULL )
{
VARIANT varRetSheet;
VARIANTARG vargSheet;
vargSheet.vt = VT_I4;
vargSheet.intVal = 1;
DISPPARAMS dpSheet = { &vargSheet, NULL, 1, 0 };
LPOLESTR lpSheet = L"Item";
DISPID dispSheet;
hr = pDispSheets->GetIDsOfNames(IID_NULL, &lpSheet, 1, LOCALE_USER_DEFAULT, &dispSheet);
if ( FAILED(hr) )
goto __exit;
hr = pDispSheets->Invoke(dispSheet, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET | DISPATCH_METHOD,
&dpSheet, &varRetSheet, NULL, NULL);
if ( FAILED(hr) )
goto __exit;
if ( varRetSheet.vt != VT_DISPATCH )
goto __exit;
else
pDispSheet = varRetSheet.pdispVal;
}
///////////////////////////////////////////////////////////////////////////////////////////////////
IDispatch* pDispRange;
if ( pDispSheet != NULL )
{
LPOLESTR lpCells = L"Cells";
DISPPARAMS dpCells = { NULL, NULL, 0, 0 };
DISPID dispCells;
VARIANT varRetRange;
hr = pDispSheet->GetIDsOfNames(IID_NULL, &lpCells, 1, LOCALE_USER_DEFAULT, &dispCells);
if ( FAILED(hr) )
goto __exit;
hr = pDispSheet->Invoke(dispCells, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET | DISPATCH_METHOD,
&dpCells, &varRetRange, NULL, NULL);
if ( FAILED(hr) )
goto __exit;
if ( varRetRange.vt != VT_DISPATCH )
goto __exit;
else
pDispRange = varRetRange.pdispVal;
}
///////////////////////////////////////////////////////////////////////////////////////////////////
// put value in Item property
if ( pDispRange != NULL )
{
LPOLESTR lpRangeItem = L"Item";
DISPID dispRangeItem;
hr = pDispRange->GetIDsOfNames(IID_NULL, &lpRangeItem, 1, LOCALE_USER_DEFAULT, &dispRangeItem);
if ( FAILED(hr) )
goto __exit;
VARIANT* vargRangeItem = new VARIANT[3];
for ( int i = 0; i < 3; i ++ )
VariantInit(&vargRangeItem[i]);
vargRangeItem[0].vt = VT_I4;
vargRangeItem[0].intVal = 1;
vargRangeItem[1].vt = VT_I4;
vargRangeItem[1].intVal = 1;
vargRangeItem[2].vt = VT_I4;
vargRangeItem[2].intVal = 1;
DISPPARAMS dpRangeItem = {NULL, NULL, 0, 0};
dpRangeItem.cArgs = 3;
dpRangeItem.rgvarg = vargRangeItem;
dpRangeItem.cNamedArgs = 1;
DISPID dispIDRangeItem = DISPID_PROPERTYPUT;
dpRangeItem.rgdispidNamedArgs = &dispIDRangeItem;
EXCEPINFO except;
hr = pDispRange->Invoke(dispRangeItem, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUT | DISPATCH_METHOD,
&dpRangeItem, NULL, &except, NULL);
delete []vargRangeItem;
if ( FAILED(hr) )
goto __exit;
}
///////////////////////////////////////////////////////////////////////////////////////////////////
// Save
if ( pDispBook )
{
LPOLESTR lpBookSave = L"Save";
DISPID dispIDBookSave;
hr = pDispBook->GetIDsOfNames(IID_NULL, &lpBookSave, 1, LOCALE_USER_DEFAULT, &dispIDBookSave);
if ( FAILED(hr) )
goto __exit;
DISPPARAMS dispBookSave = { NULL, NULL, 0, 0 };
hr = pDispBook->Invoke(dispIDBookSave, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &dispBookSave, NULL, NULL, NULL);
if ( FAILED(hr) )
goto __exit;
}
///////////////////////////////////////////////////////////////////////////////////////////////
// quit
if ( pDispExcel )
{
LPOLESTR lpExcelQuit = L"Quit";
DISPID dispIDExcelQuit;
hr = pDispExcel->GetIDsOfNames(IID_NULL, &lpExcelQuit, 1, LOCALE_USER_DEFAULT, &dispIDExcelQuit);
if ( FAILED(hr) )
goto __exit;
DISPPARAMS dispExcelQuit = { NULL, NULL, 0, 0 };
hr = pDispExcel->Invoke(dispIDExcelQuit, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &dispExcelQuit,
NULL, NULL, NULL);
if ( FAILED(hr) )
goto __exit;
}
__exit:
if ( pDispRange )
pDispRange->Release();
if ( pDispSheet )
pDispSheet->Release();
if ( pDispSheets )
pDispSheets->Release();
if ( pDispBook )
pDispBook->Release();
if ( pDispBooks )
pDispBooks->Release();
if ( pDispExcel )
pDispExcel->Release();
OleUninitialize();
return 0;
}
本文來(lái)自CSDN博客，轉(zhuǎn)載請(qǐng)標(biāo)明出處：http://blog.csdn.net/vicozo/archive/2009/04/12/4067838.aspx