Microsoft Excel gaat niet alleen over gegevens in tabelvorm , berekeningen en informatiebeheer . Elke fervent gebruiker kan Excel veranderen in een krachtige tool voor het beheren van mappen , het organiseren van bestanden en het bijhouden van taken . U kunt een macro die een FileDialog VBA -object gebruikt om een directory snel te scannen en een lijst van de inhoud ervan in een spreadsheet . Bij de uitvoering , zal deze macro gebruikers vragen om een map te halen , en het zal vervolgens een lijst van de namen van de inhoud ervan in een enkele kolom . Instructies
Het creëren van de Macro
Start Microsoft Excel 1 . Druk "CTRL + O , ' selecteer de werkmap en klik op ' Openen '. Als u een nieuwe werkmap wilt maken in plaats daarvan , druk " Ctrl + N. " kopen van 2 Druk op " ALT + F8 " om het dialoogvenster Macro's te openen . Type " GetFolderContents " in het vak Macro en klik vervolgens op "Create . "
3 Voer de volgende code in de VBA- editor . Sub GetFolderContents ( ) op < br Dim XDIR > , xFilename , f , fso As Object
Set fso = CreateObject ( " Scripting.FileSystemObject " ) op p Met Application.FileDialog ( msoFileDialogFolderPicker ) op . InitialFileName = ThisWorkbook.Path & " \\ "
. Title = " Selecteer een map naar bestanden van "
. = False
. Toon
AllowMultiSelect Als . SelectedItems.Count < > 0 Then XDIR
= . SelectedItems ( 1 ) & " \\ " End
Als End met
Als ( MsgBox ( Prompt : = " ? wilt u submap namen zijn " , _ Knoppen
: = vbYesNo , Title : = " Inclusief submappen " ) = vbYes ) dan
GoTo ListFolders GoTo listfiles
Else GoTo listfiles End
Als ListFolders :
Elk f In fso.GetFolder ( XDIR ) . submappen
ActiveCell.Value = " .. \\ " & f.Name ActiveCell.Offset
( 1 , 0 ) . Select
Volgende f listfiles :
voor Elke f In fso.GetFolder ( XDIR ) Bestanden ActiveCell.Value ActiveCell
= f.Name
. . offset ( 1 , 0 ) . Kies
Volgende f
Set fso = Nothing End of Sub
Druk " ALT + Q " 4 aan de VBA -editor te sluiten en terug te keren naar uw werkmap .
met de Macro
5 Markeer een cel in je vel . Druk op ' Alt + I " en vervolgens " C " naar een lege kolom te creëren . Selecteer de eerste cel in de nieuwe kolom . Indien u graag om de lijst weer te geven in een nieuw werkblad in plaats daarvan , druk op " SHIFT + F11 . "
6 Druk op " ALT + F8 " om het dialoogvenster Macro's te openen . Selecteer " GetFolderContents " en klik op "Uitvoeren . "
7 Selecteer de map of de map van waaruit u wilt om de inhoud . Klik op " OK".
Klik 8 op " Ja" als u wilt dat de macro om ook de namen van de submappen , of klik op " Nee " om alleen een lijst van bestanden . Wacht tot Excel tot finish bevolken de nieuwe kolom met de inhoud van uw geselecteerde map .
|
