Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Microsoft Excel a pod " karte Vývojár " kliknite na " Visual Basic " . Typ " Sub filesToUnzip ( ) " a stlačte tlačidlo " Enter " pre vytvorenie novej ponorky .
2
Type " Dim oApplicationlication As Object
Dim filename As Variant
Dim folderFileName As Variant " deklarovať premenné
3
typ . " filename = Application.GetOpenFilename ( FileFilter : = " . zip súbory ( * zip ) , * PSČ . " , MultiSelect : = " . sa otvorí okno prehliadača súborov a vyberte súbor ZIP rozbaliť
4
typu " false ) folderFileName = " C : \\ UnzippedFiles " & " \\ "
mkdir folderFileName
Set oApplication = CreateObject ( " Shell.Application " ) "
5
Type vytvoriť cieľovú zložku pre rozbalené súbory . " oApplication.Namespace ( folderFileName ) . CopyHere oApplication . menný priestor ( filename) . položky "Ak chcete extrahovať súbory ZIP . V prípade potreby \\ UnzippedFiles \\ " , vbInformation " sa zobrazí správa , že vaše súbory úspešne extrahovali
6
Typ " End Sub " : Zadajte " MsgBox " Vy ste extrahovali zip súborov do zložky C. . Spustite novú ponorku extrahovať súbory z vášho súboru ZIP .
Copyright © počítačové znalosti Všetky práva vyhradené