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é