---

Hallo Leute,

habe mittlerweile einige Macros geschrieben, mit denen ich Daten aus einer TXT-Datei, z.B. ein CNC-Programm oder irgendwelche Daten in Excel einlesen, bearbeiten und schreiben kann.

Um nun aber den Pfad der Datei abzufragen, muß ich mangels bessern Wissens jedesmal mit der InputBox den kompletten Pfad einhacken und dann mit DIR() abfragen, ob die Datei auch wirklich vorhanden ist,etc.
Auf die Dauer etwas nervig.

Ist es denn nicht irgendwie möglich, das sich ein Browser-Fenster auftut, wo ich das Verzeichnis und den Dateinamen auswählen kann ???

Wäre wirklich gigantisch.

Ach ja, sollte möglichst ab Excel '97 funktionieren.

Gruß, "Hennes".

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Application.GetOpenFilename hilft dir weiter 

Code:

---

Public Sub Dokument_auswahl()
    Dim NameZiel As Variant, Nr As Integer
     
    ChDir "C:\LaufwerkE\TebisDaten" 'Pfadvorgeben
     
    NameZiel = Application.GetOpenFilename("NC-Dateien (*.nc),*.nc," & _
    "D&R NC-Daten (*.dnc),*.dnc," & _
    "Siemens NC-Daten (*.mpf),*.mpf", , "NC-Dateien für Dokumentation auswählen!", MultiSelect:=True)
    If TypeName(NameZiel) = "Boolean" Then
        Beep
        MsgBox "Sie müssen min. eine Datei auswählen!"
        Exit Sub
    End If
    'zur weiteren verarbeitung NameZiel() verwenden
    Sort (NameZiel) 'bsp
End Sub
Rem Sortiert das Array
Sub Sort(Nums)
    For i = LBound(Nums) To UBound(Nums)
    For J = (i + 1) To UBound(Nums)
    If Nums(i) > Nums(J) Then 'Wenn eine Zahl größer als die Andere ist, werden sie getauscht'
        Rem MsgBox Nums(i)
        tmp = Nums(i)
        Nums(i) = Nums(J)
        Nums(J) = tmp
    End If
    Next J
    Next i
    For Nr = LBound(Nums) To UBound(Nums)
         MsgBox "ausgewählte Dateien" & (Nums(Nr))
    Next Nr
End Sub

---

[Diese Nachricht wurde von Thomas Harmening am 28. Jan. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Allererste Sahne, das ist noch besser, wie ich mir vorgestellt habe, sogar mit Dateifilter !

Dafür gibt's natürlich die volle Punktzahl,

besten Dank !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP