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.
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 […]
Veebirakenduse saate luua rakenduses Access 2016. Mis siis ikkagi on veebirakendus? Noh, veeb tähendab, et see on võrgus ja rakendus on lihtsalt "rakenduse" lühend. Kohandatud veebirakendus on veebipõhine andmebaasirakendus, millele pääseb ligi brauseri abil pilvest. Loote ja hooldate veebirakendust töölaua versioonis […]
Enamik SharePoint 2010 lehti kuvab lehe vasakus servas kiirkäivitusribal navigeerimislinkide loendi. Kiirkäivitusribal kuvatakse lingid saidi esiletoodud sisule (nt loendid, teegid, saidid ja avaldamislehed). Kiirkäivitusribal on kaks väga olulist linki: link kogu saidi sisu: […]
Lihtsate ülesannete puhul leiab Exceli lahendaja tavaliselt kiiresti eesmärgifunktsiooni jaoks optimaalsed Lahendaja muutuja väärtused. Kuid mõnel juhul on Solveril raskusi sihtfunktsiooni optimeerivate Solveri muutuja väärtuste leidmisega. Sellistel juhtudel kuvab Solver tavaliselt teate või veateate, mis kirjeldab või arutab probleemi, mida […]
Saate hõlpsasti eemaldada arvutatud välju ja üksusi Exceli liigendtabelist. Arvutatud välja eemaldamiseks klõpsake liigendtabelis lahtrit. Seejärel klõpsake vahekaardi Analüüsi käsku Fields, Items & Sets ja valige kuvatavast alammenüüst Arvutatud väli. Kui Excel kuvab dialoogiboksi Arvutatud välja lisamine, valige […]
Sildid on märksõnad, mille määrate sisule. Lehtede sildistamine teistega jagamiseks on sotsiaalne järjehoidja ning see on veebis väga populaarne ja SharePointis lihtne. Kui olete kunagi kasutanud saiti nagu Delicious, teate juba, kuidas sotsiaalne järjehoidja töötab. Kuna rohkem inimesi määrab samu silte, muutuvad sildid viisiks […]
