Question

我正在尝试运行宏以检查文件是否存在。我收到Sub or function not defined的编译错误。有人可以帮忙吗

If FileExists(filepath) Then

Else
  Call Master
  Call PrinttoPDF
End If

Answer 1

尝试关注以下内容。

Sub CheckFilePath()
    If Dir(FilePath, vbNormal) <> "" Then
        Call Master
        Call PrinttoPDF
    Else
        MsgBox "File does not exists."
    End If
End Sub

Answer 2

我不是VBA专家，但是看起来FileExists，Master或PrinttoPDF都不是Sub或Function。也许要更改大小写，最后一个应该是PrintToPdf。

我希望该错误能够告诉您错误发生在哪一行。

在this page上有一个有效的示例，您可以通过以下方法进行操作：

Sub Test_File_Exist_With_Dir()
    Application.ScreenUpdating = False
    Dim FilePath As String
    FilePath = ""
    On Error Resume Next
    FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
    On Error GoTo 0
    If FilePath = "" Then
        MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "File exist", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = False
End Sub

检查vb中是否存在文件

2 个答案: