Jak zjistit velikost souboru pomocí VBA
Soubor má vždy určitý objem na datovém nosiči, velikost souboru. Pokud používáte Excel, můžete se na to zeptat pohledem na položku souboru v adresáři, pokud soubor není otevřený.
Další způsob dotazu na tyto informace je použít dialogové okno "Soubor - Vlastnosti". Tento záznam naleznete v části „Velikost“ na kartě „Obecné“.
Pokud si chcete tyto informace přečíst pomocí makra, funkce vám pomůže FileLen. Do této funkce předáte úplný název souboru sešitu aplikace Excel. Výsledkem je velikost souboru v bajtech. Následující makro ukazuje, jak používat funkci v praxi:
Sub ShowFileSize ()
MsgBox „Velikost aktuálního sešitu“ & _
„is“ & FileLen (ThisWorkbook.FullName) / 1024 & _
"KByte."
End Sub
Po spuštění aplikace Excel zobrazí malé okno, které ukazuje velikost souboru aktuálního sešitu. Následující obrázek ukazuje, jak toto okno vypadá:
Funkce vrací velikost souboru v bajtech. V makru tedy probíhá převod na KByte. K tomu je velikost souboru dělena číslem 1024.
Tip: Pokud byste chtěli vědět, jak zadávat a spouštět makra v Excelu, najdete zde stručný popis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html