Excel 97: Openfile-dialogboks

Det er ganske nemt og kræver ikke API. Følgende kode er tilstrækkelig:

Application.Dialogs(xlDialogOpen).Show

Så du har ret: Den ligger som en indbygget dialogboks i Excel.

Hey Jan,

What took You so long :o)

Så vidt jeg kan se (efter lige at have afprøvet den), så åbnes den valgte fil i Excel.
Det ønsker jeg ikke.
Jeg ønsker bare at få returneret stien til den valgte fil, således at jeg selv kan gøre med den hvad jeg vil. I dette tilfælde vil jeg importere den vha den geniale rutine du sendte mig sidst (http://www.eksperten.dk/spm/98077 :)

Forstår du hvad jeg mener?

Beklager den sene tilbagemeldingstid. Jeg sad i møde ;-)

Jeg tror jeg forstår, hvad du mener. Den var værre ..... jeg går i tænkeboks, men vender tilbage ....

Det var ikke så svært endda - prøv denne her:

Sub GetOpenFilename()
  fileToOpen = Application.GetOpenFilename(\"Tekst files (*.txt), *.txt\")
  If fileToOpen <> False Then
      MsgBox \"Open \" & fileToOpen
  End If
End Sub

Du kan også ændre andre ting, som f.eks. titel i dialogboksen, men se selv hjælpen under VBA.

Brug f.eks. denne her for at udskifte titlen med hvad, du nu måtte ønske:

fileToOpen = Application.GetOpenFilename(\"Excel filer (*.xl*),*.xl*\", 1, \"Valgfri dialog titel\", , False)

You\'re the MAN :O)))

Thnx again :o)

You\'re welcome!

Ét lille tillægsspørgsmål: Hvad gør den 2. parameter (Filterindex)?

/Thomas

Filterindex bruges til at angive, hvilket filter, som skal stå som default-værdi i søgningen. I ovenstående eksempel er det meget naturligt med \"1\", da der kun er angivet ét filter, men havde formlen set sådan ud:
fileToOpen = Application.GetOpenFilename(\"Text Files (*.txt),*.txt,Add-In Files (*.xla),*.xla\", 2, \"Valgfri dialog titel\", , False)

hvor man altså både søger efter tekstfiler og Excel add-in filer, så havde søgefeltet i dialogboksen indeholdt *.xla som default-værdi.

Ganske ubrugeligt, hvis du spørger mig ..... :-)

Jeg synes nu at det er ganske smart at man kan angive flere forskellige filter-typer. At man kan angive at det ikke lige er den første, som er default, kan være lidt sværere at se. Men forestil dig at du skal importere en komma-separeret fil, som har en underlig extension, så ville det jo være smart at systemet kunne huske hvilken filtype du brugte sidst - også selvom den ikke ligger øverst på listen.

Men tusind tak for hele svaret :o)
Nu skal jeg ikke forstyrre...før næste gang ;o)

/Thomas

Jeg elsker at blive forstyrret ;-)

Ja, det er ganske praktisk med flere forskellige filtertyper, men man kan jo bare sortere listen efter hvilken værdi, som skal vises først. Så behøver man ikke filterindex.