求助大神！！模糊搜索到文件并打开【已解决】

x7893930

费用项目_2024060509131554_133719



文件名称是上面这个，因为每次导出的都带着后面的日期，想要每次都模糊查询找到    “*费用项目*”并且打开文件

vba应该如何去写，小白刚开始学，真心求教大神帮助

LIUZHU

Dir函数啊，支持通配符“费用项目*.xls*”

Peny2020

1.弄个窗口自己选文件
filepath = Application.GetOpenFilename("All Files,*.*", , "Select a file")
Set wk = Workbooks.Open(Filename:=filepath, ReadOnly:=True)
2.
Path = "C:\Users\"
If CreateObject("scripting.FileSystemObject").GetFolder(Path).Files.Count Then
xx = Dir(Path & "\" & "*费用项目*.xlsx")
dirPath = path & "\" & xx
Set wk2 = Workbooks.Open(dirPath)
Else
Exit Sub
End If

x7893930

LIUZHU 发表于 2024-6-5 17:24
Dir函数啊，支持通配符“费用项目*.xls*”

感谢大神提醒，解决了

x7893930

Peny2020 发表于 2024-6-5 17:29
1.弄个窗口自己选文件
filepath = Application.GetOpenFilename("All Files,*.*", , "Select a file")
S ...

万分感谢，学习了，果然是大神