mynewspapers.net

Hur du använder Excel Filedialog att få listan över filer i en katalog

Hur du använder Excel Filedialog att få listan över filer i en katalog


Microsoft Excel är inte bara om tabular data, beräkningar och informationshantering. Någon ivrig användare kan vända Excel till ett kraftfullt verktyg för att hantera mappar, organisera filer och att hålla reda på aktiviteter. Du kan skapa ett makro som använder ett FileDialog VBA att snabbt söka igenom en katalog och Visa dess innehåll i ett kalkylblad. Vid utförande, detta makro vilja snabb förbrukaren till välja en mapp, och det kommer därefter lista namnen på innehållet i en enda kolumn.

Instruktioner

• Starta Microsoft Excel. Tryck på "CTRL + O," Välj din arbetsbok och sedan klicka på "Öppna". Om du vill skapa en ny arbetsbok i stället, tryck på "CTRL + N."

• Tryck på "ALT + F8" för att öppna dialogrutan makron. Skriv "GetFolderContents" i rutan Makronamn och klicka på "Skapa."

• Ange följande kod i VBA-redigeraren. Sub GetFolderContents() Dim xDir, xFilename, f, fso som objekt som fso = CreateObjectScripting.FileSystemObject("") med Application.FileDialog(msoFileDialogFolderPicker). InitialFileName = ThisWorkbook.Path & "\". Title = "Välj en mapp att lista filer från". AllowMultiSelect = False. Visa om. SelectedItems.Count <> 0 sedan xDir =. SelectedItems(1) & "\" slutet om slutet med om (MsgBox (Prompt: = "Vill du inkludera undermappar?", _ knappar: = vbYesNo, titel: = "Inkludera undermappar") = vbYes) sedan GoTo ListFolders GoTo ListFiles annat GoTo ListFiles slut om ListFolders: för varje f i fso. GetFolder(xDir). Undermappar ActiveCell.Value = "... \ "& f.Name ActiveCell.Offset (1, 0). Välj nästa f ListFiles: för varje f i fso. GetFolder(xDir). Filer ActiveCell.Value = f.Name ActiveCell.Offset (1, 0). Välj nästa f Set fso = inget End Sub

• Tryck på "ALT + Q" att stänga VBA-redigeraren och återvända till din arbetsbok.

• Markera en cell i kalkylbladet. Tryck på "ALT + jag" och sedan "C" skapa en tom kolumn. Markera den första cellen i den nya kolumnen. Om du vill visa listan i ett nytt kalkylblad i stället, trycker du på "SKIFT + F11."

• Tryck på "ALT + F8" för att öppna dialogrutan makron. Välj "GetFolderContents" och klicka på "Run."

• Välj den mapp eller katalog som du vill visa innehållet. Klicka på "OK".

• Klicka på "Ja" om du vill att makrot också lista namnen på sub-broschyren, eller klicka på "Nej" för att lista filer bara. Vänta för Excel till slut fylla den nya kolumnen med innehållet i den valda mappen.