Dateipfad bestimmen und als Hyperlik ablegen

Hallo zusammen,
folgendes würde ich gerne mit Hilfe von VBA lösen.
Ich würde gerne auf einen Button drücken und es sollte sich der explorer öffnen, wo ich auf meine Dateien auf meinen PC zugreifen kann.
Dann würde ich gerne eine Datei aussuchen und den Dateipfad zur dieser Datei in eine Zelle schreiben.
Weiterhin sollte die Ausgewählte Datei (in einem weiteren Schritt, siehe Hintergrund unten)
an einen anderen Ort kopiert werden und dieser link in eine andere Zelle mit Hyperlik eingetragen werden.
Der Hintergrund ist folgender:
Ich habe ein Formular wo ich in einer Spalte mehrere Sachen einfüge. Eine Zelle der Spalte ist z.B. oben beschrieben.
Nachdem ich alles ausgefüllt habe drücke ich ein Button der die eingetragenen Daten in eine andere Liste sortiert transportiert.
Hoffe ich habe mich nicht zu kompliziert ausgedrückt.
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Junior() Dim strFull As String, strDatei As String, strPfad As String strPfad = "c:\test\" 'anpassen With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = "Datei wählen" If .Show = -1 Then strFull = .SelectedItems(1) End If End With If strFull "" Then Range("A1") = strFull strDatei = Right(strFull, Len(strFull) - InStrRev(strFull, "\")) FileCopy strFull, strPfad & strDatei ActiveSheet.Hyperlinks.Add Range("A2"), strPfad & strDatei End If End Sub

Sub aaaa() Dim s As String, x With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Ordner wählen" If .Show = -1 Then s = .SelectedItems(1) ChDrive Left(s, 1) ChDir s x = Shell("cmd.exe") Application.Wait Now + TimeSerial(0, 0, 1) Application.SendKeys "dir >verzeichnis.txt" Application.SendKeys "{return}" Application.SendKeys "exit" Application.SendKeys "{return}" End If End With End Sub

Hallo,
bis zur folgender Zeile


x = Shell("cmd.exe")

scheint es zu funktionieren.
Das DOS Fenster mit dem richtigen Pfad wird geöffnet.
Es wird jedoch nicht der Text


Application.SendKeys "dir > verzeichnis.txt"

geschrieben und

      Application.SendKeys "{return}"
Application.SendKeys "exit"
Application.SendKeys "{return}"

ausgeführt.
Eine Idee woran dies liegen könnte?
Das wäre echt schade wenn das nicht funktioniert.
Gruß

Sub Verzeichnisinhalt() Dim Verzeichnis As String With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Ordner wählen" If .Show = -1 Then Verzeichnis = .SelectedItems(1) Shell "cmd.exe /cdir """ & Verzeichnis & """ > """ & Verzeichnis & "\verzeichnis.txt""" End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Dateipfad bestimmen und als Hyperlik ablegen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread