Kategorien:
(Tipp 23)
Wie kann ich in einem Listenfeld eine Reihe von Dateien mit Pfadnamen zum späteren �ffnen sammeln?
Der Code leert zunächst die Listbox. Anschlie�end zeigt er den Dialog zur Dateiwahl, in dem die gewünschte Datei gewählt werden kann. Der Dialog wird so lange gezeigt, bis Abbrechen gewählt wird.
Bei der Listbox handelt es sich um ein ActiveX-Steuerelement
Sub DateienSammeln() Dim varPfad ActiveSheet.ListBox1.Clear varPfad = "" Do While varPfad <> False varPfad = Application.GetOpenFilename("Excel-Dateien (*.xl*), *.xl*") If varPfad <> False Then ActiveSheet.ListBox1.AddItem varPfad Loop End Sub