filtyper med åbn funktionen

Skal det være : Application.Dialogs(xlDialogOpen).Show

For eller kunne du jo bruge :
__________________________________
Sub åben_txt()
fileToOpen = Application.GetOpenFilename("Tekstfiler (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "Åbn " & fileToOpen
End If
End Sub
Sub åben_xls()
fileToOpen = Application.GetOpenFilename("Regneark (*.xls), *.xls")
If fileToOpen <> False Then
    MsgBox "Åbn " & fileToOpen
End If
End Sub

Justeret til
___________________
Sub åben_xls()
fileToOpen = Application.GetOpenFilename("Regneark (*.xls), *.xls")
If fileToOpen <> False Then
    Workbooks.Open FileName:=fileToOpen
End If
End Sub

det skal bruges her:

Private Sub CommandButton5_Click()

If Range("D2").Value = "" Then
    MsgBox "Der er ikke angivet et navn!", vbCritical
    Exit Sub
    End If

Dim map As String
map = "c:\timeregistrering\databaser\" & Range("D3").Value

If Dir(map, vbDirectory) = "" Then MkDir map

ChDir map
Application.Dialogs(xlDialogOpen).Show

End Sub

Og det må kun være *.csv filer

Jeg har ikke lige testet men virker det her ?

Private Sub CommandButton5_Click()
If Range("D2").Value = "" Then
    MsgBox "Der er ikke angivet et navn!", vbCritical
    Exit Sub
    End If
Dim map As String
map = "c:\timeregistrering\databaser\" & Range("D3").Value
If Dir(map, vbDirectory) = "" Then MkDir map
ChDir map
Application.GetOpenFilename ("CSV-filer (*.csv), *.csv")
End Sub

øjeblik så.

ja, det virker. Tak!

Svar for point

Her er et svar. Go weekend.-

i lige måde da