Kui teie VBA protseduuri vaja küsida kasutajalt failinime, siis võiks kasutada inputbox funktsiooni ja lase Excel kasutaja teha mõned sisestamist. Sisestuskast ei ole tavaliselt selle töö jaoks siiski parim tööriist, kuna enamikul kasutajatel on raske meelde jätta teid, kaldkriipse, failinimesid ja faililaiendeid. Teisisõnu, failinime kirjutamisel on liiga lihtne rikkuda.
Selle probleemi paremaks lahendamiseks kasutage rakenduse objekti meetodit GetOpenFilename, mis tagab, et teie kood saab kätte kehtiva failinime, sealhulgas selle täieliku tee. Meetod GetOpenFilename kuvab tuttava dialoogiboksi Ava (dialoogiboksi jaoks kuvatakse Exceli helin, kui valite Fail → Ava → Sirvi).
GetOpenFilename meetod ei ava tegelikult määratud faili. See meetod tagastab lihtsalt kasutaja valitud failinime stringina. Seejärel saate kirjutada koodi, et teha failinimega kõike, mida soovite.
GetOpenFilename meetodi ametlik süntaks on järgmine:
object.GetOpenFilename ([fileFilter], [filterIndex], [pealkiri], [buttonText], [mitme valik])
GetOpenFilename meetod kasutab allpool toodud valikulisi argumente.
| Argument | Mida see teeb |
|---|---|
| Failifilter | Määrab dialoogiboksis kuvatavate failide tüübid (nt *.TXT). Saate määrata mitu filtrit, mille vahel kasutaja saab valida. |
| Filtriindeks | Määrab, millised failifiltrid dialoogiboksis vaikimisi kuvatakse . |
| Pealkiri | Määrab dialoogiboksi tiitliriba pealkirja . |
| Nuputekst | Eiratud (kasutatakse ainult Exceli Macintoshi versiooni jaoks). |
| MultiSelect | Kui Tõene, saab kasutaja valida mitu faili. |
Argument fileFilter määrab, mis kuvatakse dialoogiboksi ripploendis Files of Type. See argument koosneb failifiltri stringide paaridest, millele järgneb metamärgiga failifiltri spetsifikatsioon, kusjuures iga osa ja paari eraldavad komad. Kui see jäetakse välja, on selle argumendi vaikeväärtus järgmine:
Kõik failid (*.*), *.*
Pange tähele, et see string koosneb kahest osast, mis on eraldatud komaga:
Kõik failid (*.*)
ja
*.*
Selle stringi esimene osa on ripploendis Files of Type kuvatav tekst. Teine osa määrab, millised failid dialoogiboksis kuvatakse. Näiteks *.* tähendab kõiki faile.
Järgmises näites olev kood avab dialoogiboksi, mis küsib kasutajalt failinime. Protseduur määratleb viis failifiltrit. Pange tähele, et muutuja Filter seadistamiseks kasutatakse VBA rea jätkamise jada; see aitab seda üsna keerulist argumenti lihtsustada.
Sub GetImportFileName ()
Dim Finfo stringina
Dim FilterIndex As Long
Dim Pealkiri Stringina
Dim failinimi variandina
Failifiltrite loendi seadistamine
FIinfo = "Tekstifailid (*.txt),*.txt" & _
"Lotus Files (*.prn),*.prn" & _
„Komadega eraldatud failid (*.csv),*.csv” & _
"ASCII failid (*.asc),*.asc" & _
"Kõik failid (*.*),*.*"
Vaikimisi kuvatakse *.*
Filtriindeks = 5
' Määrake dialoogiboksi pealkiri
Pealkiri = "Valige imporditav fail"
"Hankige failinimi
FileName = Application.GetOpenFilename (FIinfo, _
Filtriindeks, pealkiri)
' Käsitlege tagastamisteavet dialoogiboksist
Kui failinimi = Väär, siis
MsgBox "Ühtegi faili pole valitud."
Muidu
MsgBox "Valisite " & failinimi
Lõpeta Kui
Lõpeta alam
Siin on dialoogiboks, mille Excel kuvab selle protseduuri teostamisel. Välimus võib varieeruda olenevalt kasutatavast Windowsi versioonist ja seadistatud kuvasuvanditest.
Meetod GetOpen Filename kuvab kohandatava dialoogiboksi ja tagastab valitud faili tee ja nime. See ei ava faili.
Päris rakenduses teeksite failinimega midagi tähendusrikkamat. Näiteks võite soovida selle avada, kasutades sellist avaldust:
Töövihikud.Ava failinimi
Pange tähele, et muutuja FileName on deklareeritud andmetüübina Variant. Kui kasutaja klõpsab nupul Tühista, sisaldab see muutuja tõeväärtust (False). Vastasel juhul on failinimi string. Seetõttu käsitleb andmetüübi Variant kasutamine mõlemat võimalust.
Uurige kümmet nõuannet Microsoft Teamsiga parema koosolekukogemuse saamiseks, sealhulgas märkmete tegemine, tausta hägustamine, vaigistamine ja koosolekute salvestamine.
Lühikeses Word 2013 dokumendis saate kommentaare hõlpsalt sirvida ja uurida. Siit leiate samm-sammult, kuidas kommentaare lugeda ja eemaldada.
Mõnikord varitseb kurjus selles, mis peaks olema Word 2016 peamises mõistlikkuse hoidlas: tavalises mallifailis. Õpi, kuidas taastada normaalne mall ja eemaldada probleemid.
Kuidas lisada lõigu taane Word 2013-s, et luua selgem ja professionaalsem ilme. Meie juhend aitab sul lihtsasti navigeerida Wordi funktsioonide kaudu ja tutvustab esimeses reas taande ning rippuva taande lisamise viise.
Lisaks kuuele kiirtoimingule, mis kuvatakse Outlooki esmakordsel installimisel, on teil valida veelgi rohkemate Quick Step mallide hulgast.
Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]
Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]
Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.
Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.
Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]
