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

发布网友发布时间：2022-05-06 22:09

共2个回答

热心网友时间：2023-09-24 08:52

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"

然后单击此按钮即可.

热心网友时间：2023-09-24 08:52

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