Ovaj VBA vodič prikazuje kako spremiti datoteku pomoću naredbi Spremi i Spremi kao u VBA.
Spremi radnu knjigu - VBA
Naredba VBA Spremi sprema Excel datoteku slično klikanju ikone Spremi ili pomoću prečaca Spremi (CTRL + S).
Spremite navedenu radnu knjigu
Da biste spremili radnu knjigu, uputite se na objekt radne knjige i upotrijebite naredbu Spremi.
| 1 | Radne knjige ("savefile.xlsm"). Spremi |
Spremite aktivnu radnu knjigu
Napomena: Ovo je trenutna aktivna radna knjiga iz sa VBA kodom, koja se razlikuje od ThisWorkbook koja sadrži tekući kôd.
Spremite radnu knjigu tamo gdje je kôd pohranjen
Spremite sve otvorene radne knjige
Ovo će proći kroz sve otvorene radne knjige, spremajući svaku.
| 12345 | Dim wb kao radna bilježnicaZa svaku web stranicu U primjeni.Radne knjigewb.SpremiSljedeća wb |
Spremite sve otvorene radne knjige koje nisu otvorene samo za čitanje
Napomena: otvaranje radne knjige u načinu samo za čitanje sprječava spremanje datoteke.
Da biste spremili datoteku, morat ćete upotrijebiti Spremi kao i spremiti datoteku s drugim imenom.
| 1234567 | Dim wb kao radna bilježnicaZa svaku web stranicu U primjeni.Radne knjigeAko ne wb ReadOnly ondawb.SpremiZavrši akoSljedeća wb |
Spremite radnu knjigu definiranu varijablom
To će spremiti radnu knjigu koja je dodijeljena varijabli objekta radne knjige.
| 1234 | Dim wb kao radna bilježnicaset wb = radne knjige ("savefile.xlsm")wb.sačuvaj |
Spremite radnu knjigu definiranu nizovnom varijablom
Ovo će spremiti radnu knjigu čiji je naziv spremljen u varijablu niza.
| 1234 | Zatamni wbstring kao nizwbstring = "savefile.xlsm"radne bilježnice (wbstring) .spremiti |
Spremite radnu knjigu definiranu redoslijedom otvaranja.
Napomena: Prva otvorena radna knjiga imala bi 1, druga 2 itd.
| 1 | radne bilježnice (1) .spremiti |
Spremite radnu knjigu na temelju vrijednosti ćelije
Ovo će spremiti radnu knjigu čiji se naziv nalazi u vrijednosti ćelije.
| 1234 | Zatamni wbstring kao nizwbstring = activeworkbook.sheets ("sheet1"). range ("wb_save"). vrijednostradne bilježnice (wbstring) .spremiti |
Spremi kao - VBA
Naredba VBA Spremi kao sprema Excel datoteku kao novu datoteku, slično kliku na ikonu Spremi kao ili upotrebi prečaca Spremi kao (Alt> F> A).
Gore smo identificirali sve načine navođenja radne knjige za spremanje. Te iste metode možete koristiti za identifikaciju radnih knjiga pri upotrebi Spremi kao.
Spremi kao ponaša se slično kao spremi, osim što morate navesti i naziv nove datoteke.
Zapravo, Spremi kao ima mnogo potencijalnih varijabli za definiranje:
Sintaksa SaveAs:
| 123 | objekt radne knjige .Spremi kao (FileName, FileFormat, Password, WriteResPassword, _ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, _AddToMru, TextCodepage, TextVisualLayout, Local) |
Potpuni opis svih argumenata SaveAs dat je u nastavku. Za sada ćemo se usredotočiti na najčešće primjere.
Napomena: Ovi se argumenti mogu unijeti kao niz s zagradama ili kao definirane varijable.
Primjeri sintakse Spremi kao:
Radna knjiga Spremi kao - isti direktorij
| 1 | ActiveWorkbook.SaveAs Naziv datoteke: = "novo" |
ili
| 1 | ActiveWorkbook.SaveAs "new" |
ili
| 1234 | Zatamni wbstring kao nizwbstring = "novo"ActiveWorkbook.SaveAs Naziv datoteke: = wbstring |
Radna knjiga Spremi kao - novi imenik
| 1 | ActiveWorkbook.SaveAs Naziv datoteke: = "C: \ new" |
ili
| 1234 | Zatamni wbstring kao nizwbstring = "C: \ novo"ActiveWorkbook.SaveAs Naziv datoteke: = wbstring = |
Radna knjiga Spremi kao - Novi imenik, navedite datotečno proširenje
| 1 | ActiveWorkbook.SaveAs Naziv datoteke: = "C: \ new.xlsx" |
ili
| 1234 | Zatamni wbstring kao nizwbstring = "C: \ new.xlsx"ActiveWorkbook.SaveAs Naziv datoteke: = wbstring |
Radna knjiga Spremi kao - novi imenik, navedite proširenje datoteke - zamjenska metoda
Također možete navesti format datoteke u vlastitom argumentu.
| 1234 | .xlsx = 51 '(52 za Mac).xlsm = 52 '(53 za Mac).xlsb = 50 '(51 za Mac).xls = 56 '(57 za Mac) |
| 1 | ActiveWorkbook.SaveAs Naziv datoteke: = "C: \ new", FileFormat: = 51 |
Radna knjiga Spremi kao - dodajte lozinku za otvaranje datoteke
| 1 | ActiveWorkbook.SaveAs Naziv datoteke: = "C: \ new.xlsx", Lozinka: = "lozinka" |
Radna knjiga Spremi kao - dodajte lozinku za privilegije pisanja
Ako nije navedena ispravna lozinka, radna se knjiga otvara kao Samo za čitanje
| 1 | ActiveWorkbook.SaveAs Naziv datoteke: = "C: \ new.xlsx", WriteRes: = "lozinka" |
Radna knjiga Spremi kao - preporučeno samo za čitanje
TRUE za prikaz okvira s porukom, preporučujući da se datoteka otvori samo za čitanje.
| 1 | ActiveWorkbook.SaveAs Naziv datoteke: = "C: \ new.xlsx", ReadOnlyRecommended: = TRUE |
Ostali primjeri spremanja kao
Izradite dijaloški okvir Spremi kao
Ovo generira dijaloški okvir Spremi kao, od korisnika se traži da spremi datoteku.
Imajte na umu da ovaj jednostavni kôd možda nije prikladan u svim slučajevima.
| 1 | Application.GetSaveAsFilename |
Izradite dijaloški okvir Spremi kao s zadanim zadanim nazivom datoteke
| 1 | Application.GetSaveAsFilename InitialFilename: = "test.xlsx" |
Izradite dijaloški okvir Spremi kao s zadanim zadanim nazivom datoteke
| 1 | Application.GetSaveAsFilename InitialFilename: = "test.xlsx" |
Izradite i spremite novu radnu knjigu
To će stvoriti novu radnu knjigu i odmah je spremiti.
| 123456 | Dim wb Kao radna bilježnicaPostavite wb = Radne knjige.DodajApplication.DisplayAlerts = Netačnowb.SaveAs Naziv datoteke: = ”c: \ Test1.xlsx”Application.DisplayAlerts = Istina |
Onemogućite spremanje upozorenja
Dok radite sa spremanjem u VBA -i, možete naići na različita upozorenja ili upite za spremanje. Da biste onemogućili upozorenja, dodajte ovaj redak koda:
| 1 | Application.DisplayAlerts = Netačno |
i za ponovno uključivanje upozorenja:
| 1 | Application.DisplayAlerts = Istina |
