VB模糊查找excel文件并打开

Question

不好意思，刚写了标题就点提交了，所以没有内容
在电脑“d:\a\”的文件夹下有很多excel文档，比如：B型201111-150广东省2号客户....等文件,我的意思是在VB中有一个text文本框,在文本框里输入"B型201111-150”怎么打开这个“B型201111-150广东省2号客户.xls”的文件

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
'On Error GoTo lineno
'正常代码
Set xlBook = xlApp.Workbooks.Open(FileName:="D:\GZ\MX" & "\" & Text1(50).Text & ".xls") '打开已经存在的EXCEL工件簿文件
'xlApp.Visible = False
xlBook.RunAutoMacros (xlAutoClose)
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表

Answer 1

加上一个 FileList控件，设置它的Path=“d:\a\”
然后，
PartFileName=Text1(50).Text
i=0
Do while instr(1,filelist1.list(i), PartFileName)=0 and i< FileList1.Count
i=i+1
Loop
if i<>FileList1.Count then '找到相似的文件
……
ExcelFileName=FileList1.List(i)
xlApp.Workbooks.Open(FileName:="路径" & ExcelFileName) '打开已经存在的EXCEL工件簿文件
……
代码不全，主要是讲了 思路。

PS：有点不明白 的是你的代码中，打开Excel文件的那个，路径为什么和 你说 的 “d:\a\”路径不一样呢？追问

哈哈，路径只是一个说明，

Answer 2

这个 有个函数 instr是在一个字符串查找另外一个字符串 有就返回位置 没有就返回0 加上楼上的就可以了

Answer 3

？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？