Hvis din VBA procedure skal bede brugeren om et filnavn, du kunne bruge funktionen InputBox og lad Excel bruger lave noget at skrive. En inputboks er dog normalt ikke det bedste værktøj til dette job, fordi de fleste brugere har svært ved at huske stier, omvendte skråstreg, filnavne og filtypenavne. Det er med andre ord alt for nemt at skrue op, når du skriver et filnavn.
For en bedre løsning på dette problem skal du bruge metoden GetOpenFilename for Application-objektet, som sikrer, at din kode får fat i et gyldigt filnavn, inklusive dens komplette sti. GetOpenFilename-metoden viser den velkendte Åbn-dialogboks (en død ringetone for dialogboksen Excel vises, når du vælger Filer → Åbn → Gennemse).
GetOpenFilename-metoden åbner faktisk ikke den angivne fil. Denne metode returnerer blot det brugervalgte filnavn som en streng. Så kan du skrive kode for at gøre hvad du vil med filnavnet.
Den officielle syntaks for GetOpenFilename-metoden er som følger:
object.GetOpenFilename ([filFilter], [filterIndex], [titel],[knapTekst], [multiSelect])
GetOpenFilename-metoden tager de valgfrie argumenter nedenfor.
| Argument | Hvad det gør |
|---|---|
| Filfilter | Bestemmer de filtyper, der vises i dialogboksen (f.eks. *.TXT). Du kan angive flere filtre, som brugeren kan vælge imellem. |
| FilterIndex | Bestemmer, hvilke af filfiltrene dialogboksen viser som standard. |
| Titel | Angiver billedteksten til dialogboksens titellinje . |
| Knaptekst | Ignoreret (bruges kun til Macintosh-versionen af Excel). |
| MultiSelect | Hvis True, kan brugeren vælge flere filer. |
Argumentet fileFilter bestemmer, hvad der vises i dialogboksens Filtype-rulleliste. Dette argument består af par af filfilterstrenge efterfulgt af jokertegnfilfilterspecifikationen, med kommaer, der adskiller hver del og par. Hvis det udelades, har dette argument som standard følgende:
Alle filer (*.*), *.*
Bemærk, at denne streng består af to dele, adskilt af et komma:
Alle filer (*.*)
og
*.*
Den første del af denne streng er teksten, der vises i rullelisten Filtyper. Den anden del bestemmer, hvilke filer dialogboksen viser. For eksempel betyder *.* alle filer.
Koden i det følgende eksempel åbner en dialogboks, der beder brugeren om et filnavn. Proceduren definerer fem filfiltre. Bemærk, at VBA-linjefortsættelsessekvensen bruges til at opsætte filtervariablen; at gøre det hjælper med at forenkle dette ret komplicerede argument.
Sub GetImportFileName ()
Dim Finfo som streng
Dim FilterIndex As Long
Dim titel som streng
Dim filnavn som variant
' Opsæt liste over filfiltre
FIinfo = "Tekstfiler (*.txt),*.txt," & _
"Lotus-filer (*.prn),*.prn," & _
"Kommaseparerede filer (*.csv),*.csv," & _
"ASCII-filer (*.asc),*.asc," & _
"Alle filer (*.*),*.*"
' Vis *.* som standard
FilterIndex = 5
' Indstil dialogboksens billedtekst
Titel = "Vælg en fil at importere"
' Få filnavnet
Filnavn = Application.GetOpenFilename (FIinfo, _
Filterindeks, titel)
' Håndter returoplysninger fra dialogboksen
Hvis Filnavn = Falsk Så
MsgBox "Ingen fil blev valgt."
Andet
MsgBox "Du valgte " & Filnavn
Afslut Hvis
Slut Sub
Her er dialogboksen, som Excel viser, når du udfører denne procedure. Udseendet kan variere afhængigt af den version af Windows, du bruger, og de visningsindstillinger, du har indstillet.
GetOpen Filename-metoden viser en tilpasselig dialogboks og returnerer den valgte fils sti og navn. Den åbner ikke filen.
I et rigtigt program ville du gøre noget mere meningsfuldt med filnavnet. For eksempel vil du måske åbne den ved at bruge en erklæring som denne:
Arbejdsbøger. Åbn Filnavn
Bemærk, at FileName-variablen er erklæret som en Variant-datatype. Hvis brugeren klikker på Annuller, indeholder denne variabel en boolsk værdi (False). Ellers er Filnavn en streng. Derfor håndterer brug af en Variant-datatype begge muligheder.
Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows Microsoft Word åbner filer i skrivebeskyttet tilstand, hvilket gør det umuligt at redigere det? Bare rolig, metoderne er nedenfor
Sådan rettes fejl ved udskrivning af forkerte Microsoft Word-dokumenter Fejl ved udskrivning af Word-dokumenter med ændrede skrifttyper, rodede afsnit, manglende tekst eller tabt indhold er ret almindelige. Men lad være
Hvis du har brugt pennen eller highlighteren til at tegne på dine PowerPoint-dias under en præsentation, kan du gemme tegningerne til næste præsentation eller slette dem, så næste gang du viser den, starter du med rene PowerPoint-dias. Følg disse instruktioner for at slette pen- og highlighter-tegninger: Sletning af linjer en ved […]
Style-biblioteket indeholder CSS-filer, Extensible Stylesheet Language-filer (XSL) og billeder, der bruges af foruddefinerede mastersider, sidelayouts og kontrolelementer i SharePoint 2010. For at finde CSS-filer i Style-biblioteket på et udgivelsessted: Vælg Site Actions→ View Alt webstedsindhold. Indholdet af webstedet vises. Style-biblioteket ligger i […]
Overvæld ikke dit publikum med gigantiske tal. I Microsoft Excel kan du forbedre læsbarheden af dine dashboards og rapporter ved at formatere dine tal, så de vises i tusinder eller millioner.
Lær, hvordan du bruger SharePoints sociale netværksværktøjer, der lader enkeltpersoner og grupper kommunikere, samarbejde, dele og forbinde.
Julianske datoer bruges ofte i produktionsmiljøer som et tidsstempel og hurtig reference for et batchnummer. Denne type datokodning giver detailhandlere, forbrugere og serviceagenter mulighed for at identificere, hvornår et produkt blev fremstillet, og dermed produktets alder. Julianske datoer bruges også i programmering, militæret og astronomi. Forskellige […]
Du kan oprette en webapp i Access 2016. Så hvad er en webapp overhovedet? Nå, web betyder, at det er online, og app er kun en forkortelse for "applikation". En Custom Web App er en online databaseapplikation, der tilgås fra skyen ved hjælp af en browser. Du bygger og vedligeholder webappen i desktopversionen […]
De fleste sider i SharePoint 2010 viser en liste over navigationslinks på linjen Hurtig start langs venstre side af siden. Hurtig startlinjen viser links til fremhævet webstedsindhold såsom lister, biblioteker, websteder og udgivelsessider. Hurtigstartlinjen indeholder to meget vigtige links: Linket Alt webstedsindhold: […]
Ved simple problemer finder Solver i Excel som regel hurtigt de optimale Solver-variableværdier for objektivfunktionen. Men i nogle tilfælde har Solver problemer med at finde de Solver-variableværdier, der optimerer objektivfunktionen. I disse tilfælde viser Solver typisk en meddelelse eller en fejlmeddelelse, der beskriver eller diskuterer det problem, der […]
