Wie man die Datei durchsuchen Pfad in Textfeld per VBA?

Wie man die browse-Datei-Namen in die text box ? wenn Sie den Pfad der Datei, wie teilt man den Namen der Datei?

Versuchte ich application.GetOpenFilename("Text Files(*.txt),*.txt")

Bitte informieren Sie Anzeige in das Suchfeld ein und wie teilt man den genauen Datei-Namen nur zu Lesen, der text-Datei?

  • Ich kann dir die Antwort geben, aber wenn Sie geben GetOpenFilename im VBA-Editor und markieren Sie es und drücken Sie anschließend die magic-Taste F1 es wird geben Sie den code, den Sie brauchen 😉
  • Bezüglich deiner zweiten Frage, die Sie teilen können Sie den Pfad mit "\" als Trennzeichen, extrahieren Sie die Datei name. Siehe diesen link stackoverflow.com/questions/13068090/...
InformationsquelleAutor user441978 | 2012-10-26
  1. 3

    Vergeuden Sie nicht Ihre Zeit, das Rad neu erfinden: die "FileSystemObject" wird dies für Sie tun. 

    Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
Sheet1.TextBox1.Text = FSO.GetFilename("C:\mydir\myfile.dat")

    Das Textfeld enthält jetzt den text myfile.dat.

    InformationsquelleAutor Jean-François Corbett
  2. 3

    Der Dir-Funktion geben Sie den Namen der Datei, solange es eine Datei, die vorhanden ist - und dir werden wenn Sie mit GetOpenFilename.

    Sub GetFileName()

    Dim sFullName As String
    Dim sFileName As String

    sFullName = Application.GetOpenFilename("*.txt,*.txt")
    sFileName = Dir(sFullName)

    Debug.Print sFullName, sFileName

End Sub
    • Wie kann ich die Datei zu wählen, alle Arten? kann ich put ("Alle Dateien . -")?
    • sFullName = Application.GetOpenFilename("*.*,*.*") zeigt alle Datei-Typen
    InformationsquelleAutor Dick Kusleika
  3. 1

    Hier ist eine VBA-routine, um zurückkehren, den Namen der Datei, stripped of its path. Seine leicht geändert und gibt den Pfad statt, oder beides.

    '====================================================================================
'     Returns the file name without a path via file open dialog box
'====================================================================================
' Prompts user to select a file.  Which ever file is selected, the function returns
' the filename stripped of the path.

Function GetAFileName() As String

Dim someFileName As Variant
Dim folderName As String
Dim i As Integer
Const STRING_NOT_FOUND As Integer = 0

'select a file using a dialog and get the full name with path included
someFileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")

If someFileName <> False Then

    'strip off the folder path
    folderName = vbNullString
    i = 1

    While STRING_NOT_FOUND < i
        i = InStr(1, someFileName, "\", vbTextCompare)  'returns position of the first backslash "\"
        If i <> STRING_NOT_FOUND Then
            folderName = folderName & Left(someFileName, i)
            someFileName = Right(someFileName, Len(someFileName) - i)
        Else 'no backslash was found... we are done
            GetAFileName = someFileName

        End If
    Wend

Else
    GetAFileName = vbNullString
End If

End Function
    • ich hatte erwartet, diese zu beantworten...Danke.
    InformationsquelleAutor Dave Lewis
  4. 0

    Einfachste Weg ist, einfach zu Lesen aus den letzten "\";

    tbx.text = mid$(someFileName, 1 + InStrRev(someFileName, "\"), Len(someFileName))
    InformationsquelleAutor Alex K.
  5. 0

    Button1 klicken Sie auf

        OpenFileDialog1.ShowDialog()
    Me.TextBox1.Text = OpenFileDialog1.FileName
End Sub

    Textbox1 ändern

        Dim File As System.IO.FileInfo
    File = My.Computer.FileSystem.GetFileInfo(TextBox1.Text)
    Dim Path As String = File.DirectoryName
    TextBox2.Text = Path
    Dim fileName As String = File.Name
    TextBox3.Text = fileName
End Sub
    InformationsquelleAutor
Schreibe einen Kommentar