知识大全 C#实现在Excel文档中搜索文本

Posted 2022-07-17 知

篇首语：知识就是力量，时间就是生命。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 C#实现在Excel文档中搜索文本相关的知识，希望对你有一定的参考价值。

C#实现在Excel文档中搜索文本 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

打开Excel的VBA帮助查看Excel的对象模型很容易找到完成这个功能需要的几个集合和对象 Application Workbooks Workbook Worksheets还有Worksheet和Range Application创建Excel应用 Workbooks打开Excel文档 Workbook获得Excel文档工作薄 Worksheets操作工作表集合 Worksheet获得单个工作表　　搜索的思路对应上述集合和对象可以这样表述要搜索的文本可能存在Excel文档当中的某个工作表上搜索应该遍历目标Excel文件的每个工作表中的有效区域如果找到则退出本次搜索如果没有找到则继续搜索直到完成本次搜索　　跟Word对象模型不一样的是 Excel对象模型没有提供Find对象不过没有关系可以通过两种方法来实现一个是通过Range对象的Find()方法来实现另外一个比较麻烦取得工作表Worksheet的有效区域UsedRange之后遍历该Range对象中的所有行列实际开发中用第二种方法时发现了一个特别的现象所以第二种方法也准备详细记述一下　　第一步打开Excel文档

object filename= ; object MissingValue=Type Missing; string strKeyWord= ; //指定要搜索的文本 如果有多个 则声明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);

　　然后准备遍历Excel工作表

Excel Worksheet ews; int iEWSCnt=ew Worksheets Count; int i= j= ; Excel Range oRange; object oText=strKeyWord Trim() ToUpper(); for(i= ;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>= && oRange Cells Columns Count>= )  MessageBox Show( 文档中包含指定的关键字！ 搜索结果 MessageBoxButtons OK); break;

　　这里要说两个值得注意的地方一个是遍历工作表的索引不是从开始而是从开始另外一个是Find方法的第六个参数SearchDirection 指定搜索的方向帮助文档中说这个参数是可选项但是我用MissingValue如论如何编译不能通过不知什么原因于是显式指定它的默认值xlNext 　　第一种方法实现了再看看第二种方法这种方法除了要遍历工作表还要对工作表使用区域的行和列进行遍历其它一样只对遍历说明代码如下

bool blFlag=false; int iRowCnt= iColCnt= iBgnRow iBgnCol; for(m= ;m<=iEWSCnt;m++)  ews=(Excel Worksheet)ew Worksheets[m]; iRowCnt= +ews UsedRange Cells Rows Count; iColCnt= +ews UsedRange Cells Columns Count; iBgnRow=(ews UsedRange Cells Row> )? ews UsedRange Cells Row :ews UsedRange Cells Row; iBgnCol=(ews UsedRange Cells Column> )? ews UsedRange Cells Column :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())>= )  MessageBox Show( 文档中包含指定的关键字！ 搜索结果 MessageBoxButtons OK);

　　显然这种方法比第一种繁琐得多不过这里有一个关于遍历单元格的索引很特别的地方当工作表中的使用区域UsedRange为单行单列的时候对UsedRange中的单元格遍历起始索引值为为多行多列的时候起始索引值为不知这是Excel程序设计者出于什么样的考虑？ cha138/Article/program/net/201311/11986