seychellesartprojects.org

„Excel VBA Save As“

„VBA Save As“ metodas naudojamas „Excel“ failui išsaugoti konkrečioje vietoje. Norėdami išsaugoti darbaknygę naudodami VBA kodą, mes naudojame objektą Darbaknygė su funkcija SaveAs.

Po sunkaus darbo, kurį atlikome darbaknygėje, mes jį išsaugome, ar ne? Skaudu prarasti duomenis, su kuriais dirbome. „Excel“ ar bet kokiuose failuose yra dviejų rūšių išsaugojimai: vienas yra „Išsaugoti“, kitas - „Išsaugoti kaip“. „Ctrl + S“ yra populiarus spartusis klavišas kaip „ Ctrl + C“ ir „ Ctrl + V“ visame pasaulyje. Bet tai nėra tokia pažįstama sąvoka „Išsaugoti kaip“ . Įprastame darbalapyje spartusis klavišas išsaugoti kaip failą yra raktas F12 . VBA taip pat galime išsaugoti failą kaip „ Išsaugoti kaip “.

Ką veikia „VBA Save As Function“?

Tai yra pagrindinė darbo taupymo užduotis automatizavimo procese. Po visų darbų norime išsaugoti failą.

Darbaknygės („Pardavimai 2019.xlsx“). Išsaugokite

Šiame kode buvo išsaugota išsaugota darbaknygė, pavadinta „Pardavimai 2019.xlsx“.

Panašiai, kad pakartotumėte darbaknygę, su kuria dirbame, galima sukurti naudojant metodą „Išsaugoti kaip“.

• Failo pavadinimas: koks yra failo, kurį norite duoti, pavadinimas. Tai turėtų būti derinama su failų aplankų keliu.
• Failo formatas: koks turėtų būti išsaugomo failo formatas.
• Slaptažodis: Ar norite pateikti išsaugojimo failo slaptažodį.
• Write Res Password: paminėkite rezervuotą darbo knygos slaptažodį.

Manau, kad šių parametrų pakanka norint suprasti metodą „Išsaugoti kaip“.

Kaip naudoti funkciją Išsaugoti kaip?

Šį „VBA Save As Excel“ šabloną galite atsisiųsti čia - „VBA Save As Excel“ šablonas

1 pavyzdys

Darbaknygę išsaugome teisingai, todėl norint paminėti darbalaukį svarbu paminėti darbaknygės pavadinimą ir jo plėtinį. Taigi paminėkite išsaugotą darbaknygę.

Kodas:

Sub SaveAs_Example1 () darbaknygės („Pardavimai 2019.xlsx“). Pabaigos sub

Dabar naudokite metodą Išsaugoti kaip.

Kodas:

 Sub SaveAs_Example1 () darbaknygės („Pardavimai 2019.xlsx“). SaveAs Pabaiga Sub 

Dabar nustatykite, kur norite išsaugoti.

Kodas:

 Sub SaveAs_Example1 () darbaknygės („Pardavimai 2019.xlsx“). „SaveAs“ D: \ Article \ 2019 End Sub 

Dabar įdėkite atgalinį brūkšnį ir įveskite failo pavadinimą pagal norą su failo plėtiniu.

Kodas:

 Sub SaveAs_Example1 () darbaknygės („Pardavimai 2019.xlsx“). SaveAs „D: \ Articles \ 2019 \ My File.xlsx“ Pabaiga Sub 

Dabar paminėkite failo formatą kaip „xlWorkbok“.

Kodas:

 Sub SaveAs_Example1 () darbaknygės („Pardavimai 2019.xlsx“). Išsaugokite kaip „D: \ Articles \ 2019 \ My File.xlsx“, FileFormat: = xlWorkbook End Sub 

Gerai, mes baigėme, failą išsaugosime D diske> Aplanko pavadinimas (straipsniai)> Antrinio aplanko pavadinimas (2019).

2 pavyzdys

Išsaugokite visas atidarytas darbo knygas

Tarkime, kad kompiuteryje dirbate su 10 darbaknygių. Norite sukurti atsarginę šių darbaknygių kopiją, išsaugodami jas kompiuteryje kaip vieną iš kopijų. Jei norite dirbti su daugiau nei viena darbaknygė, būtina naudoti kilpas.

Žemiau pateiktas kodas padės išsaugoti visas darbo knygas kaip kopijas.

Kodas:

 Sub SaveAs_Example2 () Uždenkite Wb kaip kiekvienos darbaknygės darbaknygės „ActiveWorkbook“ darbaknygę. Išsaugokite kaip „D: \ Article \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Pakeiskite failo kelią Kitas Wb pabaigos antrinis

Jei norite pasirinkti savo aplanko kelią, galite naudoti šį kodą.

Kodas:

 Sub SaveAs_Example3 () Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Filename: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub 

Kai tik paleisite šį kodą naudodami F5 klavišą arba rankiniu būdu, jis paprašys pasirinkti paskirties aplanko kelią, pažymėkite ir spustelėkite Gerai, jis išsaugos failą.