Wie man ausgewählten Pfad und den Namen der Datei mit Datei-öffnen-dialog-Steuerung

Muss ich den Pfad-und Dateinamen der Datei ein, die geöffnet wird, mit dem Datei-Dialog (VBA-makro in excel). Ich will zeigen, diese Informationen mit einem hyperlink in mein excelsheet. Kann mir jemand helfen?

Vielen Dank im Voraus

edit:

Dies ist, was ich gerade gefunden:

Sub GetFilePath()

Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
.Title = "Choose File"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
FileSelected = .SelectedItems(1)
End With

ActiveSheet.Range("A1") = FileSelected
End Sub

Mit diesem code habe ich den Pfad der Datei. Jetzt bin ich noch auf der Suche nach einem Weg, um den Dateinamen.

InformationsquelleAutor VeVi | 2012-10-02

Versuchen, diese

Sub Demo()
    Dim lngCount As Long
    Dim cl As Range

    Set cl = ActiveCell
    ' Open the file dialog
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Show
        ' Display paths of each file selected
        For lngCount = 1 To .SelectedItems.Count
            ' Add Hyperlinks
            cl.Worksheet.Hyperlinks.Add _
                Anchor:=cl, Address:=.SelectedItems(lngCount), _
                TextToDisplay:=.SelectedItems(lngCount)
            ' Add file name
            'cl.Offset(0, 1) = _
            '    Mid(.SelectedItems(lngCount), InStrRev(.SelectedItems(lngCount), "\") + 1)
            ' Add file as formula
            cl.Offset(0, 1).FormulaR1C1 = _
                 "=TRIM(RIGHT(SUBSTITUTE(RC[-1],""\"",REPT("" "",99)),99))"


            Set cl = cl.Offset(1, 0)
        Next lngCount
    End With
End Sub

Hehe, ich habe meinen Beitrag gelöscht, denn es war identisch mit Ihnen. Die OP kann sicher sein, dass es funktioniert 🙂
Texas, das ist genau das, was ich brauchte für den Pfad-Teil! 😀
bearbeitet auch zurück, Dateiname
Ich danke Ihnen sehr! Das ist genau das was ich brauche!! tx!!
Froh zu helfen. Wenn Ihre Frage damit beantwortet, sollten Sie es akzeptieren (Klicken Sie auf das Häckchen)

InformationsquelleAutor chris neilsen

Sie können jeden Teil der Datei Pfad, mit der "FileSystemObject". GetFileName(filepath) gibt Ihnen, was Sie wollen.

Geänderten code unten:

Sub GetFilePath()
Dim objFSO as New FileSystemObject

Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
.Title = "Choose File"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
FileSelected = .SelectedItems(1)
End With

ActiveSheet.Range("A1") = FileSelected 'The file path
ActiveSheet.Range("A2") = objFSO.GetFileName(FileSelected) 'The file name
End Sub

InformationsquelleAutor meticoeus

3

Extrahiert nur den Dateinamen aus dem Pfad, können Sie Folgendes tun:
```
varFileName = Mid(fDialog.SelectedItems(1), InStrRev(fDialog.SelectedItems(1), "\") + 1, Len(fDialog.SelectedItems(1)))
```
Einfache, one-line-Lösung. Super!!! Genau das, was ich brauchte.

InformationsquelleAutor Fabio Reche
1

Ich denke, Sie wollen diese:
```
Dim filename As String
filename = Application.GetOpenFilename

Dim cell As Range
cell = Application.Range("A1")
cell.Value = filename
```
Tx für deine Reaktion. Ich denke, ich habe nicht mich selbst sehr klar. Ich brauche um eine Datei zu öffnen. Die Datei muss ich den Pfad der Datei kennen und dem Dateinamen. Ich habe eine Lösung gefunden, um den Dateipfad. Ich füge es in meine Frage.
Aktualisiert meine Antwort
Ich nicht bekommen, meine mit dem Namen, vielleicht weil ich mit FileDialog?

InformationsquelleAutor JMK

Ich denke, dies ist der einfachste Weg, um zu bekommen, was Sie wollen.

Kredit zu JMK-Antwort für den ersten Teil, und die hyperlink-Teil war angepasst von http://msdn.microsoft.com/en-us/library/office/ff822490(v=office.15).aspx

'Gets the entire path to the file including the filename using the open file dialog
Dim filename As String
filename = Application.GetOpenFilename

'Adds a hyperlink to cell b5 in the currently active sheet
With ActiveSheet
 .Hyperlinks.Add Anchor:=.Range("b5"), _
 Address:=filename, _
 ScreenTip:="The screenTIP", _
 TextToDisplay:=filename
End With

InformationsquelleAutor user1527032

0

Den code ein startet die Datei-Suche von der Wurzel Dickdarm, Wenn ich die starten will Suche aus einem bestimmten Verzeichnis, um zu vermeiden, gehen Sie in das Verzeichnis jedes mal, wo ich mich setzen sollte. Ich Tat es wie
```
Sub GetFilePath()
FileSelected = "G:\Audits\A2010"
Set myFile = Application.FileDialog(msoFileDialogOpen)
With myFile
.Title = "Choose File"
.AllowMultiSelect = False
If .Show <> -1 Then
Exit Sub
End If
FileSelected = .SelectedItems(1)
End With

ActiveSheet.Range("C14") = FileSelected
End Sub
```
Aber es konnte nicht gestartet werden, reichen von "G:\Audits\A2010"

InformationsquelleAutor RAJESH BAWKAR

Ich denke, dies zu tun:

Dim filename As String
filename = Application.GetOpenFilename

InformationsquelleAutor Tanmay Nehete

0

Suche nach verschiedenen websites, die auf der Suche nach einer Lösung, wie trennen Sie den vollständigen Pfad aus dem Dateinamen, sobald die volle one-piece Informationen stammen aus der Datei-Öffnen-Dialog, und zu sehen, wie "Komplex" die Lösungen gegeben wurden, für einen Excel-Neuling wie mich, ich fragte mich, wenn es eine einfachere Lösung. Also habe ich begonnen, es auf meine eigene, und ich kam zu dieser Möglichkeit.
(Ich habe keine Ahnung, ob jemand die gleiche Idee vor. So einfach, wenn jemand hat, ich entschuldige mich.)
```
Dim fPath As String
Dim fName As String
Dim fdString As String

fdString = (the OpenFileDialog.FileName)

'Get just the path by finding the last "\" in the string from the end of it
 fPath = Left(fdString, InStrRev(fdString, "\"))

'Get just the file name by finding the last "\" in the string from the end of it
 fName = Mid(fdString, InStrRev(fdString, "\") + 1)

'Just to check the result
 Msgbox "File path: " & vbLF & fPath & vbLF & vblF & "File name: " & vbLF & fName
```
UND DAS IST ES!!! Probieren Sie es einfach aus, und lassen Sie mich wissen, wie es geht...

Gott hilft mir!!! Ich habe gerade festgestellt Fabio Reche hatte bereits die gleiche Lösung (Oct 2, 15), obwohl nicht so vollkommen wie meine, aber die gleichen, und rechts unten meine! Könnte sein, aufgrund Ihrer Kürze, nur eine Zeile und ich habe es nicht gesehen. Meine Entschuldigung an Sie, Fabio.
Diese Lösung kann nicht kompiliert werden, in Excel (2016). Sie mag es nicht, diese Zeile: fdString = (the OpenFileDialog.FileName) ich bin nicht vertraut mit the als Stichwort. Auch für OpenFileDialog, es muss ein Verweis aktiviert?

InformationsquelleAutor Prof. Juan Manuel Alonso D.
0

Von office 2010, werden wir nicht in der Lage sein, die Allgemeine Dialogfeld-Steuerelement, so ist es schön zu verwenden das Application-Objekt die gewünschten Ergebnisse zu erhalten.

Hier habe ich ein text-Feld und den Befehl Schaltfläche einfügen den folgenden code unter der Schaltfläche click-Ereignis, das die Datei geöffnet wird Dialogfeld, und fügen Sie den Namen der Datei in das Textfeld.
```
Dim sFileName  As String

sFileName = Application.GetOpenFilename("MS Excel (*.xlsx), *.xls")

TextBox1.Text = sFileName
```
InformationsquelleAutor
0

Den nachstehenden Befehl ist genug, um den Pfad der Datei, die von einem Dialogfeld -
```
my_FileName = Application.GetOpenFilename("Excel Files (*.tsv), *.txt")
```
InformationsquelleAutor Akshat Agrawal

Sub GetFilePath()

Set myFile = Application.FileDialog(msoFileDialogOpen)

With myFile

.Title = "Choose File"

.AllowMultiSelect = False

If .Show <> -1 Then

Exit Sub

End If

FileSelected = Replace(.SelectedItems(1), .InitialFileName, "")

End With

ActiveSheet.Range("A1") = FileSelected

End Sub

Code-nur die Antworten sind entmutigt. Bitte erklären Sie den fragenden was war das Hauptproblem. Und Sie konnte auch formatieren Sie den code, um schöner Aussehen (entfernen Sie das überschüssige Leerzeilen zum Beispiel).

InformationsquelleAutor Madhu kumar

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.