Sadržaj
Naravno, možda ćemo morati otvoriti datoteku iz nadređene Excel datoteke koristeći VBA u drugom direktoriju. Ali istovremeno, imamo različite vrste kriterijuma i o tome kako želimo da otvorimo radnu svesku. Ako ste znatiželjni da znate kako možete otvoriti radnu knjigu s imenom varijable, onda bi vam ovaj članak mogao dobro doći. U ovom članku raspravljamo o tome kako možete otvoriti radnu svesku s imenom varijable koristeći VBA u Excelu sa detaljnim objašnjenjima.
Preuzmite radnu svesku za vježbe
Preuzmite ovu radnu svesku za vježbanje ispod.
Otvorite radnu knjigu s imenom varijable koristeći VBA.xlsm
Sample.xlsx
4 Jednostavno Načini otvaranja radne sveske s imenom varijable pomoću VBA u Excelu
Koristit ćemo donji skup podataka za demonstraciju. Imamo informacije o proizvodima nekoliko proizvoda s njihovim ID-om. ovo je primjer datoteke koju ćemo otvoriti pomoću VBA koda.
1. Korištenje Workbook.Open Property
Upotreba Workbook .Open , možemo otvoriti fajlove spominjanjem direktorija, ili ne spominjanjem lokacije. Otvorenu datoteku također možemo učiniti samo za čitanje.
1.1 Otvorena radna knjiga spominjanje putanje datoteke
U sljedećoj metodi ćemo koristiti Workbook.Open Property da otvorite datoteku direktno iz spomenutog direktorija lokacije datoteke. Bez obzira gdje se datoteka nalazi, možemo je otvoritišto je Sub Open_File_with_Add_Property()
⮚ Zatim deklariramo varijablu File_Path kao String type.
3859
⮚ I postavite varijablu File_Path na lokaciju datoteke.
5612
⮚ wb deklariramo kao varijablu u tipu Workbook .
7419
⮚ Radna knjiga se zatim dodaje iz direktorija pohranjenog na lokaciji File_Path pomoću svojstva Workbook.Add .
3425
⮚ Konačno, završavamo podprocedura ovog koda.
Pročitajte više: [Popravljeno!] Metoda Otvaranje radnih knjiga objekata nije uspjelo (4 rješenja)
Zaključak
Da sumiramo, na pitanje kako možemo otvoriti radne knjige s imenima varijabli koristeći VBA ovdje je odgovoreno 4 različita primjera. Metoda VBA Macro zahtijeva prethodno znanje VBA da bi se razumjelo od nule.
Za ovaj problem, dostupna je radna sveska s omogućenim makroima za preuzimanje gdje možete vježbati ove metode.
Slobodno postavljajte pitanja ili povratne informacije putem odjeljka za komentare. Svaki prijedlog za poboljšanje zajednice Exceldemy bit će vrlo vrijedan
jednostavno.Koraci
- Imamo fajl pohranjen u folderu dokumenata koji treba da otvorimo.
- Koristit ćemo datoteku ime kao promenljivu, a zatim otvorite datoteku koristeći mali VBA makro.
- Tačan direktorijum fajla prikazan je ispod u prozoru sa svojstvima.
- Prvo, idite na karticu Programer i kliknite na Visual Basic . Ako to nemate, morate omogućiti karticu Developer . Ili također možete pritisnuti ' Alt+F11' da otvorite Visual Basic Editor .
- Zatim će se pojaviti novi dijaloški okvir, u tom dijaloškom okviru kliknite na Insert > Module .
- Sljedeće, u prozoru Module editor, upišite sljedeći kod:
4825
- Zatim zatvorite Prozor modula.
- Nakon toga idite na karticu Prikaz > Makroi .
- Zatim kliknite na Prikaz Makroi .
- Nakon što kliknete na Prikaži makroe, odaberite makroe koje ste upravo kreirali. Ovdje se zove Otvori_sa_putanjem_datoteke . Zatim kliknite Run .
- Nakon toga će se otvoriti datoteka Sample .
🔎 Raščlamba koda
8163
⮚ Prvo, dajemo naziv za pod- procedura koja je Open_with_File_Path .
6850
⮚ Zatim stavljamo lokaciju datoteke u File_Path varijablu
5818
⮚Zatim deklariramo našu varijablu wrkbk , čiji je tip radna knjiga.
3018
⮚ Zatim otvaramo datoteku nazvanu u varijablu direktorija File_Path i postavljamo datoteku kao wrkbk varijabla.
9276
⮚ Konačno, završavamo podproceduru ovog koda.
Pročitajte više: Kako Otvaranje radne sveske iz putanje pomoću Excel VBA (4 primjera)
1.2 Otvorite radnu svesku bez spominjanja putanje datoteke
U sljedećoj metodi ćemo otvoriti datoteku iz nadređene mape, gdje je glavna datoteka je sačuvana. Datoteka se može otvoriti bez navođenja bilo koje lokacije u kodu. Ovaj fajl samo mora biti u istoj fascikli kao i roditeljski folder.
Koraci
- Imamo drugu datoteku sačuvanu u istom direktorijumu gde je i roditelj Excel datoteka je sada sačuvana.
- Ime datoteke je 1.
- Prvo, idite na Programer karticu i kliknite na Visual Basic . Ako to nemate, morate omogućiti karticu Developer . Ili također možete pritisnuti ' Alt+F11 ' za otvaranje Visual Basic Editor .
- Zatim će se pojaviti novi dijaloški okvir, u tom dijaloškom okviru kliknite na Insert > Module .
- Sljedeće, u prozoru Module editor, upišite sljedeći kod:
Dim File_Path As String
- Zatim zatvorite Prozor modula.
- Nakon toga idite na karticu Prikaz > Makroi .
- Zatim kliknite na PrikazMakroi .
- Nakon što kliknete Prikaži makroe, odaberite makronaredbe koje ste upravo kreirali. Ovdje se zove Otvoreno_bez_putanja_datoteke . Zatim kliknite na Run.
- Nakon što pritisnete Run , primijetit ćete da je datoteka pod nazivom 1 sada otvorena.
- I ovako otvaramo radnu knjigu sa imenom varijable koristeći VBA u Excelu.
🔎 Raščlamba Kod
3474
⮚ Prvo, dajemo ime za potproceduru koje je Sub Open_without_File_Path()
2673
⮚ Mi deklariramo wrkbk kao varijabla u tipu radne knjige
7020
⮚ Otvaramo datoteku iz roditeljskog direktorija pod nazivom 1.xlsx .
5849
⮚ Konačno, završavamo podproceduru ovog koda.
1.3 Otvori radnu svesku kao samo za čitanje
Metoda je prilično slična prvoj metodi, ali ovdje ćemo otvoriti datoteku u načinu samo za čitanje, što znači da nećemo može promijeniti bilo koji podatak ili vrijednost u Excel datoteci.
Koraci
- Datoteka koju želimo otvoriti je sačuvana u folderu dokumenata.
- A ovo je datoteka koju želimo otvoriti samo za čitanje.
- Prvo, idite na Programer karticu i kliknite na Visual Basic . Ako to nemate, morate omogućiti karticu Developer . Ili također možete pritisnuti ' Alt+F11 ' da otvorite Visual Basic Editor.
- Tada će biti novi dijaloškom okviru, u tom dijaloškom okviru kliknite na Insert > Module .
- Dalje, u prozoru uređivača Module upišite sljedeći kod:
3930
- Zatim zatvorite prozor Modul .
- Nakon toga idite na Prikaz karticu > Makroi .
- Zatim kliknite na Prikaži makroe .
- Nakon što kliknete Pogled Makroi, odaberite makronaredbe koje ste upravo kreirali. Ovdje je naziv Otvoreno_sa_datotekom_Samo za čitanje . Zatim kliknite Pokreni .
- Nakon što kliknete na Pokreni , vidjet ćemo da je datoteka sada otvorena samo za čitanje, kao što je prikazano u naslovnoj traci.
🔎 Raščlamba koda
1496
⮚ Prvo, dajemo ime za potproceduru koje je Open_with_File_Read_Only()
2269
⮚ Mi deklariramo wrkbk kao varijablu u tipu radne knjige
8766
⮚ Datoteka će se tada otvoriti iz određenog direktorija, a datoteka će biti postavljena samo za čitanje zadnjim argumentom.
5386
⮚ Konačno, završavamo podprocedura ovog koda.
Pročitajte više: Kako otvoriti radnu knjigu samo za čitanje sa Excel VBA
2. Korišćenje okvira za poruke
Gotovo slično prethodnoj metodi, možemo otvoriti datoteke putem VBA koda ovdje u Excelu, ali u ovom slučaju, ovdje ćemo ugraditi mali okvir za poruke.
Koraci
- Prvo, idite na karticu Developer i kliknite na Visual Basic . Ako to nemate, morate omogućitiKartica Developer . Ili također možete pritisnuti ' Alt+F11' da otvorite Visual Basic Editor .
- Zatim će se pojaviti novi dijaloški okvir, u tom dijaloškom okviru kliknite na Insert > Module .
- Sljedeće, u prozoru Module editor, upišite sljedeći kod:
7007
- Zatim zatvorite Prozor modula.
- Nakon toga idite na karticu Prikaz > Makroi .
- Zatim kliknite na Prikaz Makroi .
- Nakon što kliknete na Prikaži makroe, odaberite makroe koje ste upravo kreirali. Ovdje se zove Open_File_with_Messege_Box . Zatim kliknite Pokreni .
- Tada smo dobili okvir upozorenja koji pokazuje da Datoteka je uspješno otvorena .
- Zatim kliknite OK .
- I tada ćemo vidjeti da je datoteka sada otvori.
- I onda pokušavamo malo izmijeniti kod.
- Mijenjamo naziv datoteke u Sample10 , a zapravo ne postoji datoteka pod nazivom Sample10 u folderu dokumenata.
- Onda mi Ponovo pokrenite kod i pojavit će se okvir s porukom Otvaranje datoteke nije uspjelo .
- Kliknite OK nakon ovoga.
🔎 Raščlamba koda
1164
⮚ Prvo, dajemo naziv za potproceduru koja je Open_with_File_Read_Only()
7157
⮚ Mideklarisati wrkbk kao varijablu u radnoj knjizi type
9314
7839
⮚ Ova linija će provjeriti da li je datoteka pod nazivom Sample dostupna u direktoriju ili ne. Ako je datoteka tamo, onda će otvorite datoteku i istovremeno će prikazati poruku.
4823
⮚ Ako u direktoriju nema datoteke pod nazivom Sample , tada će ova poruka biti isporučena.
2423
⮚ Konačno završavamo podproceduru ovog koda.
5744
⮚ Konačno završavamo podproceduru ovog koda.
Pročitajte više: Kako otvoriti radnu knjigu i pokrenuti makro koristeći VBA (4 primjera)
3. Upotreba dijaloškog okvira za otvaranje datoteke
Izvlačenje direktorija lokacije datoteke i njihovo uvoz svaki put u VBA kodu je prilično glomazan. Da bismo riješili problem, pokazat ćemo kako možete koristiti dijaloški okvir za odabir datoteke iz bilo kojeg direktorija.
Koraci
- Sada ćemo otvoriti datoteku koristeći dijaloški okvir File Explorer.
- Prvo, idite na karticu Developer i kliknite na Visual Basic . Ako to nemate, morate omogućiti karticu Developer . Ili također možete pritisnuti ' Alt+F11' da otvorite Visual Basic Editor .
- Zatim će se pojaviti novi dijaloški okvir, u tom dijaloškom okviru kliknite na Insert > Module .
- Sljedeće, u prozoru Module editor, upišite sljedeći kod:
4254
- Zatim zatvorite Module prozor.
- Nakon toga idite na karticu Prikaz > Makroi .
- Zatim kliknite na Prikaži makroe .
- Nakon što kliknete na Prikaži makroe, odaberite makronaredbe koje ste upravo kreirali. Ovdje je naziv Otvori_datoteku_sa_dijalogskim okvirom . Zatim kliknite Pokreni .
- I tada se otvara novi prozor. U dijaloškom okviru File explorer odaberite Uzorak i kliknite OK .
- Zatim datoteka pod nazivom Primjer otvoren.
- I ovako otvaramo radnu knjigu s imenom varijable koristeći VBA u Excelu.
🔎 Raščlamba koda
9537
⮚ Prvo, dajemo naziv za potproceduru koji je Sub Open_File_with_Dialog_Box()
8757
⮚ Deklarišemo Dbox kao promenljivu u FileDialog tip
3741
⮚ Deklarišemo File_Path kao promenljivu u File_Path Kao String type
1544
⮚ Pojaviće se dijaloški okvir iz prvog reda. Sljedeći red označava ime dijaloškog okvira i tip datoteke.
⮚ Dbox.Title će postaviti naslov dijaloškog okvira. i FileType
postavite tip datoteke.
1628
⮚ Dbox.Filters.Clear će obrisati sve prethodne filtere primijenjene u dijaloškom okviru
9034
⮚ Dbox.Show će učiniti da se dijaloški okvir pojavi na datoteci.
⮚ Ovaj red će odrediti da li je korisnik izabrao više od jedne datoteke ili ne. Ako korisnik odabere više odjedan fajl, cela procedura bi se zaustavila.
3990
⮚ Konačno, završavamo podproceduru ovog koda.
Pročitajte više: Kako otvoriti Fascikla i odabir datoteke pomoću Excel VBA (4 primjera)
4. Korištenje radne knjige.Dodaj svojstvo
Za razliku od prethodnih metoda, kreirat ćemo novu Excel datoteku u unaprijed određenom direktoriju a zatim ćemo ga otvoriti pomoću Radne sveske. Dodaj svojstvo.
Koraci
- Prvo, idite na karticu Razvojni programer i kliknite na Visual Basic . Ako to nemate, morate omogućiti karticu Developer . Ili također možete pritisnuti ' Alt+F11' da otvorite Visual Basic Editor .
- Zatim će se pojaviti novi dijaloški okvir, u tom dijaloškom okviru kliknite na Insert > Module .
Sljedeće, u prozoru Module editor, upišite sljedeći kod:
7344
- Zatim zatvorite prozor Module .
- Nakon to, idite na karticu Prikaz > Makroi .
- Zatim kliknite na Prikaži makroe .
- Nakon što kliknete na Prikaži makroe, odaberite makroe koje ste upravo kreirali. Ovdje se zove Otvorena_datoteka_sa_Dodavanjem_Svojstva . Zatim kliknite Pokreni .
- Nakon što kliknete na Pokreni, primijetit ćete da je sada nova datoteka kreirano i otvoreno.
🔎 Raščlamba koda
⮚ Prvo, pružamo naziv za potproceduru