Excel-VBA: Verwenden Sie getOpenFilename öffnen, Ordner UND Dateien

Möchte ich diese routine Application.GetOpenFilename zu öffnen, entweder eine *.txt Datei ODER einen ganzen Ordner. Ist das irgendwie möglich?

E. g. wenn keine Datei/Ordner ausgewählt ist, wird der übergeordnete Ordner Pfad zurückgegeben, sonst der gewählte Dateiname?

Beispiel: nehmen wir an ich habe eine Datei namens "test.txt" im Pfad C:\folder1\folder2\test.txt. Jetzt bin ich faul beim suchen von Dateien und wählen Sie C:\folder1 ("parent folder"). Mein Programm sucht nun innerhalb der Unterordner für test.txt. Aber manchmal bin ich nicht faul und ich möchten, wählen Sie die spezifische Datei test.txt

Ich bin auf der Suche nach einem benutzerfreundlichen dialog zu behandeln: öffnen Sie einen Ordner (und kehren Sie den Pfad des Ordners), und öffnen Sie eine Datei (und zurück den Pfad der Datei)

  • Was bedeutet die Eröffnung eines "ganzen Ordner" Aussehen - meinst du, dass Sie zeigen wollen, der Inhalt des Ordners im Windows Explorer, oder Sie öffnen möchten, um alle Dateien in dem Ordner? In jedem Fall können Sie nicht verwenden getopenfilename um einen Ordner zu wählen: wenn keine Datei ausgewählt ist, dann wird gar nichts zurückgegeben. Wenn Sie möchten, dass Ihre Benutzer in der Lage sein, um einen Ordner auszuwählen, dann müssen Sie eine andere route für, die.
  • (Ich angegeben meine Frage.) So getopenfilename ist nicht in der Lage, dies zu erreichen. Gibt es eine andere Funktion?
  • Ich habe eine Lösung gefunden für meine Frage. Vielleicht nicht genau das, was ich suchte, aber trotzdem: http://www.oaltd.co.uk/mvp/MVPPage.asp Jim s Toolbox "BrowseForFolder" sollten dir helfen 🙂
InformationsquelleAutor vince_h | 2012-10-22
  1. 1

    Durch parent ich nehme an, du meinst die Datei aus, die die VBA aufgerufen wird. Wenn nicht, sollten Sie in der Lage sein zu justieren, die unten ziemlich easilly.

    Sub getFileorFolder()

fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")

If fileToOpen = False Then fileToOpen = ThisWorkbook.Path

MsgBox "File is " & fileToOpen

End Sub
    • ernsthaft? Sie sind zu faul, um die klicken Sie auf unten eine oder zwei weitere Ordner, um eine Datei zu erhalten? Oder gibt es einen anderen Grund, warum Sie brauchen, um dies zu tun?
    InformationsquelleAutor Scott Holtzman
  2. 0

    Habe ich eine bessere Möglichkeit zu eröffnen text-Dateien, aber unter Verwendung eines der oben genannten Antworten. 

    Sub ImportTextFile()
'better method to retrieving Data from txt.
If Not Range("A2").Value = "" Then
MsgBox "Clear Data First"
Sheets("Input DATA").Select
Exit Sub
End If

fileToOpen = application.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen = False Then fileToOpen = ThisWorkbook.Path
MsgBox "File is " & fileToOpen

    With ActiveSheet.QueryTables.Add(connection:= _
        "TEXT;" + fileToOpen, Destination:=Range("$A$2"))
        '.name = "All"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
Call RemoveEmptyRows
End Sub

Sub RemoveEmptyRows()
On Error Resume Next
Range("A2:A5000").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Resume:
Range("A2").Select
End Sub
    InformationsquelleAutor DeerSpotter
Schreibe einen Kommentar