Avatar billede wise Seniormester
28. marts 2006 - 12:05 Der er 2 kommentarer og
1 løsning

Application.GetOpenFilename og Multiselect, hvordan checkes false

Hejsa

Jeg har lige rettet et program fra at kunne åbne én fil til at kunne håndtere flere.
Men hvordan checkes så for false?

I hjælpens eksempel hedder det
fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If

Men hvis der reelt er valgt flere filer returneres en array og så fejler denne linie "If fileToOpen <> False Then".
Hvis man derimod retter det til "If fileToOpen(1) <> False Then" virker det når der vælges filer, men så fejler den hvis der ikke vælges filer og "FileToOpen" dermed bliver en boolean...

Hvad faen gør I andre?

/Lasse
28. marts 2006 - 12:57 #1
Hjælper dette dig
Sub Test()
    Dim vntFiles As Variant
    vntFiles = Application.GetOpenFilename("Excel files (*.xls), *.xls", MultiSelect:=True)
    If Not IsArray(vntFiles) Then
        MsgBox "Nothing selected"
    Else
        MsgBox UBound(vntFiles) - LBound(vntFiles) + 1 & " items selected"
    End If
End Sub
Avatar billede wise Seniormester
28. marts 2006 - 13:38 #2
Perfekt, tak for anden gang i dag :-)

Jeg prøvede at finde en "isboolean", men tænkte ikke på isarray...

Smid et svar hvis du vil have points for den...
Lasse
28. marts 2006 - 13:41 #3
:-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester