Cuprins
Stocăm informații importante în Excel De asemenea, efectuăm diverse operații în funcție de cerințele noastre. Așadar, este necesar să salvăm fișierul după ce îl actualizăm. În caz contrar, putem pierde unele date valoroase. Există câteva modalități eficiente de a Salvați un Caietul de lucru Excel În plus, salvarea unui Excel ca în conformitate cu fișierul nostru dorit Format , sau stocarea fișierului în locația dorită Locație este o altă sarcină vitală. În acest articol, vă vom arăta cele mai utile exemple de Excel VBA Salvați ca format de fișier .
Descărcați caietul de practică
Descărcați următorul caiet de lucru pentru a exersa de unul singur.
VBA Salvare ca format de fișier.xlsm12 exemple de Excel VBA Salvați ca format de fișier
Pentru a ilustra, vom folosi ca exemplu următorul set de date. De exemplu, setul de date reprezintă Vânzător , Produs , și Vânzări nete Aici, vom salva acest registru de lucru aplicând Excel VBA Salvați ca format de fișier .
1. VBA pentru a salva ca fișier Excel
În primul nostru exemplu, vă vom arăta un simplu fișier Cod VBA pentru a salva un Excel Prin urmare, urmați pașii de mai jos pentru a efectua această operațiune.
ETAPE:
- În primul rând, mergeți la fila Dezvoltator.
- Apoi, selectați Visual Basic .
- Ca urmare, se va VBA se va deschide o fereastră.
- După aceea, faceți clic pe Introduceți .
- Ulterior, selectați Modul .
- Prin urmare, se poate spune că Modul va apărea o fereastră.
- După aceea, copiați următorul cod și lipiți-l în căsuță.
Sub Example_1() ActiveWorkbook.SaveAs End Sub 
- Acum, rulați codul apăsând F5 .
- Prin urmare, va trebui să introduceți numele fișierului, formatul și alte informații, după cum vi se solicită.
- În cele din urmă, fișierul va fi salvat în locația specificată.
Citește mai mult: Cum să salvați o foaie de lucru ca fișier nou utilizând Excel VBA
2. Specificați extensia fișierului cu Excel VBA
În exemplul anterior, a trebuit să specificăm manual Format de fișier după ce am apăsat comanda run. Dar aici, vom arăta o modalitate mai eficientă de a aplica Excel VBA Salvați ca format de fișier pentru a salva registrele de lucru în formatul dorit. Vom specifica pur și simplu extensia de fișier după numele fișierului. Așadar, introduceți codul de mai jos în fișierul Modul fereastră.
Sub Example_2() Dim location As String location = "D:\SOFTEKO\excel vba save as file format.xlsm" ActiveWorkbook.SaveAs Filename:=location End Sub 
În acest fel, puteți rula codul pentru a obține fișierul în formatul și locația dorite. Pentru a salvați fișierul în format xlsx, tip xlsx în loc de xlsm .
Citește mai mult: Macro Excel VBA pentru a salva PDF în folderul specific (7 exemple ideale)
3. Excel VBA pentru a utiliza codul formatului de fișier
Cu toate acestea, putem introduce Format de fișier Număr de cod în loc să specificați extensia fișierului. Câteva coduri utile sunt: .xlsx = 51 , . xlsm = 52 , .xlsb = 50 , .xls = 56 . de aici, copiați următorul cod și lipiți-l în fișierul Modul cutie.
Sub Example_3() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=52 End Sub 
Citește mai mult: [Fixed!] De ce nu-mi salvează Excel formatarea (7 motive posibile)
4. Salvați în același director cu VBA
În acest exemplu, vom arăta cum să Salvați în Același director în cazul în care fișierul se află deja cu Excel VBA Prin urmare, introduceți codul în Modul fereastră.
Sub Example_4() ActiveWorkbook.SaveAs Filename:="excel vba save as file format" End Sub 
Citește mai mult: Excel VBA: Alegeți locația și salvați ca PDF
5. VBA pentru a stoca în noul director
Cu toate acestea, este posibil să fie nevoie să salvăm fișierul într-un fișier Noul director Astfel, introduceți următorul cod în fereastra Modul și rulați-o.
Sub Example_5() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location End Sub 
6. Cereți parola pentru a deschide fișierul Excel
În plus, puteți aplica Excel VBA Salvați ca format de fișier pentru a cere o Parola la Deschideți fișierul Excel Deci, introduceți și rulați codul de mai jos.
Sub Example_6() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", Password:="one" End Sub 
Citește mai mult: Cum să salvați fișierul Excel cu parolă
Lecturi similare
- Excel VBA pentru a salva fișierul cu nume de variabilă (5 exemple)
- Cum să salvați Excel ca peisaj PDF (cu pași rapizi)
- Excel VBA pentru a salva ca fișier utilizând calea din celulă (cu pași rapizi)
- Cod VBA pentru butonul Salvare în Excel (4 variante)
- [Fix!] Fișierul Excel CSV nu salvează modificările (6 Soluții posibile)
7. Adăugați parola pentru editare în Excel
În plus, puteți solicita un Parola pentru Editare în Excel Fără parolă, se va deschide doar în format doar pentru citire. Copiați codul și lipiți-l. Apoi, rulați codul.
Sub Example_7() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", WriteRes:="one" End Sub 
8. Deschidere în format doar pentru citire
Din nou, pentru deschiderea unui fișier în Doar pentru citire Format , introduceți codul de mai jos și apăsați F5 pentru a o rula.
Sub Example_8() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", _ ReadOnlyRecommended:=True End Sub 
Citește mai mult: Cum să deschideți documentul Word și să salvați ca PDF sau Docx cu VBA Excel
9. Generarea casetei de dialog "Save As" (Salvează ca)
O altă operațiune utilă a Excel VBA pentru a salva ca format de fișier este de a genera Caseta de dialog Salvare ca Prin urmare, introduceți codul de mai jos.
Sub Example_9() Application.GetSaveAsFilename End Sub 
Citește mai mult: Macro Excel pentru a salva ca PDF (5 exemple adecvate)
10. VBA pentru a crea & salva un nou registru de lucru
În plus față de salvarea unui fișier, putem, de asemenea, să Creați & Salvați un nou registru de lucru cu VBA Pentru a realiza această sarcină, introduceți codul de mai jos în fereastra Modul și apăsați F5 .
Sub Example_10() Dim book As Workbook Set book = Workbooks.Add Application.DisplayAlerts = False book.SaveAs Filename:="D:\SOFTEKO\excel vba save as file format.xlsm" Application.DisplayAlerts = True End Sub 
Citește mai mult: Excel VBA: Salvați foaia ca registru de lucru nou fără a o deschide
11. Salvați registrul de lucru activ în Excel
De asemenea, putem salva registrul de lucru activ unde este deja stocat. Pentru a efectua operațiunea, introduceți codul foarte simplu.
Sub Example_11() ActiveWorkbook.Save End Sub 
Citește mai mult: Cum să salvați un macro pentru toate registrele de lucru din Excel (cu pași simpli)
12. VBA pentru a salva în format PDF în Excel
În cele din urmă, putem folosi PDF în fișierul nostru VBA cod pentru a salva în Format PDF Deci, aplicați Excel VBA Salvați ca format de fișier Apoi, rulați codul apăsând F5 .
Sub Example_12() ActiveSheet.SaveAs Filename:="excel vba save as file format.pdf" End Sub 
Citește mai mult: Cum să salvați Excel ca PDF (6 moduri utile)
Concluzie
De acum înainte, veți putea salva fișiere cu Excel VBA Salvați ca format de fișier Urmând exemplele descrise mai sus. Continuați să le folosiți și anunțați-ne dacă mai aveți și alte modalități de a face această sarcină. Urmăriți ExcelWIKI pentru mai multe articole de acest gen. Nu uitați să lăsați comentarii, sugestii sau întrebări, dacă aveți, în secțiunea de comentarii de mai jos.
