C#Excel文本搜索應(yīng)用淺析
C#Excel文本搜索應(yīng)用是如何實(shí)現(xiàn)的呢?有了在Word文檔中編程實(shí)現(xiàn)搜索文本的經(jīng)驗(yàn),在Excel中實(shí)現(xiàn)這個(gè)功能也并非難事。那么下面我們來看看具體的實(shí)現(xiàn)過程是什么?
C#Excel文本搜索的技術(shù)支持:
打開Excel的VBA幫助,查看Excel的對(duì)象模型,很容易找到完成這個(gè)功能需要的幾個(gè)集合和對(duì)象:Application、Workbooks、Workbook、Worksheets還有Worksheet和Range。Application創(chuàng)建Excel應(yīng)用,Workbooks打開Excel文檔,Workbook獲得Excel文檔工作薄,Worksheets操作工作表集合,Worksheet獲得單個(gè)工作表。
搜索的思路對(duì)應(yīng)上述集合和對(duì)象,可以這樣表述:要搜索的文本可能存在Excel文檔當(dāng)中的某個(gè)工作表上,搜索應(yīng)該遍歷目標(biāo)Excel文件的每個(gè)工作表中的有效區(qū)域,如果找到,則退出本次搜索,如果沒有找到,則繼續(xù)搜索直到完成本次搜索。
跟Word對(duì)象模型不一樣的是,Excel對(duì)象模型沒有提供Find對(duì)象,不過沒有關(guān)系,可以通過兩種方法來實(shí)現(xiàn),一個(gè)是通過Range對(duì)象的Find()方法來實(shí)現(xiàn),另外一個(gè)比較麻煩,取得工作表Worksheet的有效區(qū)域UsedRange之后,遍歷該Range對(duì)象中的所有行列。實(shí)際開發(fā)中,用第二種方法時(shí)發(fā)現(xiàn)了一個(gè)特別的現(xiàn)象,所以第二種方法也準(zhǔn)備詳細(xì)記述一下。
C#Excel文本搜索的實(shí)現(xiàn),打開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);
C#Excel文本搜索之遍歷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;
- }
- }
這里要說兩個(gè)值得注意的地方。一個(gè)是遍歷工作表的索引,不是從0開始,而是從1開始;另外一個(gè)是Find方法的第六個(gè)參數(shù)SearchDirection,指定搜索的方向,幫助文檔中說這個(gè)參數(shù)是可選項(xiàng),但是我用MissingValue如論如何編譯不能通過,不知什么原因,于是顯式指定它的默認(rèn)值xlNext。
第一種方法實(shí)現(xiàn)了,再看看第二種方法。這種方法除了要遍歷工作表,還要對(duì)工作表使用區(qū)域的行和列進(jìn)行遍歷。其它一樣,只對(duì)遍歷說明,代碼如下:
- 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);
- }
- }
- }
- }
顯然這種方法比第一種繁瑣得多,不過這里有一個(gè)關(guān)于遍歷單元格的索引很特別的地方,當(dāng)工作表中的使用區(qū)域UsedRange為單行單列的時(shí)候,對(duì)UsedRange中的單元格遍歷起始索引值為1,為多行多列的時(shí)候,起始索引值為0,不知這是Excel程序設(shè)計(jì)者出于什么樣的考慮?
C#Excel文本搜索的操作基本內(nèi)容就向你介紹到這里,希望對(duì)你了解和學(xué)習(xí)C#Excel文本搜索有所幫助。
【編輯推薦】