如今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();
*****************************************************************************************************************
[轉]在VC中徹底玩轉Excel
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.