Ako vaš VBA postupak treba pitati korisnika za datoteke, što bi moglo koristiti funkciju InputBox i neka Excel korisnik napraviti neke tipkati. No, okvir za unos obično nije najbolji alat za ovaj posao, jer većina korisnika teško pamti staze, obrnute kose crte, nazive datoteka i ekstenzije datoteka. Drugim riječima, previše je lako zeznuti kada upisujete naziv datoteke.
Za bolje rješenje ovog problema upotrijebite metodu GetOpenFilename objekta Application, koja osigurava da vaš kod dobije valjani naziv datoteke, uključujući njezinu potpunu putanju. Metoda GetOpenFilename prikazuje poznati dijaloški okvir Otvaranje (prekid zvona za dijaloški okvir Excel se prikazuje kada odaberete Datoteka → Otvori → Pregledaj).
Metoda GetOpenFilename zapravo ne otvara navedenu datoteku. Ova metoda jednostavno vraća korisnički odabrani naziv datoteke kao niz. Zatim možete napisati kod kako biste učinili što god želite s imenom datoteke.
Službena sintaksa metode GetOpenFilename je sljedeća:
object.GetOpenFilename ([filter file], [filterIndex], [naslov], [buttonText], [više odabira])
GetOpenFilename metoda uzima neobavezne argumente u nastavku.
| Argument | Što to radi |
|---|---|
| FileFilter | Određuje vrste datoteka koje se pojavljuju u dijaloškom okviru (na primjer, *.TXT). Možete odrediti nekoliko filtara koje korisnik može odabrati. |
| FilterIndex | Određuje koji od filtera datoteka dijaloški okvir prikazuje prema zadanim postavkama. |
| Titula | Određuje naslov za naslovnu traku dijaloškog okvira . |
| ButtonText | Ignorirano (koristi se samo za Macintosh verziju Excela). |
| MultiSelect | Ako je istinito, korisnik može odabrati više datoteka. |
Argument fileFilter određuje što se pojavljuje na padajućem popisu Files of Type dijaloškog okvira. Ovaj argument se sastoji od parova nizova filtera datoteka nakon kojih slijedi specifikacija filtera datoteke sa zamjenskim znakovima, sa zarezima koji odvajaju svaki dio i par. Ako se izostavi, ovaj argument je zadano na sljedeće:
Sve datoteke (*.*), *.*
Obratite pažnju da se ovaj niz sastoji od dva dijela, odvojena zarezom:
Sve datoteke (*.*)
i
*.*
Prvi dio ovog niza je tekst prikazan na padajućem popisu Files of Type. Drugi dio određuje koje datoteke dijaloški okvir prikazuje. Na primjer, *.* znači sve datoteke.
Kôd u sljedećem primjeru otvara dijaloški okvir koji od korisnika traži naziv datoteke. Postupak definira pet filtara datoteka. Primijetite da se sekvenca nastavka VBA reda koristi za postavljanje varijable Filter; to pomaže pojednostavniti ovaj prilično kompliciran argument.
Sub GetImportFileName ()
Dim Finfo As String
Dim FilterIndex As Long
Dim Title As String
Dim FileName kao varijanta
' Postavite popis filtara datoteka
FInfo = "Tekstualne datoteke (*.txt),*.txt" & _
"Lotus datoteke (*.prn),*.prn," & _
"Datoteke odvojene zarezima (*.csv),*.csv", & _
"ASCII datoteke (*.asc),*.asc," & _
"Sve datoteke (*.*),*.*"
' Prikaži *.* prema zadanim postavkama
Indeks filtra = 5
' Postavite naslov dijaloškog okvira
Naslov = "Odaberite datoteku za uvoz"
' Dobijte naziv datoteke
FileName = Application.GetOpenFilename (FInfo, _
Indeks filtera, naslov)
' Rukovati povratnim informacijama iz dijaloškog okvira
Ako je FileName = False Onda
MsgBox "Nijedna datoteka nije odabrana."
Drugo
MsgBox “Odabrali ste “ & Naziv datoteke
Završi ako
Kraj Sub
Ovo je dijaloški okvir koji Excel prikazuje kada izvršite ovaj postupak. Izgled se može razlikovati, ovisno o verziji sustava Windows koju koristite i opcijama prikaza koje ste postavili.
Metoda GetOpen Filename prikazuje prilagodljiv dijaloški okvir i vraća put i naziv odabrane datoteke. Ne otvara datoteku.
U pravoj aplikaciji, učinili biste nešto smislenije s nazivom datoteke. Na primjer, možda biste ga željeli otvoriti korištenjem izjave poput ove:
Radne knjige.Otvorite FileName
Primijetite da je varijabla FileName deklarirana kao tip podataka Variant. Ako korisnik klikne Odustani, ta varijabla sadrži Booleovu vrijednost (False). Inače, FileName je niz. Stoga korištenje tipa podataka Variant rješava obje mogućnosti.
Kako blokirati Microsoft Word da otvara datoteke u načinu rada samo za čitanje u sustavu Windows Microsoft Word otvara datoteke u načinu rada samo za čitanje, što onemogućuje njihovo uređivanje? Ne brinite, metode su navedene u nastavku
Kako popraviti pogreške u ispisu netočnih Microsoft Word dokumenata Pogreške u ispisu Word dokumenata s promijenjenim fontovima, neurednim odlomcima, nedostajućim tekstom ili izgubljenim sadržajem vrlo su česte. Međutim, nemojte
Ako ste upotrijebili olovku ili marker za crtanje na PowerPoint slajdovima tijekom prezentacije, možete spremiti crteže za sljedeću prezentaciju ili ih izbrisati tako da ćete sljedeći put kada ih pokažete početi s čistim PowerPoint slajdovima. Slijedite ove upute za brisanje crteža olovkom i markerom: Brisanje linija jedan na […]
Biblioteka stilova sadrži CSS datoteke, datoteke Extensible Stylesheet Language (XSL) i slike koje koriste unaprijed definirane glavne stranice, izgledi stranica i kontrole u SharePointu 2010. Da biste locirali CSS datoteke u biblioteci stilova web-mjesta za objavljivanje: Odaberite Radnje web-mjesta→Prikaz Sav sadržaj web-mjesta. Pojavljuje se sadržaj stranice. Knjižnica Style nalazi se u […]
Nemojte zatrpavati svoju publiku ogromnim brojevima. U Microsoft Excelu možete poboljšati čitljivost svojih nadzornih ploča i izvješća formatiranjem brojeva tako da se prikazuju u tisućama ili milijunima.
Naučite kako koristiti SharePointove alate za društveno umrežavanje koji pojedincima i grupama omogućuju komunikaciju, suradnju, dijeljenje i povezivanje.
Julijanski datumi se često koriste u proizvodnim okruženjima kao vremenska oznaka i brza referenca za broj serije. Ova vrsta datumskog kodiranja omogućuje trgovcima na malo, potrošačima i uslužnim agentima da identificiraju kada je proizvod napravljen, a time i starost proizvoda. Julijanski datumi se također koriste u programiranju, vojsci i astronomiji. Drugačiji […]
Možete izraditi web-aplikaciju u Accessu 2016. Dakle, što je uopće web-aplikacija? Pa, web znači da je online, a aplikacija je samo skraćenica za "aplikaciju". Prilagođena web-aplikacija je online aplikacija baze podataka kojoj se pristupa iz oblaka pomoću preglednika. Vi gradite i održavate web-aplikaciju u verziji za stolna računala […]
Većina stranica u sustavu SharePoint 2010 prikazuje popis navigacijskih veza na traci za brzo pokretanje na lijevoj strani stranice. Traka za brzo pokretanje prikazuje veze na istaknuti sadržaj web-mjesta kao što su popisi, knjižnice, web-mjesta i stranice za objavljivanje. Traka za brzo pokretanje uključuje dvije vrlo važne veze: vezu za sav sadržaj web-mjesta: […]
Za jednostavne probleme, Solver u Excelu obično brzo pronalazi optimalne vrijednosti varijable Solvera za funkciju cilja. No, u nekim slučajevima, Solver ima problema s pronalaženjem vrijednosti varijable Solvera koje optimiziraju funkciju cilja. U tim slučajevima, Solver obično prikazuje poruku ili poruku o pogrešci koja opisuje ili raspravlja o problemu koji […]
