MS Excel

Ahoj,
děkuji, funguje to dokonale :-) Stačilo mi, když to bude hledat xlsm a není potřeba aby to prohledalo podadresáře.
Díky.citovat

wsListSoubor je tzv. CodeName listu. Vo VBA pri označení listu v projekte, sa dá v Properties prepísať položka Name. Potom je jedno, čo je napísané na úšku listu, vo VBA sa bude volať ten list takto, tzv. CodeName. Ak to nevyhovuje tak zmeňte
With wsListSoubor 'listna
With ThisWorkbook.Worksheets("názov na ušku") 'listAk to má hľadať XLSM, tak zmeniť to "xls" na "xlsm" tu:
If StrComp(FSO.GetExtensionName(FName), "xls", vbTextCompare) = 0 ThenAk to má hľadať viac druhov prípon, musím to upraviť.

Kód stačí potom nakopírovať do hociktorého modulu, a len zavolať makro "Latest_File".

Pozor na umiestnenie zdrojového adresára v bunke B1
FPath = .Cells(1, 2).Value2a výsledného názvu s dátumočasom v B2:B3
.Cells(2, 2).Resize(2).Value2
To si treba nastaviť podľa seba, a ak robí problémy pochopenie súradnicového Cells(riadok, stĺpec), tak použiť Range("adresa")
.Range("B1").Value2
.Range("B2:B3").Value2citovat