请问我的多重判断语句错在哪里？

nhzgl

Dim Myfile  As String, ssr As String
Myfile = Dir(ThisWorkbook.Path & "/2012*.xls")
Myfile = Dir
   Debug.Print Myfile
    ssr = "/名称.xls"
     If Application.WorksheetFunction.Search("六合", Myfile) > 0 Then
     ssr = "/六合.xls"
     ElseIf Application.WorksheetFunction.Search("老莱", Myfile) > 0 Then
     ssr = "/老莱.xls"
     ElseIf Application.WorksheetFunction.Search("龙河", Myfile) > 0 Then
     ssr = "/龙河.xls"
     End If

hwc2ycy

Dir如果能查到符合文件名要求的文件，则只返回文件名，否则返回空值
你把判断里的“/”去掉

dpdmlym

第一个错误：斜杠“/”用错了，应该是“\”

dpdmlym

Myfile = Dir(ThisWorkbook.Path & "\","*.xls")