Dialoogscherm openen

[wibra]

Ik wil een tekstfile aanwijzen in een diagloogscherm openen.
Hiervoor gebruik ik de volgende routine:

Sub Dialoogscherm_openen()

pad1 = Worksheets("Reken").Range("H1")
ChDrive Left(pad1, 1)
ChDir pad1

fileToOpen = Application _
.GetOpenFilename("DT Files (*dt.txt), *dt.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If

End Sub

In het dialoogscherm worden echter alle files zichtbaar gemaakt en niet alleen die ik specificeer. In bovenaangehaald voorbeeld dus alle tekstfiles die eindigen op dt.txt
Het is zelfs zo dat als ik bij de eerste *dt.txt vermeld de filter DT Files niet eens zichtbaar wordt, maar de defaultwaarde "Alle bestanden (*.*),*.*"
Geef ik als filter "DT Files (*.txt), *dt.txt" dan laat hij de tekst DT Files zien maar nog altijd alle files. Dus van *dt.txt trekt hij zich niets aan.

Daarbij komt dat als het werkt de filter ook nog variabel moet worden.
Dus de ene keer *dt.txt" en een andere keer iets anders bv "*EL.txt" enz.

Wie heeft een oplossing?

Groetjes Wibra

 

[Wigi]

Dat met die *dt gaat niet lukken.

Dit werkt wel:

Sub Dialoogscherm_openen()

[B]Dim fileToOpen As Variant
Dim pad1 As String[/B]

pad1 = Worksheets("Reken").Range("H1")
ChDrive Left(pad1, 1)
ChDir pad1

fileToOpen = Application.GetOpenFilename("DT Files (*.txt), *.txt")
If fileToOpen <> False Then MsgBox "Open " & fileToOpen

End Sub

Wigi

 

[wibra]

Bedankt maar dat wist ik natuurlijk al.

Ik moet toch echt de mogelijkheid hebben om wildcarts op te geven bij het aanwijzen van een bestand via de dialogbox.
Anders is het zoeken in een hooiberg.

Is er geen andere mogelijkheid?

Met deze commando's komt in de regel van bestandstype DT Files te staan.
In de regel van bestandsnaam staat niets.
Juist hierin zou *dt.xtx moeten komen te staan zodat ook alleen maar de files die hierop eindigen gepresenteerd worden.

Dus graag suggesties.

 

[Wigi]

Dat gaat niet.

Je zal je eigen VBA-code moeten schrijven om bv. in een Listbox op een Userform de bestanden te tonen die voldoen aan de criteria. Zoek daar maar achter.

Wigi

 

[wibra]

Oke ik ga op zoek.
In Visual Basic lukt me dat dus zal het in VBA in Excel ook wel lukken!