请教高人：excel中查找指定文件夹中的文件名

来源：百度知道 编辑：UC知道 时间：2024/05/27 08:54:18
我想在excel中通过数据区域中的姓名在指定文件夹中查找并引用与之相同的文件名。例如数据区域中有个李剑的名称，我想在指定的文件夹中查找是否有叫李剑.xls的文件，应该如何操作，请教高人！
敝人对宏不懂，能否详解使用方法，万分感谢。

Sub dd()
Dim a As Range
Dim b As Range
Dim filename As String
Dim FilePath As String
Dim fso As Object
FilePath = "d:\" '假设文件在D盘
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = Range("a1:a10") '名称区域
For Each b In a
filename = b.Value & ".xls"
If fso.FileExists(FilePath & filename) Then
msgbox filename & " 文件存在"
Else
msgbox filename & " 文件不存在"
End If
Next
End Sub

工具->宏->Visual Basic编辑器

打开后:插入->模块

然后粘贴入上面的代码.

关闭Visual Basic编辑器

视图->工具栏->窗体

在工作表中插入一个按钮.

在弹出的"指定宏"对话框中选择"dd"

然后单击此按钮即可.

你在单元格中输入李剑，然后加入超级链接不就可以了吗