Findes disse drivelist dirlist filelist i excel

Der er ingen drivelist i vba, medmindre du vil lave en kode til det :-)
men hvorfor ikke bruge en indbygget funktion i stedet.

Sub test()
Dim stFile As String
stFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Workbooks.Open stFile
End Sub

Det er noget nemmer hvis det er en grafisk flade "Noget ala Stifinder".

mbl - er det noget du skal have på din egen userform ?

Application.GetOpenFilename("Excel Files (*.xls), *.xls")
giver da er grafisk flade "Noget ala Stifinder"

Ja det gør - jeg har lige ledt lidt efter DriveListBox og FileListBox som findes i den rene VB version, men de synes ikke tilgængelige i Excel. Alle steder bliver der refereret til GetOpenFilename funktionen.

flemmingdahl.

Ja det er det. Hele mit hændelsesforløb starter med at importer en txt fil. Men det er nemt nok for mig at finde rundt i filer og program koder, men det er det ikke for en eventuel bruger som ikke ved hvordan programmet er opbygget. Så derfor ville det være rart at man kunne lave en grafisk brugerflade.

mbl>> så vil jeg da foreslå at du starter GetOpenFilename fra f.eks. en knap på din userform - det vil give en grafisk brugerflade, og se meget prof. ud

en valgmulighed er da også at brige selve explorer
Husk at sætte Modal til False

Private Sub CommandButton1_Click()
Shell "explorer.exe", vbNormalFocus
End Sub

brige = bruge

mbl -> afslut lige spørgsmålet eller kommenter yderligere

Undskyld ventetiden men jeg har desværre ikke haft den fornødene tid til at kunne fordybe mig i svarene. "bak" Jeg har lige prøvet dit svare fra 24/9 og det ser lovende ud, jeg tror godt at jeg kan tilpasse min opgave til dit svar.

"bak" vil du ligge et svar så du kan få de fortjente point.

mbl, helt iorden, ville bare vide om du var der endnu :-)

Det er jeg. Men har desværre ondt om tiden pga arbejde.

Jeg har arbejdet lidt mere med dit svar og kan bruge det i min opgave. Så tak for hjælpen.