Kuidas VBA abil faili suurust teada saada
Failil on andmekandjal alati teatud maht, faili suurus. Exceli kasutamisel saate selle kohta päringu teha, vaadates kataloogi failikirjet, kui fail pole avatud.
Teine viis selle teabe pärimiseks on dialoogiboksi "Fail - atribuudid" kasutamine. Selle kirje leiate vahekaardi "Üldine" alt "Suurus".
Kui soovite seda teavet makro abil ette lugeda, aitab see funktsioon teid FileLen. Sellele funktsioonile edastate Exceli töövihiku täieliku failinime. Tulemuseks on faili suurus baitides. Järgmine makro näitab, kuidas funktsiooni praktikas kasutada:
Sub ShowFileSize ()
MsgBox "Praeguse töövihiku suurus" & _
"on" & FileLen (ThisWorkbook.FullName) / 1024 & _
"KByte."
End Sub
Kui see käivitub, kuvab Excel väikese akna, mis näitab praeguse töövihiku failisuurust. See aken näeb välja järgmine joonis:
Funktsioon tagastab faili suuruse baitides. Seetõttu toimub makros teisendamine KByteks. Selleks jagatakse faili suurus numbriga 1024.
Näpunäide. Kui soovite teada, kuidas Excelis makrosid sisestada ja käivitada, leiate lühikirjelduse siit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
