Hvis VBA-prosedyren din trenger å spørre brukeren om et filnavn, kan du bruke InputBox-funksjonen og la Excel-brukeren skrive litt. En inndataboks er vanligvis ikke det beste verktøyet for denne jobben, fordi de fleste brukere synes det er vanskelig å huske baner, omvendt skråstrek, filnavn og filutvidelser. Det er med andre ord altfor lett å skru på når du skriver inn et filnavn.
For en bedre løsning på dette problemet, bruk GetOpenFilename-metoden til Application-objektet, som sikrer at koden din får tak i et gyldig filnavn, inkludert den fullstendige banen. GetOpenFilename-metoden viser den velkjente Open-dialogboksen (en død ringetone for dialogboksen Excel vises når du velger Fil → Åpne → Bla gjennom).
GetOpenFilename-metoden åpner faktisk ikke den angitte filen. Denne metoden returnerer ganske enkelt det brukervalgte filnavnet som en streng. Deretter kan du skrive kode for å gjøre hva du vil med filnavnet.
Den offisielle syntaksen til GetOpenFilename-metoden er som følger:
object.GetOpenFilename ([filFilter], [filterIndex], [tittel],[buttonText], [multiSelect])
GetOpenFilename-metoden tar de valgfrie argumentene nedenfor.
| Argument | Hva det gjør |
|---|---|
| Filfilter | Bestemmer filtypene som vises i dialogboksen (for eksempel *.TXT). Du kan angi flere filtre som brukeren kan velge mellom. |
| FilterIndex | Bestemmer hvilke av filfiltrene dialogboksen viser som standard. |
| Tittel | Angir bildeteksten for dialogboksens tittellinje . |
| Knapptekst | Ignorert (brukes kun for Macintosh-versjonen av Excel). |
| Flervalg | Hvis det er sant, kan brukeren velge flere filer. |
Argumentet fileFilter bestemmer hva som vises i dialogboksens Filtype-rullegardinliste. Dette argumentet består av par med filfilterstrenger etterfulgt av jokertegnfilfilterspesifikasjonen, med kommaer som skiller hver del og par. Hvis det utelates, har dette argumentet som standard følgende:
Alle filer (*.*), *.*
Legg merke til at denne strengen består av to deler, atskilt med komma:
Alle filer (*.*)
og
*.*
Den første delen av denne strengen er teksten som vises i rullegardinlisten Files of Type. Den andre delen bestemmer hvilke filer dialogboksen viser. For eksempel betyr *.* alle filer.
Koden i følgende eksempel åpner en dialogboks som ber brukeren om et filnavn. Prosedyren definerer fem filfiltre. Legg merke til at VBA-linjefortsettelsessekvensen brukes til å sette opp filtervariabelen; å gjøre det bidrar til å forenkle dette ganske kompliserte argumentet.
Sub GetImportFileName ()
Dim Finfo som streng
Dim FilterIndex As Long
Dim tittel som streng
Dim filnavn som variant
' Sett opp liste over filfiltre
FIinfo = "Tekstfiler (*.txt),*.txt," & _
"Lotus-filer (*.prn),*.prn," & _
"Kommaseparerte filer (*.csv),*.csv," & _
"ASCII-filer (*.asc),*.asc," & _
"Alle filer (*.*),*.*"
' Vis *.* som standard
FilterIndex = 5
' Angi dialogboksens bildetekst
Tittel = "Velg en fil å importere"
' Få filnavnet
Filnavn = Application.GetOpenFilename (FIinfo, _
FilterIndex, Tittel)
' Håndter returinformasjon fra dialogboksen
Hvis Filnavn = False Da
MsgBox "Ingen fil ble valgt."
Ellers
MsgBox "Du valgte " & filnavn
Slutt om
End Sub
Her er dialogboksen Excel viser når du utfører denne prosedyren. Utseendet kan variere, avhengig av hvilken versjon av Windows du bruker og visningsalternativene du har angitt.
GetOpen Filename-metoden viser en tilpassbar dialogboks og returnerer den valgte filens bane og navn. Den åpner ikke filen.
I en ekte applikasjon vil du gjøre noe mer meningsfylt med filnavnet. Det kan for eksempel være lurt å åpne den ved å bruke en setning som denne:
Arbeidsbøker. Åpne filnavn
Legg merke til at filnavn-variabelen er deklarert som en variantdatatype. Hvis brukeren klikker Avbryt, inneholder variabelen en boolsk verdi (False). Ellers er filnavn en streng. Derfor håndterer bruk av en variantdatatype begge mulighetene.
Hvordan blokkere Microsoft Word fra å åpne filer i skrivebeskyttet modus på Windows Microsoft Word åpner filer i skrivebeskyttet modus, noe som gjør det umulig å redigere dem? Ikke bekymre deg, metodene er nedenfor
Slik fikser du feil ved utskrift av feil Microsoft Word-dokumenter Feil ved utskrift av Word-dokumenter med endrede fonter, rotete avsnitt, manglende tekst eller tapt innhold er ganske vanlig. Men ikke gjør det
Hvis du har brukt pennen eller merkepennen til å tegne på PowerPoint-lysbildene dine under en presentasjon, kan du lagre tegningene til neste presentasjon eller slette dem, slik at du neste gang du viser dem starter med rene PowerPoint-lysbilder. Følg disse instruksjonene for å slette penn- og merkepenntegninger: Slette linje én på […]
Stilbiblioteket inneholder CSS-filer, Extensible Stylesheet Language-filer (XSL) og bilder som brukes av forhåndsdefinerte mastersider, sideoppsett og kontroller i SharePoint 2010. For å finne CSS-filer i stilbiblioteket til et publiseringsnettsted: Velg Site Actions→ View Alt innhold på nettstedet. Innholdet på nettstedet vises. Style-biblioteket ligger i […]
Ikke overveld publikum med gigantiske tall. I Microsoft Excel kan du forbedre lesbarheten til dashbordene og rapportene dine ved å formatere tallene dine slik at de vises i tusenvis eller millioner.
Lær hvordan du bruker SharePoints sosiale nettverksverktøy som lar enkeltpersoner og grupper kommunisere, samarbeide, dele og koble til.
Julianske datoer brukes ofte i produksjonsmiljøer som et tidsstempel og hurtigreferanse for et batchnummer. Denne typen datokoding lar forhandlere, forbrukere og serviceagenter identifisere når et produkt ble laget, og dermed alderen på produktet. Julianske datoer brukes også i programmering, militæret og astronomi. Forskjellig […]
Du kan lage en nettapp i Access 2016. Så hva er en nettapp egentlig? Vel, nettet betyr at det er online, og appen er bare en forkortelse for "applikasjon". En Custom Web App er en online databaseapplikasjon som du får tilgang til fra skyen ved hjelp av en nettleser. Du bygger og vedlikeholder nettappen i skrivebordsversjonen […]
De fleste sidene i SharePoint 2010 viser en liste over navigasjonskoblinger på hurtigstartlinjen langs venstre side av siden. Hurtigstartlinjen viser koblinger til innhold på nettstedet som lister, biblioteker, nettsteder og publiseringssider. Hurtigstartlinjen inneholder to svært viktige lenker: Linken for alt nettstedinnhold: […]
For enkle problemer finner Solver i Excel vanligvis raskt de optimale Solver-variabelverdiene for objektivfunksjonen. Men i noen tilfeller har Solver problemer med å finne Solver-variabelverdiene som optimerer objektivfunksjonen. I disse tilfellene viser Solver vanligvis en melding eller en feilmelding som beskriver eller diskuterer problemet som […]
