Excel VBA töövihik avatud

Kõige tavalisemad toimingud igapäevases elus on Exceli töövihikute avamine, kui töötate Exceliga. Te ei saa Excelis töötada ilma Exceli töövihikuid või Exceli faili avamata. Nii et selles artiklis käsitleme, kuidas saaksime VBA abiga avada Exceli töövihikuid.

Exeli töövihikute avamise meetodid VBA-s

Exceli töövihikute avamiseks VBA-s on kaks meetodit ja selles artiklis käsitleme mõlemat meetodit.

Selle VBA töövihiku avatud Exceli malli saate alla laadida siit - VBA töövihiku avatud Exceli mall

Meetod nr 1 - Excel VBA Workbooks.open meetod

Esimene meetod VBA-s on sisseehitatud funktsiooni Workbooks.open kasutamine . Funktsioonis „Workbooks.open” on 15 valikulist argumenti ja kõigi 15 argumendi katmine võtab palju aega. Proovime lihtsalt mõista mõnd Workbooks.open põhitõed ja vaadata, kuidas saaksime seda funktsiooni kasutada VBAs Workbooks avamiseks.

Nii et selle meetodi esimene samm on see, et peaksite teadma Exceli töövihikute failinime. Allpool on avaldus tööraamatute avamiseks. ”Workbooks.open“ File_Name ”

Või

Töövihikud.Ava failinimi: = ”File_Name”

Failinimi on töövihikute nimi, mida soovite avada. Kuid siin peate olema ettevaatlik, kuna peate faili laiendiga (.XLS, .XLSX, .xlsm jne) sisestama kogu tee, kuhu fail salvestatakse, ja faili nimi. Selle funktsiooni mõistmiseks võime kasutada allpool toodud makro näidet.

Näide

Oletame, et soovite avada Exceli faili nimega „Test File”, mis on salvestatud arvuti D-draivi. Looge makro Exceli makrofunktsioonidega töövihikus. Excel VBA Workbooks.open meetodi kasutamiseks toimige järgmiselt.

1. samm: klõpsake File.

2. samm: klõpsake valikul Suvandid .

3. samm: klõpsake nuppu Kohanda linti .

4. samm: veenduge, et arendaja väli on märgitud allpool ja klõpsake nuppu OK.

5. samm: kui teil on arendaja vahekaart, klõpsake Visual basic, nagu on näidatud allolevas ekraanipildis.

Pärast visuaalsete põhitõdede klõpsamist peate alustama oma makro kodeerimist.

6. samm: sisestage VBA moodulisse järgmine kood.

Kood:

 Alam alamvorm () Lõpeta alam

See kood annab teie töövihiku nime.

7. samm: sisestage kood, millega saab avada arvuti D-draivi salvestatud töövihiku.

Kood:

 Sub Open_workbook () Workbooks.Open Filename: = "D: \ Test File.xlsx" End Sub

8. samm: käivitage kood, vajutades klahvi F5 või klõpsates nuppu Esita. Pärast makro käitamist leiate, et Exceli fail avatakse automaatselt. Nagu ülaltoodud koodist näete, avab makro Exceli faili nimega “Test File.xlsx”, mis salvestatakse arvuti D-draivi. Eespool nimetatud tee on üsna lihtne, kuna töövihikute saamiseks pole kaustu ja alamkaustu.

See muutub keeruliseks, kuna paljud inimesed ei mäleta seda rada ja kui faili tee, kuhu see salvestatakse, natuke muutub, siis makro ei tööta. Makro ei tööta isegi siis, kui faili nimi muutub ühe tähega. Nii et kui faili tee / nimi muutub, peate muutma makro VBA-koodi. See muudab töökoha tüütuks ja ka veatuks. Nii et veendumaks, et teie makro töötab laitmatult, ilma et teile tõrget pakutaks, kasutame teist hõlpsasti käsitsetavat meetodit, mis ei anna teile tõrget isegi siis, kui te ei mäleta asukoha nime või isegi siis, kui faili nimi muutub .

2. meetod - hankige avatud failinimi

Nagu teate väljakutsetest, mille ees seisame marsruudi muutmise ja faili nime esimese meetodi kasutamisel, väldib see meetod mõlemat väljakutset. See meetod annab võimaluse sirvida oma arvutis faili salvestamise kohta ja avab selle töövihiku, mille soovite avada.

See meetod töötab tegelikult kahes osas.

Selle meetodi esimene osa on Application.GetOpenFileName. See osa võimaldab teil oma arvutis sirvida ja valida faili salvestamise tee. Esimeses osas ei avata faili, mida soovite avada.

Teine osa on faili avamine, mille puhul peate ikkagi sõltuma esimesest meetodist (VBA Workbooks.open Method). Rakenduses.GetOpenFileName on 5 argumenti, kuid vaadeldakse ainult neid põhitõdesid, nagu me tegime seda esimese meetodi puhul. Proovime nüüd näite abil seda meetodit mõista.

Näide

Oletame, et soovite avada arvuti D-draivi salvestatud testfaili, siis peate lihtsalt järgima järgmisi samme.

1. samm . Järgige vahekaardi Arendaja Visual Basic Editori või Open Visual Basic Editor avamiseks esimeses näites mainitud 1. sammu.

2. samm: sisestage allolev kood, mis annab teie makro nime.

Kood:

 Alam Open_workbook_example2 () End Sub

3. samm: sisestage allolev kood. Selles avalduses kuulutatakse failinimi muutujaks, kuna siin ei täpsustata tee või faili nime, kuna see võib aeg-ajalt muutuda.

Kood:

 Alam Open_workbook_example2 () Dim Myfile_Name Variant End Sub Sub

4. samm: sisestage allolev kood. See avaldus avab allpool oleva dialoogiboksi ja saate sirvida kaustu, et minna faili salvestamise teele. Samuti kuvatakse sirvimise ajal Exceli fail, kuna oleme Exceli failidele filtri pannud.

Kood:

 Sub Open_workbook_example2 () Dim Myfile_Name Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel Files (*. Xl *), *. Xl *)") End Sub

5. samm: sisestage allolev kood. See avaldus on Kui siis avaldus, mida kasutatakse siis, kui fail .Name ei võrdu valega, siis avage valitud Exceli fail.

Kood:

 Sub Open_workbook_example2 () Dim Myfile_Name Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Exceli failid (*. Xl *), *. Xl *)") Kui Myfile_Name vale, siis Workbooks.Open Filename: = Myfile_Name End Sub

6. samm: sisestage allolev kood. See avaldus sulgeb makro tingimus If.

Kood:

 Sub Open_workbook_example2 () Dim Myfile_Name Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel Files (*. Xl *), *. Xl *)") Kui Myfile_Name False, siis Workbooks.Open Filename: = Myfile_Name End if End Sub

7. samm: käivitage nüüd kood, vajutades klahvi F5 või klõpsates nuppu Esita. Näete dialoogiboksi faili sirvimiseks. Sirvige töölauda, ​​kuhu teie fail on salvestatud. Nüüd näete seda faili D-draivis. Valige fail ja klõpsake nuppu Ava.

Nagu nägime just oma näites, ei pea me muretsema faili nime ja tee nime pärast, kuhu fail salvestatakse. Saame hõlpsalt liikuda kausta, kuhu meie fail on salvestatud, ja valida faili, mida tahame avada. Nii võime hõlpsalt järeldada, et see meetod on esimese meetodiga võrreldes palju tõhusam.

Asjad, mida meeles pidada

  • Esimese meetodi kasutamisel veenduge, et teekonna nimi ja faili nimi on õiged. Makro ei tööta, kui tee või faili nime osas on muudatusi tähe või tühiku võrra.
  • Veenduge, et 2. meetodi koodis mainitud filtrid on õiged. Exceli vorminguid on palju, mis ei pruugi filtri tõttu olla nähtavad.
  • Vigade vältimiseks veenduge, et VBA-s kasutatud deklaratsioon ja kood on õiged.

Soovitatavad artiklid

See on VBA töövihiku avatud juhend. Siin käsitleme kahte erinevat meetodit töövihiku avamiseks, kasutades Exceli VBA-koodi, koos praktiliste näidete ja allalaaditava Exceli malliga. Lisateabe saamiseks võite vaadata ka järgmisi artikleid -

  1. VBA tööraamatu täielik juhend
  2. HYPERLINKi valem Excelis
  3. Avage failid VBA FileDialogi abil
  4. Exceli arvutustabeli näited

Kategooria:

VBA