UC知道EXCEL中用vba导入文件如果文件名不包含2009则退出怎么改
来源：百度知道 编辑：UC知道 时间：2024/06/04 07:16:16
Private Sub CommandButton1_Click()
Dim wkbk As Workbook '定义工作薄
Dim myFileName As String '定义要读取的文件名
Dim str
myFileName = Application.GetOpenFilename("EXCEL文件(*.xls), *.xls") '浏览.xls文件
If myFileName = "False" Then
MsgBox "请选择文件!", vbInformation, "取消"
Else
Set wkbk = Workbooks.Open(myFileName, ReadOnly)
Dim wkbk As Workbook '定义工作薄
Dim myFileName As String '定义要读取的文件名
Dim str
myFileName = Application.GetOpenFilename("EXCEL文件(*.xls), *.xls") '浏览.xls文件
If myFileName = "False" Then
MsgBox "请选择文件!", vbInformation, "取消"
Else
Set wkbk = Workbooks.Open(myFileName, ReadOnly)
If myFileName = "False" Then
把上面这句改成
On Error Resume Next
If myFileName = "False" or WorksheetFunction.Find(2009, myFileName)="" Then
就行了
或者改成：
If myFileName = "False" or InStr(myFileName, 2009)>0 Then
你在判断文件名的地方把[*.xls]改成[*2009*.xls]这样行吗~
If InStr(myFileName, 2009) > 0 Then
Set wkbk = Workbooks.Open(myFileName, ReadOnly)
Else
Exit Sub
End If