Jei jūsų VBA procedūra turi paprašyti naudotojo už failo, kurį galima naudoti InputBox funkciją ir leiskite Excel vartotojas ką nors rašyti. Tačiau įvesties laukelis paprastai nėra geriausias įrankis šiam darbui, nes daugumai vartotojų sunku atsiminti kelius, pasviruosius brūkšnius, failų pavadinimus ir failų plėtinius. Kitaip tariant, per lengva suklysti įvedant failo pavadinimą.
Norėdami geriau išspręsti šią problemą, naudokite programos objekto metodą GetOpenFilename, kuris užtikrina, kad jūsų kodas pateks į tinkamą failo pavadinimą, įskaitant visą jo kelią. Taikant GetOpenFilename metodą rodomas pažįstamas Atidaryti dialogo langas (neveikiantis dialogo lango „Excel“ skambutis, kai pasirenkate Failas → Atidaryti → Naršyti).
GetOpenFilename metodas iš tikrųjų neatidaro nurodyto failo. Šis metodas tiesiog grąžina vartotojo pasirinktą failo pavadinimą kaip eilutę. Tada galite parašyti kodą ir daryti ką norite su failo pavadinimu.
Oficiali GetOpenFilename metodo sintaksė yra tokia:
object.GetOpenFilename ([fileFilter], [filterIndex], [pavadinimas], [buttonText], [multiSelect])
Metodas „GetOpenFilename“ paima toliau pateiktus pasirenkamus argumentus.
| Argumentas | Ką tai daro |
|---|---|
| Failų filtras | Nustato dialogo lange rodomų failų tipus (pvz., *.TXT). Galite nurodyti kelis filtrus, iš kurių vartotojas gali pasirinkti. |
| Filtravimo indeksas | Nustato, kuris failas filtruoja dialogo langą pagal numatytuosius nustatymus. |
| Pavadinimas | Nurodo dialogo lango pavadinimo juostos antraštę . |
| Mygtuko tekstas | Ignoruojama (naudojama tik „Excel“ Macintosh versijai). |
| MultiSelect | Jei tiesa, vartotojas gali pasirinkti kelis failus. |
Argumentas fileFilter nustato, kas bus rodoma dialogo lango išskleidžiamajame sąraše Files of Type. Šį argumentą sudaro failų filtrų eilučių poros, po kurių eina pakaitos simbolio failo filtro specifikacija, kableliais atskiriant kiekvieną dalį ir porą. Jei praleista, šis argumentas pagal numatytuosius nustatymus yra toks:
Visi failai (*.*), *.*
Atkreipkite dėmesį, kad ši eilutė susideda iš dviejų dalių, atskirtų kableliu:
Visi failai (*.*)
ir
*.*
Pirmoji šios eilutės dalis yra tekstas, rodomas išskleidžiamajame sąraše Files of Type. Antroji dalis nustato, kurie failai rodomi dialogo lange. Pavyzdžiui, *.* reiškia visus failus.
Šiame pavyzdyje pateiktas kodas atidaro dialogo langą, kuriame vartotojo prašoma įvesti failo pavadinimą. Procedūra apibrėžia penkis failų filtrus. Atkreipkite dėmesį, kad VBA eilutės tęsimo seka naudojama filtro kintamajam nustatyti; tai padeda supaprastinti šį gana sudėtingą argumentą.
Sub GetImportFileName ()
Dim Finfo As String
Dim FilterIndex As Long
Pritemdykite pavadinimą kaip eilutę
Pritemdykite failo pavadinimą kaip variantą
' Nustatykite failų filtrų sąrašą
Finfo = "Teksto failai (*.txt),*.txt" & _
„Lotus Files (*.prn),*.prn“ ir _
„Kableliais atskirti failai (*.csv),*.csv“ ir _
„ASCII failai (*.asc),*.asc“ ir _
"Visi failai (*.*),*.*"
Pagal numatytuosius nustatymus rodyti *.*
FilterIndex = 5
' Nustatykite dialogo lango antraštę
Title = „Pasirinkite importuotiną failą“
' Gaukite failo pavadinimą
FileName = Application.GetOpenFilename (FIinfo, _
FilterIndex, Title)
Tvarkyti grąžinimo informaciją iš dialogo lango
Jei failo pavadinimas = false, tada
MsgBox „Nepasirinktas joks failas“.
Kitas
MsgBox „Jūs pasirinkote“ & Failo pavadinimas
Pabaiga, jei
Pabaigos sub
Čia yra dialogo langas, rodomas „Excel“, kai vykdote šią procedūrą. Išvaizda gali skirtis, atsižvelgiant į naudojamą „Windows“ versiją ir nustatytas rodymo parinktis.
Naudojant GetOpen failo pavadinimo metodą rodomas tinkinamas dialogo langas ir pateikiamas pasirinkto failo kelias bei pavadinimas. Tai neatidaro failo.
Tikroje programoje su failo pavadinimu padarytumėte ką nors prasmingesnio. Pavyzdžiui, galbūt norėsite jį atidaryti naudodami tokį teiginį:
Workbooks.Open FileName
Atkreipkite dėmesį, kad kintamasis FileName deklaruojamas kaip Variant duomenų tipas. Jei vartotojas spustelėja Atšaukti, tame kintamajame yra Būlio reikšmė (False). Kitu atveju failo pavadinimas yra eilutė. Todėl naudojant Variant duomenų tipą, išsprendžiamos abi galimybės.
Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau
Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia
Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]
Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]
Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.
Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.
Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]
Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]
Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]
Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]
