seychellesartprojects.org

Excel VBA FreeFile

FreeFile on VBA: n toiminto, joka on käytettävissä vain VBA-funktiona, ei taulukkofunktiona. VBA FreeFile -toiminto palauttaa yksilöllisen kokonaisluvun avattuun tiedostoon ja säilyttää seuraavan käytettävissä olevan tiedostonumeron.

Avaamme yleensä tiedostot tietokoneeltamme joko kirjoittamaan jotain tai vain luku -tekstiin, kun taas viittaamalla niihin tiedostoihin meidän on viitattava yksilöllisellä kokonaisluvulla. VBA FreeFile -toiminnon avulla voimme määrittää yksilöllisen kokonaisluvun, joka annetaan tiedoston avaamiselle tiedostojen lukemista, kirjoittamista ja avaamista varten VBA: n avulla.

Katsokaa nyt OPEN-lauseen syntaksia.

AVAA [Tiedoston polun osoite] [Tila avattavaksi] nimellä [Tiedostonumero]

Tiedoston polun osoite: Meidän on mainittava tietokoneellamme oleva tiedoston osoite, jonka yritämme avata.

Tila avattavaksi: Tiedostoa avattaessa on tiedettävä, millaista mallia aiomme käyttää. Voimme käyttää tässä kolmea tilaa, "Input Mode", "OutPut Mode" ja "Append Mode".

Syöttötila vain tiedoston lukemiseen.

Tulostustila pyyhkiä pois olemassa olevat tiedot ja lisätä uusia tietoja.

Liitä tila lisätäksesi uusia tietoja säilyttäen nykyiset tiedot.

Tiedostonumero: Tällä argumentilla voimme viitata avaamaamme tiedostoon. Tässä "FreeFile" -toiminnolla on tärkeä rooli ja se palauttaa yksilöllisen kokonaisluvun.

Kuinka käyttää FreeFile-toimintoa Excel VBA: ssa?

Voit ladata tämän VBA FreeFile Excel -mallin täältä - VBA FreeFile Excel -malli

Katso nyt alla oleva koodi.

Koodi:

 Sub FreeFile_Example1 () Himmennä polku merkkijonona Himmennä FileNumber kuin kokonaisluku = "D: \ Article \ 2019 \ File 1.txt" FileNumber = FreeFile avoin polku tulostettavaksi FileNumber Path = "D: \ Article \ 2019 \ File 2.txt "FileNumber = FreeFile avoin polku tulostettavaksi tiedostona FileNumber End Sub 

Sallikaa minun purkaa yllä oleva koodi ymmärrettäväksi.

Ensin olen ilmoittanut kaksi muuttujaa.

 Hämärä polku merkkijonona, Himmennä tiedostonumero kokonaislukuna 

Sitten olen määrittänyt tiedostopolun ja sen nimen.

Polku = "D: \ Artikkelit \ 2019 \ Tiedosto 1.txt"

Sitten yhdelle muuttujalle olen määrittänyt FREEFILE-toiminnon.

FileNumber = FreeFile

Sitten olen käyttänyt Open-käskyä tekstitiedoston avaamiseen edellä mainitussa tiedostopolussa.

 Avaa tulostuksen polku tiedostonumerona

Ok, nyt aion suorittaa rivikohtaisesti painamalla F8-näppäintä ja nähdä muuttujan "FileNumber" arvon.

Se näyttää tiedostonumeron muodossa 1. Ilmainen tiedosto -toiminto varaa tämän numeron automaattisesti avaustiedostolle. Tätä suoritettaessa muita tiedostoja ei avata.

Suoritan nyt VBA-koodin seuraavaa riviä ja näen, mikä on tiedoston numero, jos siirryn seuraavalle riville.

Nyt se sanoo 2. Joten FreeFile-funktio varaa yksilöllisen kokonaisluvun numeron 2 toiseen avaustiedostoon.

FreeFile-funktio palauttaa aina 1, jos suljet Excel-tiedoston

Yksi asia, jota meidän on tarkasteltava, on VBA: n "FreeFile" -toiminto palauttaa aina 1, jos suljet avoimen tiedoston ennen toisen Excel-tiedoston avaamista.

Katso esimerkiksi alla oleva koodi.

Koodi:

 Sub FreeFile_Example2 () Himmennä polku merkkijonona Himmennä FileNumber kuin kokonaisluku = "D: \ Article \ 2019 \ File 1.txt" FileNumber = FreeFile avoin polku tulostettavaksi FileNumber-tiedostona Sulje FileNumber Path = "D: \ Article \ 2019 \ File 2 .txt "FileNumber = FreeFile avoin polku tulostettavaksi tiedostona FileNumber Sulje FileNumber End Sub 

Suoritan nyt koodirivin jälleen riviltä painamalla F8-näppäintä.

Siinä lukee 1 kuten tavallista.

Nyt eden seuraavalle tasolle.

Jopa toisella yrityksellä sanotaan 1.

Syynä tähän on se, että olemme käyttäneet Sulje tiedosto -käskyä. FreeFile tunnistaa äskettäin avatun tiedoston uudeksi ja palauttaa kokonaisluvun 1: ksi.