Slik pakker du ut en zip-fil med VBA
Å vite hvordan du pakker ut komprimerte filer med Visual Basic for Applications (VBA) er god ferdighet å ha. En zip-fil inneholder en eller flere komprimerte filer og er ofte brukt for å spare plass på harddisken. En fordel med en zip-fil er at det kan overføres hurtigere fra ett sted til et annet. VBA er vanligvis brukes i Microsoft Office-programmer som Excel, Access og Word og gir deg fleksibilitet til å automatisere vanlige repeterende oppgaver.
Bruksanvisning
1 Åpne Microsoft Excel og under "Utvikler Tab", klikk på "Visual Basic." Skriv "Sub filesToUnzip ()" og trykk "Enter" for å lage en ny sub.
2 Skriv "Dim oApplicationlication As Object
Dim fileName As Variant
Dim folderFileName Som Variant "for å erklære variabler.
3 Skriv "filename = Application.GetOpenFilename (Filefilter: =" Zip-filer
(.zip), Zip ", Multiselect: = False)" for å åpne et nettleservindu filen og velg zip-filen for å pakke.
4 Type "folderFileName =" C: \ UnzippedFiles "&" \ "
mkdir folderFileName
Sett oApplication = Create ( "Shell.Application") "for å lage en målmappe for de utpakkede filene.
5 Type "oApplication.Namespace (folderFileName) .CopyHere oApplication.Namespace (filnavn) .items" for å pakke ut komprimerte filer. Type "MsgBox" Du har pakket ut zip-filer til C: \ UnzippedFiles \ ", vbInformation" for å vise en melding om at filene dine hentet vellykket.
6 Skriv "End Sub" om nødvendig. Kjør den nye sub å pakke ut filer fra zip-fil.
Hint
- Din sub skal se slik ut:
- "Sub filesToUnzip ()
- Dim oApplicationlication As Object
- Dim filnavn som Variant
- Dim folderFileName As Variant
- filename = Application.GetOpenFilename (Filefilter: = "ZIP-filer (* .zip), * .zip", Multiselect: = False)
- folderFileName = "C: \ UnzippedFiles" & "\"
- mkdir folderFileName
- Sett oApplication = Create ( "Shell.Application")
- oApplication.Namespace (folderFileName) .CopyHere oApplication.Namespace (filnavn) .items
- MsgBox "Du har pakket ut zip-filer til C: \ UnzippedFiles \", vbInformation
- End Sub "