27697_seznam-dokumentu.zip
Návod:
1.) Využij událost listu "Workbook_SheetFollowHyperlink".
2.) Název dokumentu bude "Target.Name".
3.) Časovou známku získáš přes funkci "Now", datum přes "Date".
4.) Ověření existence souboru přes funkci "Dir". K nalezení posledního obsazeného řádku lze využít např. "Range("B1000000").End(xlUp).Row". Pro vytváření nového souboru si do oné složky udělej šablonu dle tvého vzoru. V případě, že ještě neexistuje soubor s aktuálním datem, tak jej vytvoř ze šablony.
P.citovat
1.) Využij událost listu "Workbook_SheetFollowHyperlink".
2.) Název dokumentu bude "Target.Name".
3.) Časovou známku získáš přes funkci "Now", datum přes "Date".
4.) Ověření existence souboru přes funkci "Dir". K nalezení posledního obsazeného řádku lze využít např. "Range("B1000000").End(xlUp).Row". Pro vytváření nového souboru si do oné složky udělej šablonu dle tvého vzoru. V případě, že ještě neexistuje soubor s aktuálním datem, tak jej vytvoř ze šablony.
P.citovat
RSS nejnovější články