Zdravím,
Mám následující kód pro výpis souborů a adresářů. V buňce "C1" mám cestu k adresáři který chci vypsat. Výpis začíná pozicí A4 až n. Ve sloupci B bych potřeboval k těmto souborům vypsat datum vytvoření. Dokážete prosím poradit jak k výpisu ve sloupci A přiřadit ve sloupci B datum vytvoření daného souboru? Nějak nejsem schopen dát dohromady....Děkuji
Sub seznam()
Range("A3").Select
Range("A3:A17023").Select
Selection.ClearContents
Range("A3").Select
Dim FSO As Object
Dim NalezenoF As Long
Dim NalezenoS As Long
Set FSO = CreateObject("Scripting.fileSystemObject")
Set START = FSO.getfolder(Range("C1"))
Set subfold = START.subfolders
For Each f In subfold
On Error Resume Next
NalezenoF = Range("a:a").Find(what:=f.Name, lookat:=xlWhole).Row
If Err.Number = 91 Then
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1) = f.Name
End If
On Error GoTo 0
Next f
For Each s In START.Files
On Error Resume Next
NalezenoS = Range("a:a").Find(what:=s.Name, lookat:=xlWhole).Row
If Err.Number = 91 Then
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1) = s.Name
End If
On Error GoTo 0
Next s
End Sub
Excel vypis adresare s datem vytvoreni souboru Vyřešeno
Re: Excel vypis adresare s datem vytvoreni souboru Vyřešeno
Nápověda (na psaní kodu nemám čas):
s.Name - vypíše jméno
s.DateLastModified - vypíše datum poslední změny
Seznam vlastností (+nápověda) zde: https://docs.microsoft.com/en-us/office ... d-property
s.Name - vypíše jméno
s.DateLastModified - vypíše datum poslední změny
Seznam vlastností (+nápověda) zde: https://docs.microsoft.com/en-us/office ... d-property
Re: Excel vypis adresare s datem vytvoreni souboru
Prikladám riešenie v PowerQuery. Stačí zadať cestu (c3) a aktualizovať tabuľku.
- Přílohy
-
- suboryPQ.xlsx
- (16.85 KiB) Staženo 111 x
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
MS Outlook - Hromadné vytvoření složek Příloha(y)
od czTANIScz » 22 zář 2023 11:36 » v Kancelářské balíky - 6
- 2682
-
od czTANIScz
Zobrazit poslední příspěvek
23 zář 2023 22:34
-
-
- 1
- 591
-
od ITCrowd
Zobrazit poslední příspěvek
02 úno 2024 08:36
-
-
Vytvoření skriptu na zálohu hry, kterou vytvářím. Příloha(y)
od xCloudGirl » 09 bře 2024 12:35 » v Vše ostatní (sw) - 11
- 1012
-
od MonikaVavrova
Zobrazit poslední příspěvek
11 bře 2024 22:24
-
-
- 4
- 1103
-
od Grander
Zobrazit poslední příspěvek
09 čer 2023 21:31
-
- 11
- 2032
-
od Grander
Zobrazit poslední příspěvek
30 črc 2023 15:20
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů