Šajā VBA apmācībā ir aprakstīts, kā saglabāt failu, izmantojot VBA komandas Saglabāt un Saglabāt kā.
Saglabāt darbgrāmatu - VBA
VBA saglabāšanas komanda saglabā Excel failu līdzīgi kā noklikšķinot uz ikonas Saglabāt vai izmantojot saīsni Saglabāt (CTRL + S).
Saglabājiet norādīto darbgrāmatu
Lai saglabātu darbgrāmatu, atsaucieties uz darbgrāmatas objektu un izmantojiet komandu Saglabāt.
| 1 | Darbgrāmatas ("savefile.xlsm"). Saglabāt |
Saglabājiet aktīvo darbgrāmatu
Piezīme. Šī ir pašreizējā aktīvā darbgrāmata no ar VBA kodā, kas atšķiras no šīs darba grāmatas, kurā ir darbības kods.
Saglabājiet darbgrāmatu, kur tiek glabāts kods
Saglabājiet visas atvērtās darbgrāmatas
Tādējādi tiks apskatītas visas atvērtās darbgrāmatas, saglabājot katru no tām.
| 12345 | Dim wb kā darbgrāmataKatram wb lietojumprogrammā. Darba grāmataswb. SaglabātNākamais wb |
Saglabājiet visas atvērtās darbgrāmatas, kuras netika atvērtas tikai lasīšanai
Piezīme. Atverot darbgrāmatu režīmā ReadOnly, fails netiek saglabāts.
Lai saglabātu failu, jums jāizmanto Saglabāt kā un jāsaglabā fails ar citu nosaukumu.
| 1234567 | Dim wb kā darbgrāmataKatram wb lietojumprogrammā. Darba grāmatasJa ne wb ReadOnly thenwb. SaglabātBeigt, jaNākamais wb |
Saglabājiet mainīgo definētu darbgrāmatu
Tādējādi tiks saglabāta darbgrāmata, kas tika piešķirta darbgrāmatas objekta mainīgajam.
| 1234 | Dim wb kā darbgrāmataiestatīt wb = darbgrāmatas ("savefile.xlsm")wb.saglabāt |
Saglabājiet darbgrāmatu, ko definē virknes mainīgais
Tādējādi tiks saglabāta darbgrāmata, kuras nosaukums tika saglabāts virknes mainīgajā.
| 1234 | Aptumšojiet wbstring kā virkniwbstring = "savefile.xlsm"darbgrāmatas (wbstring) .saglabāt |
Saglabājiet darbgrāmatu, kas noteikta pēc atvēršanas secības.
Piezīme: Pirmajā atvērtajā darbgrāmatā būtu 1, otrajā 2 utt.
| 1 | darba burtnīcas (1) .saglabāt |
Saglabājiet darbgrāmatu, pamatojoties uz šūnas vērtību
Tādējādi tiks saglabāta darbgrāmata, kuras nosaukums ir atrodams šūnas vērtībā.
| 1234 | Aptumšojiet wbstring kā virkniwbstring = activeworkbook.sheets ("sheet1"). range ("wb_save"). vērtībadarbgrāmatas (wbstring) .saglabāt |
Saglabāt kā - VBA
VBA komanda Saglabāt kā saglabā Excel failu kā jaunu failu, līdzīgi kā noklikšķinot uz ikonas Saglabāt kā vai izmantojot saīsni Saglabāt kā (Alt> F> A).
Iepriekš mēs identificējām visus veidus, kā norādīt, kuru darbgrāmatu saglabāt. Tādas pašas metodes varat izmantot, lai identificētu darbgrāmatas, izmantojot funkciju Saglabāt kā.
Saglabāt kā darbojas līdzīgi kā Saglabāt, izņemot to, ka jānorāda arī jaunā faila nosaukums.
Faktiski Saglabāt kā ir daudz iespējamo mainīgo, lai definētu:
SaveAs sintakse:
| 123 | darbgrāmatas objekts .SaveAs (FileName, FileFormat, Password, WriteResPassword, _ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, _AddToMru, TextCodepage, TextVisualLayout, Local) |
Tālāk ir sniegts visu SaveAs argumentu pilns apraksts. Pagaidām mēs pievērsīsimies visbiežāk sastopamajiem piemēriem.
Piezīme. Šos argumentus var ievadīt kā virkni ar iekavām vai kā definētus mainīgos.
Saglabāt kā sintakses piemērus:
Darbgrāmata Saglabāt kā - tas pats direktorijs
| 1 | ActiveWorkbook.SaveAs Faila nosaukums: = "jauns" |
vai
| 1 | ActiveWorkbook.SaveAs kā "jauns" |
vai
| 1234 | Aptumšojiet wbstring kā virkniwbstring = "jauns"ActiveWorkbook.SaveAs Faila nosaukums: = wbstring |
Darbgrāmata Saglabāt kā - jauns direktorijs
| 1 | ActiveWorkbook.SaveAs Faila nosaukums: = "C: \ new" |
vai
| 1234 | Aptumšojiet wbstring kā virkniwbstring = "C: \ jauns"ActiveWorkbook.SaveAs Faila nosaukums: = wbstring = |
Darbgrāmata Saglabāt kā - jauns direktorijs, norādiet faila paplašinājumu
| 1 | ActiveWorkbook.SaveAs Faila nosaukums: = "C: \ new.xlsx" |
vai
| 1234 | Aptumšojiet wbstring kā virkniwbstring = "C: \ new.xlsx"ActiveWorkbook.SaveAs Faila nosaukums: = wbstring |
Darbgrāmata Saglabāt kā - jauns direktorijs, norādiet faila paplašinājumu - Alt metode
Varat arī norādīt faila formātu savā argumentācijā.
| 1234 | .xlsx = 51 '(52 Mac datoriem).xlsm = 52 '(53 operētājsistēmai Mac).xlsb = 50 '(51 operētājsistēmai Mac).xls = 56 '(57 operētājsistēmai Mac) |
| 1 | ActiveWorkbook.SaveAs Faila nosaukums: = "C: \ new", FileFormat: = 51 |
Darbgrāmata Saglabāt kā - pievienojiet paroli, lai atvērtu failu
| 1 | ActiveWorkbook.SaveAs Faila nosaukums: = "C: \ new.xlsx", Parole: = "parole" |
Darbgrāmata Saglabāt kā - pievienojiet paroli rakstīšanas tiesībām
Ja pareiza parole netiek piegādāta, darbgrāmata tiek atvērta kā tikai lasāma
| 1 | ActiveWorkbook.SaveAs Faila nosaukums: = "C: \ new.xlsx", WriteRes: = "parole" |
Darbgrāmata Saglabāt kā - ieteicams tikai lasīt
TRUE, lai parādītu ziņojumu lodziņu, iesakot failu atvērt tikai lasāmu.
| 1 | ActiveWorkbook.SaveAs Faila nosaukums: = "C: \ new.xlsx", ReadOnlyRecommended: = TRUE |
Citi Saglabāt kā piemērus
Izveidot dialoglodziņu Saglabāt kā
Tiek ģenerēts dialoglodziņš Saglabāt kā, kas liek lietotājam saglabāt failu.
Paturiet prātā, ka šis vienkāršais kods var nebūt piemērots visos gadījumos.
| 1 | Application.GetSaveAsFilename |
Izveidot dialoglodziņu Saglabāt kā ar noklusējuma faila nosaukumu
| 1 | Application.GetSaveAsFilename InitialFilename: = "test.xlsx" |
Izveidot dialoglodziņu Saglabāt kā ar noklusējuma faila nosaukumu
| 1 | Application.GetSaveAsFilename InitialFilename: = "test.xlsx" |
Izveidot un saglabāt jaunu darbgrāmatu
Tādējādi tiks izveidota jauna darbgrāmata un tā nekavējoties saglabāta.
| 123456 | Dim wb kā darbgrāmataIestatiet wb = darbgrāmatas. PievienotApplication.DisplayAlerts = Nepareiziwb.SaveAs Faila nosaukums: = ”c: \ Test1.xlsx”Application.DisplayAlerts = Patiess |
Atspējot brīdinājumu saglabāšanu
Strādājot ar taupīšanu VBA, jūs varat saskarties ar dažādiem brīdinājumiem par saglabāšanu vai uzvednēm. Lai atspējotu brīdinājumus, pievienojiet šo koda rindu:
| 1 | Application.DisplayAlerts = Nepareizi |
un atkārtoti iespējot brīdinājumus:
| 1 | Application.DisplayAlerts = Patiess |
