seychellesartprojects.org

Excel VBA Tallenna nimellä

VBA Save As -menetelmää käytetään Excel-tiedoston tallentamiseen tiettyyn sijaintiin. Voit tallentaa työkirjan vba-koodilla käyttämällä objektin työkirjaa SaveAs-funktiolla.

Kaiken kovan työn jälkeen, jonka olemme tehneet työkirjassa, tallennamme sen, eikö vain? On tuskallista menettää tietoja, joihin olemme työskennelleet. Meillä on kahdenlaisia ​​tallennuksia Excelissä tai missä tahansa tiedostossa, yksi on "Tallenna" ja toinen "Tallenna nimellä". Ctrl + S on suosittu pikanäppäin, koska Ctrl + C & Ctrl + V ympäri maailmaa. Mutta se ei ole niin tuttu käsite "Tallenna nimellä" . Tavallisessa laskentataulukossa pikanäppäin Tallenna nimellä -tiedosto on F12- avain. Myös VBA: ssa voimme tallentaa tiedoston nimellä " Tallenna nimellä ".

Mitä VBA Save As -toiminto tekee?

Se on yleinen tehtävä säästää työtä automaatioprosessissa. Kaiken työn jälkeen haluamme tallentaa tiedoston.

Työkirjat ("Myynti 2019.xlsx"). Tallenna

Tämä koodi tallentaa työkirjan, jonka nimi on ”Myynti 2019.xlsx”.

Samoin työkirjan kopioimiseksi, jonka kanssa työskentelemme, voidaan luoda "Tallenna nimellä" -menetelmällä.

• Tiedostonimi: Mikä on sen tiedoston nimi, jonka haluat antaa. Tämä tulisi yhdistää tiedostokanavan polkuun.
• Tiedostomuoto: Mikä on tallennettavan tiedoston muoto.
• Salasana: Haluatko antaa salasanan tallennustiedostolle.
• Write Res Password: Mainitse varattu salasana työkirjaan.

Mielestäni nämä parametrit ovat riittäviä ymmärtämään Tallenna nimellä -menetelmää.

Kuinka käyttää Tallenna nimellä -toimintoa?

Voit ladata tämän VBA Save As Excel -mallin täältä - VBA Save Excel-mallina

Esimerkki 1

Tallennamme työkirjan oikein, joten on tärkeää mainita työkirjan nimi ja sen laajennus Tallenna nimellä -menetelmän käyttämiseksi. Joten mainitse tallentamasi työkirja.

Koodi:

Sub SaveAs_Example1 () -työkirjat ("Myynti 2019.xlsx"). End Sub

Käytä nyt Tallenna nimellä -menetelmää.

Koodi:

 Sub SaveAs_Example1 () -työkirjat ("Myynti 2019.xlsx"). SaveAs End Sub 

Tunnista nyt, mihin haluat tallentaa.

Koodi:

 Sub SaveAs_Example1 () Työkirjat ("Myynti 2019.xlsx"). SaveAs "D: \ Article \ 2019 End Sub 

Laita nyt taaksepäin viiva ja kirjoita tiedostonimi toiveesi mukaan tiedostopääte.

Koodi:

 Sub SaveAs_Example1 () Työkirjat ("Myynti 2019.xlsx"). SaveAs "D: \ Article \ 2019 \ My File.xlsx" End Sub 

Mainitse nyt tiedostomuoto nimellä "xlWorkbok".

Koodi:

 Sub SaveAs_Example1 () Työkirjat ("Myynti 2019.xlsx"). Tallenna nimellä "D: \ Article \ 2019 \ My File.xlsx", FileFormat: = xlTyökirjan loppuosa 

Ok, olemme valmiit, se tallentaa tiedoston D-asemaan> Kansion nimi (artikkelit)> Alikansion nimi (2019).

Esimerkki 2

Tallenna kaikki avatut työkirjat

Oletetaan, että työskentelet 10 työkirjan kanssa tietokoneellasi. Haluat luoda varmuuskopion näistä työkirjoista tallentamalla ne tietokoneeseen yhtenä kopiona. Kun haluat työskennellä useamman kuin yhden työkirjan kanssa, on tarpeen käyttää silmukoita.

Koodin alapuolella voit tallentaa kaikki työkirjat kopioina.

Koodi:

 Sub SaveAs_Example2 () Himmennä Wb työkirjana jokaiselle työkirjan ActiveWorkbookin Wb: lle.SaveAs "D: \ Article \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Vaihda tiedostopolku Seuraava Wb End Sub

Jos haluat valita oman kansion polun, voit käyttää tätä koodia.

Koodi:

 Sub SaveAs_Example3 () Himmennä FilePath-merkkijonoa FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs-tiedostonimi: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub 

Heti kun suoritat tämän koodin F5-näppäimellä tai manuaalisesti, se pyytää sinua valitsemaan kohdekansion polun, valitsemalla ja napsauttamalla OK, se tallentaa tiedoston.