Überprüfen Sie, ob die Datei mit VBA vorhanden ist

Verwenden Sie die Office - FileDialog Objekt dem Benutzer, wählen Sie eine Datei aus dem Dateisystem. Fügen Sie einen Verweis im VB-Projekt oder in den VBA-editor zu Microsoft Office Library und Blick in die Hilfe. Das ist viel besser, als wenn Menschen geben Sie vollständige Pfade.

Hier ist ein Beispiel mit msoFileDialogFilePicker ermöglichen, dass der Benutzer mehrere Dateien auswählen. Sie können auch msoFileDialogOpen.

'Note: this is Excel VBA code
Public Sub LogReader()
    Dim Pos As Long
    Dim Dialog As Office.FileDialog
    Set Dialog = Application.FileDialog(msoFileDialogFilePicker)

    With Dialog
        .AllowMultiSelect = True
        .ButtonName = "C&onvert"
        .Filters.Clear
        .Filters.Add "Log Files", "*.log", 1
        .Title = "Convert Logs to Excel Files"
        .InitialFileName = "C:\InitialPath\"
        .InitialView = msoFileDialogViewList

        If .Show Then
            For Pos = 1 To .SelectedItems.Count
                LogRead .SelectedItems.Item(Pos) ' process each file
            Next
        End If
    End With
End Sub

Gibt es eine Menge von Optionen, so dass Sie brauchen werden, um die vollständige Hilfe-Dateien, um zu verstehen, was alles möglich ist. Sie können beginnen, mit Office 2007 FileDialog-Objekt (natürlich, werden Sie brauchen, um zu finden die richtige Hilfe für die version, die Sie verwenden).

InformationsquelleAutor der Antwort ErikE

einfach loszuwerden, diese Rede markiert

Sub test()

Dim thesentence As String

thesentence = InputBox("Type the filename with full extension", "Raw Data File")

Range("A1").Value = thesentence

If Dir(thesentence) <> "" Then
    MsgBox "File exists."
Else
    MsgBox "File doesn't exist."
End If

End Sub

Dies ist die eine ich mag:

Option Explicit

Enum IsFileOpenStatus
    ExistsAndClosedOrReadOnly = 0
    ExistsAndOpenSoBlocked = 1
    NotExists = 2
End Enum


Function IsFileReadOnlyOpen(FileName As String) As IsFileOpenStatus

With New FileSystemObject
    If Not .FileExists(FileName) Then
        IsFileReadOnlyOpen = 2  '  NotExists = 2
        Exit Function 'Or not - I don't know if you want to create the file or exit in that case.
    End If
End With

Dim iFilenum As Long
Dim iErr As Long
On Error Resume Next
    iFilenum = FreeFile()
    Open FileName For Input Lock Read As #iFilenum
    Close iFilenum
    iErr = Err
On Error GoTo 0

Select Case iErr
    Case 0: IsFileReadOnlyOpen = 0 'ExistsAndClosedOrReadOnly = 0
    Case 70: IsFileReadOnlyOpen = 1 'ExistsAndOpenSoBlocked = 1
    Case Else: IsFileReadOnlyOpen = 1 'Error iErr
End Select

End Function    'IsFileReadOnlyOpen

InformationsquelleAutor der Antwort whytheq

Ich bin nicht sicher was ist falsch mit Ihrem code explizit, aber ich benutze diese Funktion, die ich online gefunden (URL in den Kommentaren) für die Prüfung ob eine Datei vorhanden ist:

Private Function File_Exists(ByVal sPathName As String, Optional Directory As Boolean) As Boolean
    'Code from internet: http://vbadud.blogspot.com/2007/04/vba-function-to-check-file-existence.html
    'Returns True if the passed sPathName exist
    'Otherwise returns False
    On Error Resume Next
    If sPathName <> "" Then

        If IsMissing(Directory) Or Directory = False Then

            File_Exists = (Dir$(sPathName) <> "")
        Else

            File_Exists = (Dir$(sPathName, vbDirectory) <> "")
        End If

    End If
End Function

InformationsquelleAutor der Antwort Dan