C#查看Excel對(duì)象模型分析
C#語(yǔ)言有很多值得學(xué)習(xí)的地方,這里我們主要介紹C#查看Excel對(duì)象模型,包括介紹Range對(duì)象的Find()方法等方面。
打開(kāi)Excel的VBA幫助,C#查看Excel對(duì)象模型,很容易找到完成這個(gè)功能需要的幾個(gè)集合和對(duì)象:Application、Workbooks、Workbook、Worksheets還有Worksheet和Range。Application創(chuàng)建Excel應(yīng)用,Workbooks打開(kāi)Excel文檔,Workbook獲得Excel文檔工作薄,Worksheets操作工作表集合,Worksheet獲得單個(gè)工作表。
搜索的思路對(duì)應(yīng)上述集合和對(duì)象,可以這樣表述:要搜索的文本可能存在Excel文檔當(dāng)中的某個(gè)工作表上,搜索應(yīng)該遍歷目標(biāo)Excel文件的每個(gè)工作表中的有效區(qū)域,如果找到,則退出本次搜索,如果沒(méi)有找到,則繼續(xù)搜索直到完成本次搜索。
跟Word對(duì)象模型不一樣的是,C#查看Excel對(duì)象模型沒(méi)有提供Find對(duì)象,不過(guò)沒(méi)有關(guān)系,可以通過(guò)兩種方法來(lái)實(shí)現(xiàn),一個(gè)是通過(guò)Range對(duì)象的Find()方法來(lái)實(shí)現(xiàn),另外一個(gè)比較麻煩,取得工作表 Worksheet的有效區(qū)域UsedRange之后,遍歷該Range對(duì)象中的所有行列。實(shí)際開(kāi)發(fā)中,用第二種方法時(shí)發(fā)現(xiàn)了一個(gè)特別的現(xiàn)象,所以第二種方法也準(zhǔn)備詳細(xì)記述一下。
***步,打開(kāi)Excel文檔:
- object filename="";
- object MissingValue=Type.Missing;
- string strKeyWord=""; //指定要搜索的文本,如果有多個(gè),則聲明string[]
- Excel.Application ep=new Excel.ApplicationClass();
- Excel.Workbook ew=ep.Workbooks.Open(filename.ToString(),MissingValue,
- MissingValue,MissingValue,MissingValue,
- MissingValue,MissingValue,MissingValue,
- MissingValue,MissingValue,MissingValue,
- MissingValue,MissingValue,MissingValue,
- MissingValue);
然后準(zhǔn)備遍歷Excel工作表:
- Excel.Worksheet ews;
- int iEWSCnt=ew.Worksheets.Count;
- int i=0,j=0;
- Excel.Range oRange;
- object oText=strKeyWord.Trim().ToUpper();
- for(i=1;i<=iEWSCnt;i++)
- {
- ews=null;
- ews=(Excel.Worksheet)ew.Worksheets[i];
- oRange=null;
- (Excel.Range)oRange=((Excel.Range)ews.UsedRange).Find(
- oText,MissingValue,MissingValue,
- MissingValue,MissingValue,Excel.XlSearchDirection.xlNext,
- MissingValue,MissingValue,MissingValue);
- if (oRange!=null && oRange.Cells.Rows.Count>=1 && oRange.Cells.Columns.Count>=1)
- {
- MessageBox.Show("文檔中包含指定的關(guān)鍵字!","搜索結(jié)果",MessageBoxButtons.OK);
- break;
- }
- }
這里要說(shuō)兩個(gè)值得注意的地方。一個(gè)是遍歷工作表的索引,不是從0開(kāi)始,而是從1開(kāi)始;另外一個(gè)是Find方法的第六個(gè)參數(shù) SearchDirection,指定搜索的方向,幫助文檔中說(shuō)這個(gè)參數(shù)是可選項(xiàng),但是我用MissingValue如論如何編譯不能通過(guò),不知什么原因,于是顯式指定它的默認(rèn)值xlNext。
***種方法實(shí)現(xiàn)了,再看看第二種方法。這種方法除了要遍歷工作表,還要對(duì)工作表使用區(qū)域的行和列進(jìn)行遍歷。其它一樣,只對(duì)遍歷說(shuō)明,代碼如下:
- bool blFlag=false;
- int iRowCnt=0,iColCnt=0,iBgnRow,iBgnCol;
- for(m=1;m<=iEWSCnt;m++)
- {
- ews=(Excel.Worksheet)ew.Worksheets[m];
- iRowCnt=0+ews.UsedRange.Cells.Rows.Count;
- iColCnt=0+ews.UsedRange.Cells.Columns.Count;
- iBgnRow=(ews.UsedRange.Cells.Row>1)?
- ews.UsedRange.Cells.Row-1:ews.UsedRange.Cells.Row;
- iBgnCol=(ews.UsedRange.Cells.Column>1)?
- ews.UsedRange.Cells.Column-1:ews.UsedRange.Cells.Column;
- for(i=iBgnRow;i<iRowCnt+iBgnRow;i++)
- {
- for(j=iBgnCol;j<iColCnt+iBgnCol;j++)
- {
- strText=((Excel.Range)ews.UsedRange.Cells[i,j]).Text.ToString();
- if (strText.ToUpper().IndexOf(strKeyWord.ToUpper())>=0)
- {
- MessageBox.Show("文檔中包含指定的關(guān)鍵字!","搜索結(jié)果",MessageBoxButtons.OK);
- }
- }
- }
- }
顯然這種方法比***種繁瑣得多,不過(guò)這里有一個(gè)關(guān)于遍歷單元格的索引很特別的地方,當(dāng)工作表中的使用區(qū)域UsedRange為單行單列的時(shí)候,對(duì)UsedRange中的單元格遍歷起始索引值為1,為多行多列的時(shí)候,起始索引值為0,不知這是Excel程序設(shè)計(jì)者出于什么樣的考慮?以上是介紹C#查看Excel對(duì)象模型。
【編輯推薦】