comdlg32.dll eller api commondialog spørgsmål.

kan du bugre følgende:


    Private Sub cmdTest_Click()
      \' Create a simple File|Open dialog and return the
      \' file name selected
      Dim FileDialog As CFileDialog
      Set FileDialog = New CFileDialog
      With FileDialog
        .DefaultExt = \"txt\"
        .DialogTitle = \"VB SourceBook Example File Open\"
        .Filter = \"Text files (*.txt)|*.txt|All Files (*.*)|*.*\"
        .FilterIndex = 0
        .Flags = FleFileMustExist???????????
        .hWndParent = Me.hWnd
        .MaxFileSize = 255
        If .Show(True) Then
          MsgBox \"File selected: \" & .FileName & vbCrLf & _
            \"File name only: \" & .FileTitle
        Else
          MsgBox \"User cancelled\"
        End If
      End With
    End Sub

Hvis du vil bruge et API kald:

http://www.vbapi.com/ref/g/getopenfilename.html

Det skulle være ret nemt at gennemskue og rette til til eget brug. Men stigc\'s forslag er nok nemmest at bruge; men jeg er ikke 100% (kun 95 ;-) sikker på, at stigc\'s forslag virker i Word.

Jeg er nu ret sikker på at stigc\'s forslag kræver at man sætter nogle referencer inden i sin vba editor!!

kedde

Stigc >>> Det ville ikke virke i word, Den kunne finde typen CFileDialog, Det er nok et eller andet med en reference som cktarket er inde på. Da det jeg ville bruge den til iførste omgang var at indsætte subdocuments ind i et master document lavede jeg jeg denne løsning:
  If ActiveWindow.ActivePane.View.Type <> wdMasterView Then
     
            ActiveWindow.ActivePane.View.Type = wdMasterView
    End If
      With Dialogs(wdDialogInsertSubdocument)
             
              .Show
      End With

Men jeg vil nu alligevel lige checke det link ud med API kaldet til openfile.

VBA i word har iøvrigt et hav af disse dialogs man kan bruge.

Hvis du har problemer med at bruge API kaldet, skal du bare sige til.

driis

Jeg vil gerne give dig point hvis du lige vil ligge et svar ind på SPG-


Simon

da driis ikke har lagt svar ind kan jeg ikke give ham point!

Jeg lægger lige et svar, så

;-)

endelig :-)

... jeg har ikke haft tid til at være meget på Eksperten på det seneste, så jeg havde ikke lige set, at der var én der ville give mig point ...