如何当前EXCEL用VBA查找指定文件夹下指定名称EXCEL 20
我已经打开一个EXCEL文件,需要执行VBA后,弹出对话框,输入查询条件,然后在指定目录文件夹下查找,查找完成后自动复制所有内容作为一个新表到当前文件中。是不是查找指定文...
我已经打开一个EXCEL文件,需要执行VBA后,弹出对话框,输入查询条件,然后在指定目录文件夹下查找,查找完成后自动复制所有内容作为一个新表到当前文件中。
是不是查找指定文件夹下指定名称EXCEL工作薄
是的。谢谢您的回答。
运行后报警:对象不支持该动作。
Set fs = Application.FileSearch显示黄色
您能再帮助解释一下吗? 展开
是不是查找指定文件夹下指定名称EXCEL工作薄
是的。谢谢您的回答。
运行后报警:对象不支持该动作。
Set fs = Application.FileSearch显示黄色
您能再帮助解释一下吗? 展开
1个回答
展开全部
题目和内容 有点糊涂,不太明白你的意思。
是不是查找指定文件夹下指定名称EXCEL工作薄,然后在进行后续处理
下面例子可以查找指定目录下的所有excel文件,供参考
Dim iTemp1, iTemp2 As Integer
Dim sTemp1 As String
Dim totalFiles As Integer
sTemp = "D:\doc" ' 指定目录
Set FS = Application.FileSearch
With FS
.LookIn = sTemp
.Filename = "*.XLS"
.MatchAllWordForms = False
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
totalFiles = .FoundFiles.Count
For iTemp1 = 1 To totalFiles
sTemp1 = .FoundFiles(iTemp1)
iTemp2 = InStrRev(sTemp1, "\")
If iTemp2 <> 0 Then sTemp1 = Mid(sTemp1, iTemp2 + 1)
s = s & sTemp1
s = s & vbCrLf
Next iTemp1
MsgBox s '显示结果
End If
End With
是不是查找指定文件夹下指定名称EXCEL工作薄,然后在进行后续处理
下面例子可以查找指定目录下的所有excel文件,供参考
Dim iTemp1, iTemp2 As Integer
Dim sTemp1 As String
Dim totalFiles As Integer
sTemp = "D:\doc" ' 指定目录
Set FS = Application.FileSearch
With FS
.LookIn = sTemp
.Filename = "*.XLS"
.MatchAllWordForms = False
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
totalFiles = .FoundFiles.Count
For iTemp1 = 1 To totalFiles
sTemp1 = .FoundFiles(iTemp1)
iTemp2 = InStrRev(sTemp1, "\")
If iTemp2 <> 0 Then sTemp1 = Mid(sTemp1, iTemp2 + 1)
s = s & sTemp1
s = s & vbCrLf
Next iTemp1
MsgBox s '显示结果
End If
End With
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |