<<< 返回 access911.net 编程静态资料库索引页

如何在Excel当前打开的所有工作簿中搜索某个字符串?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2010-6-4  浏览人次:800


专题地址:http://access911.net/fixhtm/72FABF1E10DCEBF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何在当前打开的所有工作簿中搜索某个字符串?
历年的账目每个月分一个 SHEET ,有10年的账目,120个SHEET 10个EXCEL 文档,如何在这些文档中搜索一个数据?

 


问题:

如何在当前打开的所有工作簿中搜索某个字符串?
历年的账目每个月分一个 SHEET ,有10年的账目,120个SHEET 10个EXCEL 文档,如何在这些文档中搜索一个数据?

 


回答:


Excel 没有内置上述功能,不过可以用模块来实现,代码如下,您可以将上述代码 COPY 到一个新建的模块中,将光标停留在“查找凭证号”这几个字上,然后按 F5 键运行。

Option Compare Text
Option Explicit

'在模块内使用,存放查询结果链接的工作表
Private wsHyperLink As Worksheet

'要测试本功能,请将光标停留在以下函数内,然后按 F5 键
Public Sub 查找凭证号()
    FindAllBatch "", " "
End Sub

'在当前工作簿建立一个用于存放查询结果链接的工作表
Private Function GetWsHyperLink()
On Error GoTo GetWsHyperLink_Err
    If wsHyperLink Is Nothing Then
        Se.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FABF1E10DCEBF3.htm

 


上一篇:如何判断VBA中的一个数组是否已经定义其维数上限下限。

下一篇:关于数据宏(DataMacro)的测试,TableEvents测试(二)

2017年2月22日生成静态资料