Tämä VBA -opetusohjelma kattaa tiedoston tallentamisen käyttämällä VBA: n Tallenna ja Tallenna nimellä -komentoja.
Tallenna työkirja - VBA
VBA Save -komento tallentaa Excel -tiedoston samalla tavalla kuin Tallenna -kuvaketta tai Tallenna pikakuvaketta (CTRL + S).
Tallenna määritetty työkirja
Voit tallentaa työkirjan viittaamalla työkirjaobjektiin ja käyttämällä Tallenna -komentoa.
| 1 | Työkirjat ("savefile.xlsm"). Tallenna |
Tallenna aktiivinen työkirja
Huomautus: Tämä on nykyinen aktiivinen työkirja, jossa on VBA -koodi, joka on erilainen kuin ThisWorkbook, joka sisältää käynnissä olevan koodin.
Tallenna työkirja, johon koodi on tallennettu
Tallenna kaikki avoimet työkirjat
Tämä kiertää kaikki avoimet työkirjat ja tallentaa ne.
| 12345 | Dim wb työkirjanaJokaiselle wb: lle sovelluksessa. Työkirjatwb. tallennaSeuraava wb |
Tallenna kaikki avoimet työkirjat, joita ei avattu ReadOnly
Huomautus: työkirjan avaaminen ReadOnly -tilassa estää tiedoston tallentamisen.
Jos haluat tallentaa tiedoston, sinun on käytettävä Tallenna nimellä -toimintoa ja tallennettava tiedosto eri nimellä.
| 1234567 | Dim wb työkirjanaJokaiselle wb: lle sovelluksessa. TyökirjatJos ei wb ReadOnly sittenwb. tallennaLoppu JosSeuraava wb |
Tallenna muuttujan määrittämä työkirja
Tämä tallentaa työkirjan, joka on määritetty työkirjan objektimuuttujalle.
| 1234 | Dim wb työkirjanaset wb = työkirjat ("savefile.xlsm")wb.save |
Tallenna merkkijonomuuttujan määrittämä työkirja
Tämä tallentaa työkirjan, jonka nimi on tallennettu merkkijonomuuttujaan.
| 1234 | Himmennä wbstring merkkijononawbstring = "savefile.xlsm"työkirjat (wbstring) .tallenna |
Tallenna työkirja avausjärjestyksessä.
Huomautus: Ensimmäisessä avatussa työkirjassa olisi 1, toisessa 2 jne.
| 1 | työkirjat (1) .tallenna |
Tallenna työkirja solun arvon perusteella
Tämä tallentaa työkirjan, jonka nimi löytyy solun arvosta.
| 1234 | Himmennä wbstring merkkijononawbstring = activeworkbook.sheets ("sheet1"). range ("wb_save"). arvotyökirjat (wbstring) .tallenna |
Tallenna nimellä - VBA
VBA Tallenna nimellä -komento tallentaa Excel -tiedoston uutena tiedostona, kuten Tallenna nimellä -kuvaketta napsauttamalla tai Tallenna nimellä -pikakuvaketta käyttämällä (Alt> F> A).
Yllä tunnistimme kaikki tapoja määrittää, mikä työkirja tallennetaan. Voit käyttää samoja menetelmiä työkirjojen tunnistamiseen Tallenna nimellä -toiminnon avulla.
Tallenna nimellä toimii samalla tavalla kuin Tallenna, paitsi sinun on myös määritettävä uuden tiedoston nimi.
Tallenna nimellä on itse asiassa monia mahdollisia muuttujia määritettäväksi:
SaveAs -syntaksi:
| 123 | työkirjaobjekti .SaveAs (Tiedostonimi, Tiedostomuoto, Salasana, WriteResPassword, _ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, _AddToMru, TextCodepage, TextVisualLayout, Local) |
Alla on täydellinen kuvaus kaikista SaveAs -argumentteista. Tällä hetkellä keskitymme yleisimpiin esimerkkeihin.
Huomautus: Nämä argumentit voidaan syöttää merkkijonoina suluissa tai määritettyinä muuttujina.
Esimerkkejä tallennuksesta syntaksina:
Työkirja Tallenna nimellä - Sama hakemisto
| 1 | ActiveWorkbook.SaveAs Tiedostonimi: = "uusi" |
tai
| 1 | ActiveWorkbook.SaveAs "uusi" |
tai
| 1234 | Himmennä wbstring merkkijononawbstring = "uusi"ActiveWorkbook.SaveAs Tiedostonimi: = wbstring |
Työkirja Tallenna nimellä - Uusi hakemisto
| 1 | ActiveWorkbook.SaveAs Tiedostonimi: = "C: \ new" |
tai
| 1234 | Himmennä wbstring merkkijononawbstring = "C: \ uusi"ActiveWorkbook.SaveAs Tiedostonimi: = wbstring = |
Työkirja Tallenna nimellä - Uusi hakemisto, Määritä tiedostopääte
| 1 | ActiveWorkbook.SaveAs Tiedostonimi: = "C: \ new.xlsx" |
tai
| 1234 | Himmennä wbstring merkkijononawbstring = "C: \ new.xlsx"ActiveWorkbook.SaveAs Tiedostonimi: = wbstring |
Työkirja Tallenna nimellä - Uusi hakemisto, Määritä tiedostopääte - Vaihtoehto
Voit myös määrittää tiedostomuodon omassa argumentissaan.
| 1234 | .xlsx = 51 '(52 Macille).xlsm = 52 '(53 Macille).xlsb = 50 '(51 Macille).xls = 56 '(57 Macille) |
| 1 | ActiveWorkbook.SaveAs Tiedostonimi: = "C: \ new", FileFormat: = 51 |
Työkirja Tallenna nimellä - Lisää salasana avoimeen tiedostoon
| 1 | ActiveWorkbook.SaveAs Tiedostonimi: = "C: \ new.xlsx", Salasana: = "salasana" |
Työkirja Tallenna nimellä - Lisää salasana kirjoitusoikeuksille
Jos oikeaa salasanaa ei toimiteta, työkirja avautuu vain luku -tilassa
| 1 | ActiveWorkbook.SaveAs Tiedostonimi: = "C: \ new.xlsx", WriteRes: = "salasana" |
Työkirja Tallenna nimellä - vain luku suositeltava
TOSI näyttääksesi viestiruudun, joka suosittelee, että tiedosto avataan vain luku -tilassa.
| 1 | ActiveWorkbook.SaveAs Tiedostonimi: = "C: \ new.xlsx", ReadOnlyRecommended: = TRUE |
Muut Tallenna esimerkkinä
Luo Tallenna nimellä -valintaikkuna
Tämä luo Tallenna nimellä -valintaikkunan ja kehottaa käyttäjää tallentamaan tiedoston.
Muista, että tämä yksinkertainen koodi ei välttämättä ole sopiva kaikissa tapauksissa.
| 1 | Application.GetSaveAsFilename |
Luo Tallenna nimellä -valintaikkuna, jossa on oletustiedostonimi
| 1 | Application.GetSaveAsFilename InitialFilename: = "test.xlsx" |
Luo Tallenna nimellä -valintaikkuna, jossa on oletustiedostonimi
| 1 | Application.GetSaveAsFilename InitialFilename: = "test.xlsx" |
Luo ja tallenna uusi työkirja
Tämä luo uuden työkirjan ja tallentaa sen välittömästi.
| 123456 | Dim wb TyökirjanaAseta wb = TyökirjatApplication.DisplayAlerts = Vääräwb.SaveAs Tiedostonimi: = ”c: \ Test1.xlsx”Application.DisplayAlerts = Totta |
Poista Tallenna hälytykset käytöstä
Kun työskentelet säästämisen kanssa VBA: ssa, saatat kohdata erilaisia tallennusvaroituksia tai kehotteita. Jos haluat poistaa varoitukset käytöstä, lisää tämä koodirivi:
| 1 | Application.DisplayAlerts = Väärä |
ja voit ottaa hälytykset uudelleen käyttöön:
| 1 | Application.DisplayAlerts = Totta |
