, uit een bepaald bestand, neem alle dossiers onder de naam van de VBA code kan je helpen, alsjeblieft Doe:,, 1.Op het Alt+F11, sleutels, het openstellen van Microsoft de visuele van toepassing.,,,,, 2.- steek, >, modules en de volgende code in het raam, modules,,,,, de VBA code: lijst van alle dossiers en de folders, de naam van de zoon, en foldernames () het bijwerken van 20141027 application.screenupdating = valse donkere xpath. Als de schemering van de tabel XWS FSO object, J voor de lange, folder1 is het doel, de toepassing van het dossier (msofiledialogfolderpicker). Titel: "de keuze van de map". Aan het einde van de show fout herstellen xpath = toepassing van de dialoog (msofiledialogfolderpicker documenten). Selecteditems (1) & "application.workbooks.add set XWS = application.activesheet XWS. Cellen (1 1). - waarde = xpath XWS. - (2 - 1). Aanpassing (1, 5). - waarde = array (" weg ", de" Gids "," "," het creëren van een datum, de datum van de laatste wijziging van FSO = createobject ") vastgesteld (" scriptiNg. Het kenmerk ") vastgesteld folder1 = FSO. Getfolder xpath (getsubfolder folder1 XWS). (2), (1), de omvang van 1, 5) = 65535. Interior.color XWS. - (2 - 1), de omvang (1, 5). Entirecolumn.autofit application.screenupdating = echte terminals getsubfolder (byref prntfld Als doel. De MAP) als doel subfld als voorwerp van de generaal in de schemering xrow prntfld.subfolders xrow = binnen de werkingssfeer van elke MAP (A1). - (xldown) + (1). Xrow, 1). Aanpassing (1, 5). - waarde = - (subfolder.path, links (subfolder.path, instrrev (subfolder.path," "), MAP. Naam, subfolder.datecreated datelastmodified) in het kader van het sub - MAP, folders, in prntfld.subfolders getsubfolder subfld subfld terminals onder,,, elke subfld 3.En de pers F5, het uitvoeren van deze code, en, kiezen de map raam komt, dan kies je de gids nodig, je moet de naam van de dossiers en de mappen, zie schoten:,,,,,, 4.- oké, je krijgt de dossiers en de folders van de weg, de naam van de lijst, de datum, de datum van de laatste wijziging in het creëren van nieuwe werkboek screenshot:,,,,,,,,
