Hvordan bruge \"load dialog\" i VBA?

you can use the common dialog control for this

example:

Private Function dlgFileSearch() As String
Dim strFileName As String
Dim strPath As String
Dim iPos As Integer
   
    \' Set CancelError is True
    dlgFileOpen.CancelError = True
   
    On Error GoTo Err_dlgFileSearch
 
    \' Set flags
    dlgFileOpen.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist
    \' Set filters
 
    dlgFileOpen.Filter = \"Picture Files (*.bmp)|*.bmp\"
   
    \' Specify default filter
    dlgFileOpen.FilterIndex = 2
    \' Display the Open dialog box
    dlgFileOpen.ShowOpen
    \' Display name of selected file
 
    If Not IsNull(dlgFileOpen.filename) Then
        dlgFileSearch = dlgFileOpen.filename
    Else
        dlgFileSearch = \"\"
    End If
       
Exit_dlgFileSearch:
    Exit Function
   
Err_dlgFileSearch:
    \'User pressed the Cancel button
    Resume Exit_dlgFileSearch

End Function

You musthave a reference to th ecommon dialog control to use this:

call the function with
Myfile = dlgFileSearch

Jeg f¨år fejlen \"object required\" i følgende linie :

dlgFileOpen.CancelError = True

Jeg må vel indsætte et \"file dialog\" objekt i formen, eller? - Men hvor finder jeg dette objekt?

Yes! You can find the common dialog in the toolbar

Tak for hjælpen så langt.

Jeg kan ikke helt gennemskue følgende linje :

dlgFileOpen.Filter = \"Picture Files (*.bmp)|*.bmp\"
 
Jeg forstår at den afgør hvilke filtyper som kan åbnes. Jeg har forsøgt at ændre den til :

dlgFileOpen.Filter = \"Picture Files (*.bmp, *.jpg, *.gif)|*.bmp, *.jpg, *.gif\"
   
For at kunne åbne gif og jpg filer i tillæg, men dette virkede ikke.

Filter = \"All Files (*.*)|*.*\"