Excel VBA Lagre som
VBA Save As- metoden brukes til å lagre excel-filen til et bestemt sted. For å lagre arbeidsboken ved hjelp av vba-kode bruker vi objektet Arbeidsbok med SaveAs-funksjonen.
Etter alt det harde arbeidet vi har gjort i arbeidsboken, lagrer vi det, ikke sant? Det er vondt å miste dataene vi har jobbet med. Vi har to typer lagringer i Excel eller hvilken som helst fil, en er "Lagre" og en annen er "Lagre som". Ctrl + S er den populære hurtigtasten som Ctrl + C & Ctrl + V over hele verden. Men det er ikke så kjent et konsept "Lagre som" . I vanlig regneark hurtigtast til Lagre som filen er F12- tast. Også i VBA kan vi lagre filen som " Lagre som ".
Hva gjør VBA Save As Function?
Det er en generell oppgave å lagre arbeid i automatiseringsprosessen. Etter alt arbeidet ønsker vi å lagre filen.
Arbeidsbøker ("Salg 2019.xlsx"). Lagre
Denne koden leste arbeidsbok kalt “Salg 2019.xlsx” for å lagre.
På samme måte kan du lage en arbeidsbok vi jobber med, ved å bruke "Lagre som" -metoden.
- Filnavn: Hva er navnet på filen du ønsker å gi. Dette bør kombineres med filmappebane.
- Filformat: Det som skal være formatet for filen du lagrer.
- Passord: Vil du oppgi et passord for lagringsfilen.
- Skriv res-passord: Nevn reservert passord for arbeidsboken.
Jeg tror disse parametrene er nok til å forstå Save As-metoden.
Hvordan bruke Lagre som funksjon?
Du kan laste ned denne VBA Lagre som Excel-mal her - VBA Lagre som Excel-malEksempel 1
Vi lagrer arbeidsboken riktig, så det er viktig å nevne arbeidsboknavnet og utvidelsen for å bruke Save As-metoden. Så nevn arbeidsboken du lagrer.
Kode:
Under SaveAs_Example1 () arbeidsbøker ("Salg 2019.xlsx"). Slutt Sub
Bruk nå Lagre som-metoden.
Kode:
Sub SaveAs_Example1 () Arbeidsbøker ("Salg 2019.xlsx"). SaveAs End Sub
Identifiser nå hvor du vil lagre.
Kode:
Sub SaveAs_Example1 () Arbeidsbøker ("Salg 2019.xlsx"). SaveAs "D: \ Articles \ 2019 End Sub
Sett deretter tilbakeslag og skriv inn filnavnet etter ønske med en filtype.
Kode:
Sub SaveAs_Example1 () Arbeidsbøker ("Salg 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx" End Sub
Nevn nå filformatet som “xlWorkbok”.
Kode:
Sub SaveAs_Example1 () Arbeidsbøker ("Salg 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx", FileFormat: = xlWorkbook End Sub
Ok, vi er ferdige, det vil lagre filen i D-stasjon> Mappenavn (artikler)> Undermappenavn (2019).
Eksempel 2
Lagre alle de åpnede arbeidsbøkene
Anta at du jobber med 10 arbeidsbøker på datamaskinen din. Du vil lage sikkerhetskopier av disse arbeidsbøkene ved å lagre dem på datamaskinen som en av kopiene. Når du vil jobbe med mer enn én arbeidsbok, er det nødvendig å bruke sløyfene.
Koden nedenfor hjelper deg med å lagre alle arbeidsbøkene som kopi.
Kode:
Sub SaveAs_Example2 () Dim Wb som arbeidsbok for hver Wb i arbeidsbøker ActiveWorkbook.SaveAs "D: \ Articles \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Endre filstien Neste Wb End Sub
Hvis du ønsker å velge din egen mappebane, kan du bruke denne koden.
Kode:
Sub SaveAs_Example3 () Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub
Så snart du kjører denne koden med F5-tasten eller manuelt, vil den be deg om å velge målmappestien, velge og klikke på OK, den vil lagre filen.