Excel VBA FreeFile
FreeFile ir VBA funkcija, kas ir pieejama tikai kā VBA funkcija, nevis kā darblapas funkcija. VBA FreeFile funkcija atgriež failā unikālo veselā skaitļa numuru, kas tiek atvērts, un saglabā nākamo pieejamo faila numuru.
Mēs parasti atveram failus no sava datora, lai kaut ko rakstītu vai tikai lasīšanai, bet, atsaucoties uz šiem failiem, mums ir jānorāda ar unikālu veselu skaitli. VBA FreeFile funkcija ļauj mums noteikt šo unikālo veselu skaitli, kas piešķirams faila atvēršanai, lai lasītu, rakstītu un atvērtu failus, izmantojot VBA.
Tagad ieskatieties OPEN paziņojuma sintakse.
ATVĒRT (faila ceļa adrese) domēnam (Atvēršanas režīms) kā (Faila numurs)
Faila ceļa adrese: mums jāpiemin faila adrese datorā, kuru mēs mēģinām atvērt.
Atvērtais režīms: atverot failu, mums jāzina, kāda veida modeli mēs izmantosim. Mēs šeit varam izmantot trīs veidus: “Ievades režīms”, “Izejas režīms” un “Pievienošanas režīms”.
Ievades režīms, lai lasītu tikai failu.
Izvades režīms, lai iznīcinātu esošos datus un ievietotu jaunus datus.
Pievienot režīmu, lai pievienotu jaunus datus, saglabājot esošos datus.
Faila numurs: Izmantojot šo argumentu, mēs varam atsaukties uz failu, kuru mēs atveram, un funkcijai “FreeFile” ir būtiska loma, un tā atgriež unikālo veselu skaitli.
Kā izmantot funkciju FreeFile programmā Excel VBA?
Tagad skatieties zemāk esošo kodu.
Kods:
Sub FreeFile_Example1 () Dim ceļš kā virkne Dim FileNumber kā veselais ceļš = "D: Articles 2019 File 1.txt" FileNumber = FreeFile atvērtais izvades ceļš kā FileNumber Path = "D: Articles 2019 File 2.txt "FileNumber = FreeFile atvērtais izejas ceļš kā FileNumber beigu apakšnodaļa
Tagad ļaujiet man atšifrēt iepriekš minēto kodu, lai jūs to saprastu.
Pirmkārt, esmu deklarējis divus mainīgos.
Dim ceļš kā virkne, Dim FileNumber kā vesels skaitlis
Tad es esmu piešķīris faila ceļu ar tā nosaukumu.
Ceļš = "D: Raksti 2019 Fails 1.txt"
Tad vēl vienam mainīgajam esmu piešķīris funkciju FREEFILE.
FileNumber = FreeFile
Tad es izmantoju Open paziņojumu, lai atvērtu teksta failu failā, kas minēts iepriekš.
Atveriet izvades ceļu kā FileNumber
Labi, tagad es darbināšos pa rindai pa kodu, nospiežot taustiņu F8, un redzēšu mainīgā “FileNumber” vērtību.
Tas parāda faila numuru kā 1. Tātad, bezmaksas failu funkcija automātiski rezervē šo numuru sākuma failam. Šīs palaišanas laikā citi faili netiek atvērti.
Tagad es turpināšu izpildīt nākamo VBA koda rindu un redzēt, kāds ir faila numurs, ja es pārietu uz nākamo rindu.
Tagad tā saka 2. Tātad FreeFile funkcija rezervē unikālo veselu skaitli 2 otrajam atvēršanas failam.
Funkcija FreeFile vienmēr atgriež vērtību 1, ja aizveram Excel failu.
Viena lieta, kas mums jāaplūko, ir VBA funkcija “FreeFile” vienmēr atgriež vienu, ja aizveram atvērto failu pirms otrā Excel faila atvēršanas.
Piemēram, apskatiet zemāk redzamo kodu.
Kods:
Sub FreeFile_Example2 () Dim ceļš kā virkne Dim FileNumber kā veselais ceļš = "D: Articles 2019 File 1.txt" FileNumber = FreeFile atvērtais izvades ceļš kā FileNumber Aizvērt FileNumber Path = "D: Articles 2019 File 2 .txt "FileNumber = FreeFile atvērtais izvades ceļš kā FileNumber Aizvērt FileNumber beigu apakšnodaļu
Tagad es vēlreiz izpildīšu koda rindu pēc rindas, nospiežot taustiņu F8.
Tajā teikts 1 kā parasti.
Tagad es pārietu uz nākamo līmeni.
Pat otrajā mēģinājumā tas saka 1.
Iemesls tam ir tāpēc, ka mēs esam izmantojuši aizvēršanas faila paziņojumu, FreeFile atpazīst tikko atvērto failu kā jaunu un atgriež veselu skaitli kā 1.
