Turinys
Svarbią informaciją saugome "Excel" sąsiuvinius. Taip pat atliekame įvairias operacijas pagal savo reikalavimus. Taigi, būtina išsaugoti failą, kai jį atnaujiname. Priešingu atveju galime prarasti dalį vertingų duomenų. Yra keletas veiksmingų būdų, kaip Išsaugoti . "Excel" darbaknygė . Be to, išsaugant "Excel" failą pagal mūsų pageidaujamą Formatas , arba failą saugoti norimoje Vieta yra dar viena svarbi užduotis. Šiame straipsnyje pateiksime naudingiausių pavyzdžių, kaip "Excel" VBA Išsaugoti kaip failo formatą .
Atsisiųsti praktikos sąsiuvinį
Atsisiųskite šį pratybų sąsiuvinį ir praktikuokitės patys.
VBA Išsaugoti kaip failo formatą.xlsm12 "Excel VBA" pavyzdžių Išsaugoti kaip failo formatą
Norėdami iliustruoti, kaip pavyzdį naudosime šį duomenų rinkinį. Pavyzdžiui, duomenų rinkinyje pateikiama Pardavėjas , Produktas , ir Grynieji pardavimai įmonės. Čia išsaugosime šį sąsiuvinį taikydami "Excel" VBA Išsaugoti kaip failo formatą .
1. VBA įrašyti kaip "Excel" failą
Pirmajame pavyzdyje parodysime paprastą VBA kodas išsaugoti "Excel" Todėl atlikite toliau nurodytus veiksmus, kad atliktumėte užduotį.
ŽINGSNIAI:
- Pirmiausia eikite į Kūrėjo skirtukas.
- Tada pasirinkite "Visual Basic .
- Dėl to VBA pasirodys langas.
- Po to spustelėkite Įdėkite .
- Vėliau pasirinkite Modulis .
- Todėl Modulis bus rodomas langas.
- Vėliau nukopijuokite šį kodą ir įklijuokite jį į langelį.
Sub Example_1() ActiveWorkbook.SaveAs End Sub 
- Dabar paleiskite kodą paspausdami F5 .
- Todėl turėsite įvesti failo pavadinimą, formatą ir kitą prašomą informaciją.
- Galiausiai failas bus išsaugotas jūsų nurodytoje vietoje.
Skaityti daugiau: Kaip išsaugoti darbalapį kaip naują failą naudojant "Excel VBA
2. Nurodykite failo plėtinį naudodami "Excel VBA
Ankstesniame pavyzdyje turėjome rankiniu būdu nurodyti Failo formatas paspaudus paleidimo komandą. Tačiau čia parodysime efektyvesnį būdą, kaip taikyti "Excel" VBA Išsaugoti kaip failo formatą norimo formato darbaknygėms išsaugoti. Po failo pavadinimo tiesiog nurodysime failo plėtinį. Taigi, įterpkite toliau pateiktą kodą į Modulis langas.
Sub Example_2() Dim location As String location = "D:\SOFTEKO\excel vba save as file format.xlsm" ActiveWorkbook.SaveAs Filename:=location End Sub 
Tokiu būdu galite paleisti kodą ir gauti norimo formato ir vietos failą. išsaugokite failą xlsx formatu, tipas xlsx vietoj xlsm .
Skaitykite daugiau: "Excel" VBA makrokomandos, skirtos išsaugoti PDF konkrečiame aplanke (7 idealūs pavyzdžiai)
3. "Excel VBA" failų formato kodui naudoti
Tačiau galime įvesti Failo formato kodo numeris užuot nurodžius failo plėtinį. Kai kurie naudingi kodai: .xlsx = 51 , . xlsm = 52 , .xlsb = 50 , .xls = 56 . Taigi nukopijuokite šį kodą ir įklijuokite jį į Modulis dėžutė.
Sub Example_3() Dim location As String location = "D:\SOFTEKO\excel vba išsaugoti kaip failo formatas" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=52 End Sub 
Skaityti daugiau: [Pataisyta!] Kodėl "Excel" neišsaugo mano formatavimo? (7 galimos priežastys)
4. Išsaugoti tame pačiame kataloge naudojant VBA
Šiame pavyzdyje parodysime, kaip Išsaugoti į Tas pats katalogas kai failas jau yra su "Excel" VBA . Todėl įterpkite kodą į Modulis langas.
Sub Example_4() ActiveWorkbook.SaveAs Filename:="excel vba išsaugoti kaip failo formatą" End Sub 
Skaityti daugiau: "Excel VBA": pasirinkti vietą ir išsaugoti kaip PDF
5. VBA saugoti naujame kataloge
Tačiau mums taip pat gali prireikti išsaugoti failą Naujas katalogas . Taigi, įveskite šį kodą į Modulis langelį ir paleiskite jį.
Sub Example_5() Dim location As String location = "D:\SOFTEKO\excel vba išsaugoti kaip failo formatą" ActiveWorkbook.SaveAs Filename:=location End Sub 
6. Paprašykite slaptažodžio, kad atidarytumėte "Excel" failą
Be to, galite taikyti "Excel" VBA Išsaugoti kaip failo formatą prašyti Slaptažodis į Atidaryti "Excel" failą . Taigi įterpkite ir paleiskite toliau pateiktą kodą.
Sub Example_6() ActiveWorkbook.SaveAs _ Fileno pavadinimas:="D:\SOFTEKO\excel vba save as file format.xlsm", Slaptažodis:="vienas" End Sub 
Skaityti daugiau: Kaip išsaugoti "Excel" failą su slaptažodžiu
Panašūs skaitiniai
- "Excel VBA" failo su kintamuoju vardu išsaugojimas (5 pavyzdžiai)
- Kaip išsaugoti "Excel" kaip PDF kraštovaizdį (greiti žingsniai)
- "Excel VBA" įrašyti kaip failą naudojant kelią iš ląstelės (su greitais žingsniais)
- "Excel" išsaugojimo mygtuko VBA kodas (4 variantai)
- [Pataisyta!] "Excel" CSV failas neišsaugo pakeitimų (6 galimi sprendimai)
7. Pridėti slaptažodį redagavimui programoje "Excel
Be to, galite prašyti Slaptažodis svetainėje Redagavimas svetainėje "Excel" . Be slaptažodžio jis atsidarys tik skaitymo formatu. Nukopijuokite kodą ir įklijuokite jį. Tada paleiskite kodą.
Sub Example_7() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", WriteRes:="one" End Sub 
8. Atidaryti tik skaitymo formatu
Vėlgi, norint atidaryti failą Tik nuskaitymo formatas , įveskite toliau nurodytą kodą ir paspauskite F5 jį paleisti.
Sub Example_8() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", _ ReadOnlyRecommended:=True End Sub 
Skaityti daugiau: Kaip atidaryti "Word" dokumentą ir išsaugoti kaip PDF arba Docx su "VBA Excel
9. Sukurti dialogo langą "Išsaugoti kaip
Kita naudinga operacija "Excel" VBA įrašyti kaip failo formatą yra sukurti Dialogo langas Išsaugoti kaip . Taigi įterpkite toliau pateiktą kodą.
Sub Example_9() Application.GetSaveAsFilename End Sub 
Skaityti daugiau: "Excel" makrokomandos išsaugojimas kaip PDF (5 tinkami pavyzdžiai)
10. VBA sukurti & amp; Išsaugoti naują sąsiuvinį
Be to, kad išsaugotume failą, taip pat galime Sukurti & amp; Išsaugoti naują sąsiuvinį su VBA Norint atlikti užduotį, įveskite toliau pateiktą kodą į Modulis langą ir paspauskite 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 
Skaityti daugiau: "Excel VBA": išsaugokite lapą kaip naują darbaknygę neatidarydami
11. Išsaugoti aktyvųjį darbalaukį programoje "Excel
Panašiai galime išsaugoti aktyvųjį sąsiuvinį ten, kur jis jau yra išsaugotas. Norėdami atlikti operaciją, įterpkite labai paprastą kodą.
Sub Example_11() ActiveWorkbook.Save End Sub 
Skaityti daugiau: Kaip išsaugoti visų "Excel" darbaknygių makrokomandą (paprastais žingsniais)
12. VBA įrašyti kaip PDF formatą "Excel" programoje
Galiausiai galime naudoti PDF failo plėtinys mūsų VBA kodą, kurį reikia įrašyti į PDF formatas . Taigi, taikykite "Excel" VBA Išsaugoti kaip failo formatą Tada paleiskite kodą paspausdami F5 .
Sub Example_12() ActiveSheet.SaveAs Filename:="excel vba save as file format.pdf" End Sub 
Skaityti daugiau: Kaip išsaugoti "Excel" kaip PDF (6 naudingi būdai)
Išvada
Nuo šiol galėsite išsaugoti failus su "Excel" VBA Išsaugoti kaip failo formatą vadovaudamiesi aukščiau aprašytais pavyzdžiais. Naudokite juos ir toliau ir praneškite mums, jei turite daugiau užduoties atlikimo būdų. Sekite "ExcelWIKI svetainėje rasite daugiau panašių straipsnių. Nepamirškite žemiau esančiame komentarų skyriuje pateikti komentarų, pasiūlymų ar užklausų, jei tokių turite.
