U ovom ćemo članku stvoriti makro za prikupljanje pojedinosti o svim datotekama unutar mape.
Prije pokretanja makronaredbe moramo u tekstualnom okviru navesti put do mape.
Prilikom pokretanja makronaredbe vratit će se naziv datoteke, put datoteke, veličina datoteke, datum kreiranja i datum posljednje izmjene svih datoteka u mapi.
Logično objašnjenje
U ovom smo članku stvorili dvije makronaredbe “ListFilesInFolder” i “TestListFilesInFolder”.
Makronaredba "ListFilesInFolder" prikazat će pojedinosti o svim datotekama unutar mape.
Makronaredba “TestListFilesInFolder” koristi se za navođenje zaglavlja i pozivanje makronaredbe “ListFilesInFolder”.
Objašnjenje koda
Postavi FSO = CreateObject ("Scripting.FileSystemObject")
Gornji kôd koristi se za stvaranje novog objekta objekta datotečnog sustava.
Postavi izvornu mapu = FSO.GetFolder (izvorno ime mape)
Gornji kôd koristi se za stvaranje objekta mape navedene stazom.
Ćelije (r, 1) .Formula = FileItem.Name
Ćelije (r, 2) .Formula = FileItem.Path
Ćelije (r, 3) .Formula = FileItem.Size
Ćelije (r, 4) .Formula = FileItem.DateCreated
Ćelije (r, 5) .Formula = FileItem.DateLastModified
Gornji kôd koristi se za izdvajanje pojedinosti o datotekama.
Za svaku podmapu u izvornoj mapi.podmape
'Pozivanje iste procedure za podmape
ListFilesInFolder SubFolder.Path, Tačno
Sljedeća podmapa
Gornji kôd koristi se za izdvajanje pojedinosti o svim datotekama unutar podmapa.
Stupci ("A: E"). Odaberite
Selection.ClearContents
Gornji kôd koristi se za brisanje sadržaja iz stupaca A do E.
Molimo slijedite dolje za kôd
Opcija Eksplicitni Sub ListFilesInFolder (ByVal SourceFolderName As String, ByVal IncludeSubfolders as Boolean) 'Deklariranje varijabli Dim FSO kao Object Dim SourceFolder As Object Dim SubFolder kao Object Dim FileItem As Object Dim r As Long' Stvaranje objekta FileSystemObjectFet .FileSystemObject ") Postavi izvornu mapu = FSO.GetFolder (izvorno ime mape) r = raspon (" A65536 "). Kraj (xlUp). Redak + 1 za svaku datotečnu stavku u izvornoj mapi. Svojstva prikaza datoteka datoteka Celije (r, 1) .Formula = Ćelije naziva datoteke Filetem.Name (r, 2) .Formula = FileItem.Path Cells (r, 3) .Formula = FileItem.Veličina ćelija (r, 4) .Formula = FileItem.DateCreated Cells (r, 5) .Formula = FileItem. DateLastModified r = r + 1 Next FileItem 'Dobivanje datoteka u podmape If IncludeSubfolders Zatim za svaku podmapu u SourceFolder.SubFolders' Pozivanje iste procedure za podmape ListFilesInFolder SubFolder.Path, True Next SubFolder End If Set FileItem = Nothing Set SourceFolder = Ništa nije postavljeno FSO = Ništa ActiveWorkbook.Saved = Istina End Sub Sub TestListFilesInFolder () 'Deklariranje varijable Dim FolderPath kao niz' Onemogućavanje ažuriranja zaslona Application.ScreenUpdating = False 'Dobivanje putanje do mape iz okvira za tekst FolderPath = Sheet1.TextBox1.Value ActiveSheet.Activate' Brisanje sadržaja iz stupaca A: E Stupci ("A: E"). Odaberite Selection.ClearContents 'Dodavanje zaglavlja Raspon ("A14"). Formula = "Naziv datoteke:" Raspon ("B14"). Formula = "Put:" Raspon ("C14"). Formula = "Veličina datoteke:" Raspon ("D14"). Formula = "Datum kreiranja:" Raspon ("E14"). Formula = "Datum posljednje izmjene:" 'Formiranje raspona zaglavlja ("A14: E14"). Font .Bold = True 'Pozivanje mape ListFilesInFolder Mapa ListFilesInFolder FolderPath, True' Automatsko podešavanje veličine stupaca Stupci ("A: E"). Odaberite Odabir.Kolone.AutoFit raspon ("A1"). Odaberite Kraj podmaza
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte