用VB通过文件名打开指定文件夹下EXCEL文件
在一个VB程序中,有一个TEXT文本框和一个COMMAND1按钮,现在通过在TEXT文本框中输入EXCEL文件的部分文件名(也就是所有的文件名前8位数字,是唯一的),点击确定按钮来打开文件,文件在一个大的文件夹里面(内部有子文件夹),应该怎么来写相应的代码,请各位帮忙,谢谢!我不会写查找的代码
Private Sub CmdOK_Click()
If TextPoNum.Text = "" Then
MsgBox "请输入你需要打开的EXCEL文件!"
Else
Dim oleExcel As Object
Dim PoNum As String
Set oleExcel = CreateObject("Excel.Application")
oleExcel.Visible = True
oleExcel.Workbooks.Open FileName:="这里不知道怎么写"
End If
End Sub