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: 1795
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: 101
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 - načítání externích dat do tabulky s datem
    od MIK27 » 07 úno 2018 11:49 » v Kancelářské balíky
    1
    497
    od elninoslov
    07 úno 2018 21:49
  • 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
    414
    od MePExG
    28 lis 2018 21:30
  • Excel- vytvoření databáze
    od zziipp » 14 úno 2018 11:35 » v Kancelářské balíky
    2
    651
    od zziipp
    14 úno 2018 12:01
  • Excel - vytvoření spojení mezi buňkami
    od Viking77 » 14 úno 2018 09:00 » v Kancelářské balíky
    2
    412
    od birgis
    14 úno 2018 11:46
  • Výpis řádků podle kritéria
    od Michremi » 31 kvě 2018 10:43 » v Kancelářské balíky
    3
    550
    od elninoslov
    04 čer 2018 10:52

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 4 hosti