Súbor Excel VBA FreeFile
FreeFile je funkcia vo VBA, ktorá je k dispozícii iba ako funkcia VBA, nie ako funkcia pracovného hárka. Funkcia VBA FreeFile vráti jedinečné celé číslo do súboru, ktorý sa otvorí a uchová ďalšie dostupné číslo súboru.
Súbory zvyčajne otvárame z počítača, aby sme buď niečo napísali, alebo iba na čítanie, pričom pri odkazovaní na tieto súbory musíme odkazovať s jedinečným celým číslom. Funkcia VBA FreeFile nám umožňuje určiť toto jedinečné celé číslo, ktoré sa priradí otvoreniu súboru na čítanie, zápis a otváranie súborov pomocou VBA.
Teraz sa pozrite na syntax príkazu OPEN.
OPEN (Adresa cesty súboru) Pre (Režim otvorenia) Ako (Číslo súboru)
Adresa cesty k súboru: Musíme spomenúť adresu súboru v počítači, ktorú sa pokúšame otvoriť.
Režim otvorenia: Pri otváraní súboru potrebujeme vedieť, aký model použijeme. Môžeme tu použiť tri spôsoby: „Vstupný režim“, „Výstupný režim“ a „Pripojiť režim“.
Režim vstupu na čítanie iba súboru.
Režim výstupu na vymazanie existujúcich údajov a vloženie nových údajov.
Pripojiť režim na pridanie nových údajov pri zachovaní existujúcich údajov.
Číslo súboru: Týmto argumentom môžeme označiť súbor, ktorý otvárame - tento, kde funkcia „FreeFile“ hrá zásadnú úlohu a vracia jedinečné celé číslo.
Ako používať funkciu FreeFile v programe Excel VBA?
Teraz sa pozrite na nižšie uvedený kód.
Kód:
Sub FreeFile_Example1 () Dim Path As String Dim FileNumber As Integer Path = "D: Article 2019 File 1.txt" FileNumber = FreeFile Open Path for Output As FileNumber Path = "D: articles 2019 File 2.txt "FileNumber = Otvorená cesta súboru FreeFile pre výstup ako File Subumber End Sub
Teraz mi dovoľte dekódovať vyššie uvedený kód, aby ste mu porozumeli.
Najskôr som deklaroval dve premenné.
Dim Path As String, Dim FileNumber As Integer
Potom som priradil cestu k súboru s jeho názvom.
Cesta = "D: Články 2019 Súbor 1.txt"
Potom som ešte jednej premennej priradil funkciu FREEFILE.
FileNumber = FreeFile
Potom som pomocou príkazu Otvoriť otvoril textový súbor v súbore uvedenom vyššie.
Otvorte cestu pre výstup ako číslo súboru
Dobre, teraz spustím riadok po riadku stlačením klávesu F8 a uvidím hodnotu premennej „FileNumber“.
Číslo súboru sa zobrazuje ako 1. Funkcia bezplatného súboru teda toto číslo automaticky rezervuje pre otvárací súbor. Počas tohto procesu sa neotvárajú žiadne ďalšie súbory.
Teraz budem pokračovať v vykonávaní ďalšieho riadku kódu VBA a uvidím, aké je číslo súboru, ak prejdem na ďalší riadok.
Teraz sa hovorí 2. Takže funkcia FreeFile vyhradzuje jedinečné celé číslo 2 do druhého otváracieho súboru.
Funkcia FreeFile vždy vráti 1, ak zatvoríme súbor programu Excel.
Jedna vec, na ktorú sa musíme pozrieť, je funkcia VBA „FreeFile“, ktorá vždy vráti jednu, ak zatvoríme otvorený súbor pred otvorením druhého súboru programu Excel.
Napríklad si pozrite nasledujúci kód.
Kód:
Sub FreeFile_Example2 () Dim Path As String Dim FileNumber As Integer Path = "D: Article 2019 File 1.txt" FileNumber = FreeFile Otvorená cesta pre výstup ako FileNumber Zavrieť FileNumber Cesta = "D: Články 2019 File 2 .txt "FileNumber = FreeFile Otvorená cesta pre výstup ako FileNumber Zavrieť FileNumber Koniec Sub
Teraz znova vykonám kódový riadok po riadku stlačením klávesu F8.
Hovorí to ako obvykle 1.
Teraz postúpim na ďalšiu úroveň.
Aj v druhom pokuse hovorí 1.
Dôvod je ten, že sme použili príkaz Zatvoriť súbor, FreeFile rozpozná novootvorený súbor ako nový a vráti celé číslo ako 1.
