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 4.5
Level 4.5
Příspěvky: 1921
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 1.5
Level 1.5
Příspěvky: 134
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 - výpis a zoradenie údajov podla kritérii
    od samot » 14 úno 2019 14:41 » v Kancelářské balíky
    5
    653
    od MePExG
    15 úno 2019 15:34
  • Excel - VBA - Makro - odeslání dat ze souboru A do souboru B
    od Pavel Křivánek » 26 lis 2018 15:04 » v Kancelářské balíky
    3
    870
    od MePExG
    28 lis 2018 21:30
  • Školní projekt vytvoření XSLT souboru
    od Montes » 22 dub 2019 02:14 » v Vše ostatní (sw)
    5
    560
    od ChrisTaylor
    22 dub 2019 22:29
  • Úprava BIOS - vytvoření dump souboru
    od Georginho » 11 dub 2019 12:18 » v Windows 10, 8, 7, Vista, XP…
    2
    393
    od Georginho
    11 dub 2019 15:22
  • Excel vytvoření tabulky tipování výsledku
    od czbroucek » 11 kvě 2019 10:55 » v Kancelářské balíky
    4
    474
    od czbroucek
    12 kvě 2019 12:28

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 9 hostů