Excel vypis adresare s datem vytvoreni souboru Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Lukanec
nováček
Příspěvky: 3
Registrován: duben 18
Pohlaví: Muž
Stav:
Offline

Excel vypis adresare s datem vytvoreni souboru

Příspěvekod Lukanec » 07 pro 2018 15:53

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

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Excel vypis adresare s datem vytvoreni souboru  Vyřešeno

Příspěvekod atari » 07 pro 2018 16:40

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

MePExG
Level 2
Level 2
Příspěvky: 193
Registrován: srpen 16
Pohlaví: Muž
Stav:
Offline

Re: Excel vypis adresare s datem vytvoreni souboru

Příspěvekod MePExG » 07 pro 2018 16:59

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
    2676
    od czTANIScz Zobrazit poslední příspěvek
    23 zář 2023 22:34
  • Skript na vytvoreni zastupce slozky
    od ajr » 01 úno 2024 21:21 » v Windows 11, 10, 8...
    1
    586
    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
    1010
    od MonikaVavrova Zobrazit poslední příspěvek
    11 bře 2024 22:24
  • Tisk ELD souboru
    od Jandak » 30 dub 2023 09:53 » v Problémy s hardwarem
    4
    1103
    od Grander Zobrazit poslední příspěvek
    09 čer 2023 21:31
  • Přenos souborů SD - USB flash bez PC
    od Asanoth » 29 črc 2023 17:35 » v Sítě - hardware
    11
    2032
    od Grander Zobrazit poslední příspěvek
    30 črc 2023 15:20

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů