Avatar billede gammer Nybegynder
21. februar 2007 - 10:18 Der er 2 kommentarer og
1 løsning

Hvordan bruges resultatet af GetOpenFilename

Følgende kode giver en fejl i VBA:

fileToOpen = Application _
    .GetOpenFilename("Excel filer (*.xls), *.xls")
If fileToOpen <> False Then
    Application.Workbooks(fileToOpen).Worksheets("Results").Activate
End If

Jeg har prøvet forskellige muligheder, men jeg kan ikke bruge den returnerede værdi af GetOpenFilename videre i makroen.

Hvordan kan jeg det?
Avatar billede gammer Nybegynder
21. februar 2007 - 10:25 #1
Fandt ud af det:

fileToOpen = Application _
    .GetOpenFilename("Excel filer (*.xls), *.xls")
If fileToOpen <> False Then
    Application.Workbooks.Open (fileToOpen)
    Worksheets("Results").Activate
   
End If
Avatar billede kabbak Professor
21. februar 2007 - 10:25 #2
1.åbner den ikke den fil du vælger ?

2. mener du at du ikke kan bruge, fileToOpen i samme makro, ekker er det i en anden.
Avatar billede gammer Nybegynder
21. februar 2007 - 10:34 #3
Det var resultatet af GetOpenFilename som jeg ikke fik behandlet rigtigt efterfølgende i samme makro.

Jeg havde fokuseret lidt for meget på brugen .Workbooks(fileToOpen) som den linie der skulle behandle resultatet. Men det er Application.Workbooks.Open (fileToOpen) der var den korrekte.

Man kan stirre sig blind på et problem, men det hjalp åbenbart på tankevirksomheden at poste spørgsmålet her på eksperten ;-)
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