Šioje pamokoje pasidalinsiu su jumis 5 tinkami būdai išsaugoti "Excel" failo kopiją XLSX formatą naudojant VBA . Šiuos metodus galite naudoti bet kokio tipo darbaknygėse, nesvarbu, ar jose yra didelių, ar mažų duomenų. Be to, kadangi naudosime VBA , užduočiai atlikti beveik neužtruksite.

Atsisiųsti praktikos sąsiuvinį

Praktikos sąsiuvinį galite atsisiųsti iš čia.

Kas yra XLSX failas?

Svetainė XLSX failas yra MS Excel Atviras XML formato skaičiuoklė kuriame duomenys saugomi ląstelėse, esančiose darbalapiuose. Ląstelės išdėstytos eilučių ir stulpelių struktūroje. MS Excel 2007 ir anksčiau šis skaičiuoklės failas buvo tipo XLS .

5 tinkami būdai išsaugoti "Excel" failo kopiją kaip XLSX naudojant VBA

Šios pamokos pagrindinis tikslas - parodyti, kaip išsaugoti esamą sąsiuvinį XLSX Taigi mes paėmėme paprastą ir glaustą duomenų rinkinį, kuris turi 3 stulpelius ir 6 mokinių pažymių įrašai. Tačiau galite naudoti savo duomenų rinkinius.

1. Naudojant metodą SaveCopyAs

SaveCopyAs metodas svetainėje "Excel" VBA priima sąsiuvinio objektą ir gali išsaugoti naują šio sąsiuvinio kopiją XLSX formatą nekeičiant duomenų. Pažiūrėkime, kaip naudoti šį metodą savo kode.

Žingsniai:

• Pirmiausia eikite į Kūrėjas skirtuką ir pasirinkite "Visual Basic .

• Toliau, į "Visual Basic langą, spustelėkite Įdėkite ir pasirinkite Modulis .

• Dabar dešinėje esančiame naujojo modulio lange įveskite šią formulę:

 Sub SaveCopyAs_Method() Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs "C:\Users\USER\Desktop\5700\SaveCopyAs method.xlsx" End Sub 

• Tada uždarykite VBA langą ir pereikite prie Kūrėjas vėl skirtukas.
• Čia pasirinkite Makrokomandos .

• Dabar, kai Makro langą, turėtumėte pamatyti įterptą makrokomandos kodą.
• Tada spustelėkite Paleisti .

• Galiausiai atidarykite aplanką, kuriame išsaugojote failą, ir jis turėtų būti pasiekiamas XLSX formatą, kokio norėjome.

Skaitykite daugiau: Kaip išsaugoti "Excel" makrokomandos failus kaip failo pavadinimą iš ląstelės vertės

2. Failo vardo nurodymas

"Excel" failo kopiją galime įrašyti į XLSX formatą, nurodydami failo pavadinimą VBA kodą. Nustatydami failo pavadinimą, taip pat pridėsime failo plėtinį, kuris konvertuos failą į mūsų pageidaujamą formatą. Norėdami tęsti šį metodą, įterpkite toliau pateiktą kodą į VBA modulio langas.

 Sub Specify_file_name() Dim location As String location = "C:\Users\USER\Desktop\5700\Specify file name.xlsx" ActiveWorkbook.SaveAs Filename:=location End Sub 

Įvedę kodą, tiesiog paleiskite jį iš Makrokomandos kaip rodėme anksčiau. Dabar eikite į išsaugojimo aplanką ir failą su XLSX formatas turėtų būti dabar.

Skaityti daugiau: "Excel VBA" darbaknygės išsaugojimas konkrečiame aplanke su data

3. Failo formato numerio įvedimas

Failo formato numeriai - tai unikalūs numeriai, kurie išsaugant nurodo konkretų failo tipą. Šioje pamokoje mūsų tikslas - išsaugoti "Excel" kopiją kaip XLSX failą naudodami VBA . Taigi, mes naudosime formatą skaičius 51 , kuris reiškia XLSX failo tipą. Taigi, įveskite šį kodą į VBA modulis:

 Sub file_format_number() Dim location As String Application.DisplayAlerts = False location = "C:\Users\USER\Desktop\5700\File format number" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=51 End Sub 

Dabar, jei paleisite šį kodą, "Excel" iš karto išsaugos darbo knygą XLSX formatą. Tai galite patvirtinti patikrinę paskirties aplanką.

Skaityti daugiau: "Excel" VBA Išsaugoti kaip failo formatą (12 tinkamų pavyzdžių)

4. Išsaugojimas su slaptažodžiu

Daugeliu atvejų labai svarbu išsaugoti "Excel" darbaknygės kopiją XLSX formatas su papildomu slaptažodžiu. Tai ypač aktualu darbaknygėms, kurių saugumas yra labai svarbus. Šią užduotį galite labai lengvai atlikti naudodami VBA ir nustatydami pasirinktinį slaptažodį kartu su dokumento išsaugojimu. Tam įveskite toliau pateiktą VBA kodą, esantį Modulis langas:

 Sub Save_With_Password() Application.DisplayAlerts = False ActiveWorkbook.SaveAs _ Filename:="C:\Users\USER\Desktop\5700\Save with password.xlsx", Password:="one" End Sub 

Galiausiai, kaip matėme anksčiau, šį kodą reikia paleisti iš Makrokomandos parinktis. Dabar, jei nueisite į išsaugotą aplanką, turėtumėte rasti failą su jūsų nurodytu pavadinimu ir XLSX pratęsimas pabaigoje.

Skaityti daugiau: "Excel VBA": išsaugokite lapą kaip naują darbaknygę neatidarydami

5. Taupykite rekomenduodami tik skaityti

Ne toks griežtas dokumento apsaugos būdas - padaryti jį tik skaitymui skirtu failu. Jei įrašote "Excel" failo kopiją į XLSX formatą, tada galite nustatyti tik skaitymo sąlygą naudodami VBA . Dabar, norėdami tai padaryti, įterpkite šį kodą į VBA modulis:

 Sub recommend_read_only() Application.DisplayAlerts = False ActiveWorkbook.SaveAs _ Filename:="C:\Users\USER\Desktop\5700\Recommend read only.xlsx", _ ReadOnlyRecommended:=True End Sub 

Tada paleiskite šį kodą iš Makrokomandos parinktį pagal Kūrėjas skirtuką. Tai turėtų išsaugoti XLSX dabartinio sąsiuvinio kopiją, kaip parodyta toliau.

Skaityti daugiau: "Excel VBA" failo su kintamuoju vardu išsaugojimas (5 pavyzdžiai)

Dalykai, kuriuos reikia prisiminti

• Įsitikinkite, kad pakeitėte įrašymo kelią XLSX failą, esantį VBA . Jis turėtų atitikti jūsų kompiuteryje esančio aplanko kelią.
• Dukart patikrinkite, ar rašote visus integruotus VBA veikia tiksliai taip, kaip aš padariau.
• Atminkite, kad kai kuriais atvejais VBA kodas gali būti nebeprieinamas VBA paleidus kodą.

Išvada

Tikiuosi, kad metodai, kuriuos parodžiau norėdamas išsaugoti "Excel" failo kopiją XLSX formatą naudojant VBA buvo jums naudingi. Jei užstrigote kuriame nors žingsnyje arba kodas neveikia, tuomet siūlyčiau kelis kartus patikrinti mano pateiktus kodus. Taip pat pabandykite šiek tiek pakeisti kodą, kad suprastumėte, ką jis daro. Galiausiai, norėdami sužinoti daugiau Excel metodus, vadovaukitės mūsų ExcelWIKI Jei turite klausimų, praneškite man komentaruose.