Excel VBA。搜索工具

Question

我是Excel VBA的初学者并且有一些问题。

1. 我想根据用户输入（文件名）搜索指定的文件夹。我可以让这部分工作，但是，我希望它不仅仅搜索一种格式（ .docx ），还包括搜索 .pdf 和 .doc 。

澄清：
<element>下的文件夹包含扩展名为 .doc ， .docx 和 .pdf 的文件，我想搜索整个文件夹并在G:\NEWFOLDER\NAMEFOLDER上回复我的电子表格。

Sheet2

1. 如何在文档中搜索？

澄清：
上面的代码只告诉我用户输入是否位于编码路径内。我想要做的下一步是在该文档中搜索关键字并报告回电子表格。例如，在Dim NAME As String Dim File_Path As String NAME = InputBox(" Enter Your NAME (EX: JOHNP) ") File_Path = "G:\NEWFOLDER\NAMEFOLDER" & NAME & ".docx" If Dir(File_Path) <> "" Then ThisWorkbook.Sheets("Sheet2").Activate Range("D5") = ("Checked") Range("E5") = NAME Else MsgBox "NAME Not found" End If End Sub 中，有一列年龄。我希望代码用“22”向JOHNP.doc单元格报告。

是否可以使用word文档搜索，或者如果JOHNP采用excel格式，它会更好吗？

Answer 1

这应该对您有所帮助 - 这将循环显示指定文件夹位置中的文件（如果存在），并且仅定位.doc，.docx或{{1}的文件}。

关于你的第二个问题 - 是的，你可以从你的文件中提取这个数字，但是，你需要更具体地说明这个数字在哪里。如果它每次都在同一个位置，那么这将非常简单 - 希望在.pdf中，然后它会有一个明确的引用（如Table等。现在，这个下面的代码将遍历所有文件，当它找到第一个匹配时，它将为您打开word文档（然后退出循环）。

ActiveDocument.Tables(1).Cells(1,1)