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ž

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 5.5
Level 5.5
Příspěvky: 2522
Registrován: říjen 08
Pohlaví: Muž

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: 176
Registrován: srpen 16
Pohlaví: Muž

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.
Nemáte oprávnění prohlížet přiložené soubory.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel: Obrázek - vložení z adresáře
    od Lady_Macbeth » 17 pro 2019 14:00 » v Kancelářské balíky
    3
    1222
    od Lady_Macbeth
    24 úno 2020 10:42
  • Excel - pokračování makra při chybě souboru
    od hujerus214 » 09 črc 2020 12:17 » v Kancelářské balíky
    2
    275
    od ITCrowd
    10 črc 2020 00:33
  • Excel - rozklikávací seznam v buňce nefunguje po odeslání/uložení souboru
    od Radkli » 14 srp 2019 16:25 » v Kancelářské balíky
    3
    1543
    od guest
    21 říj 2019 10:32
  • Cloud MEGA - nechtěné adresáře
    od ivosisko » 19 bře 2020 21:44 » v Vše ostatní (sw)
    2
    989
    od ivosisko
    21 bře 2020 10:07
  • Vytvořeni podsite v domě
    od Hikoner » 29 srp 2019 22:24 » v Sítě - hardware
    2
    925
    od petr22
    30 srp 2019 07:09

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

Kdo je online

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