03excel VBA到07版中不能用了，怎么改？

weiguo790601

Private Sub CommandButton2_Click()
gcm.Hide
Dim TongMing As Boolean
工程名称 = gcm.TextBox1.Text
文件名称 = gcm.TextBox2.Text
LinShiWenJianMing = ActiveWorkbook.Name
Windows("材料预算.xls").Activate
If 文件名称 <> "" Then
  With Application.FileSearch
    .LookIn = ActiveWorkbook.Path
    If .Execute() > 0 Then
       For i = 1 To .FoundFiles.Count
            If .FoundFiles(i) = ActiveWorkbook.Path & "\" & 文件名称 & ".xls" Then
            MsgBox 文件名称 & ".xls" & "已存在！", vbExclamation
            gcm.TextBox2.SetFocus
            工程名称 = ""
            文件名称 = ""
            gcm.Show
            Exit For
            End If
        Next i
    End If
  End With
End If
If 文件名称 = "" Then
   Windows(LinShiWenJianMing).Activate
   zk.Show
Else
  文件名称 = ActiveWorkbook.Path & "\" & 文件名称 & ".xls"
End If
End Sub

weiguo790601

怎么能在07版excel以上版本中用？

ming96123

& 文件名称 & ".xls"，你的文件名称是不是xlsx

crazy0qwer

weiguo790601 发表于 2018-7-26 17:10
怎么能在07版excel以上版本中用？

FileSearch方法 在高版本中不支持。
另找其他搜索文件的办法，论坛很多。