Slik pakker du ut en zip-fil med VBA

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 "