Sisällysluettelo
FreeFile Kuvaus
Palauttaa seuraavan voimassa olevan ilmaisen tiedostonumeron (kokonaisluku).
FreeFile -syntaksi
VBA -editorissa voit kirjoittaa FreeFile () nähdäksesi FreeFile -toiminnon syntaksin:
FreeFile -funktio sisältää argumentin:
Alueen numero: [Valinnainen] 0 (oletus) palauttaa tiedostonumeron alueella 1-255. 1 palauttaaksesi tiedostonumeron alueella 256-511.
Esimerkkejä Excel VBA FreeFile -toiminnosta
Suorita seuraava koodi.
| 1234567891011121314151617 | Sub FreeFile_Example ()Dim nIndex kokonaislukunaDim nFileNumber kokonaislukunaDim arrFileNumber (1 - 3) kokonaislukunaNIndex = 1 - 3nFileNumber = FreeFile 'Hae käyttämätön tiedostonumeroarrFileNumber (nIndex) = nFileNumber'numero.Avaa "D: \ test" & nIndex & ".txt" Tulosteeksi nFileNumber "Luo tiedostonimi.Kirjoita #nFileNumber, "Tämän tiedoston tiedostonumero on" & nFileNumber "Lähtöteksti."Seuraava nIndexNIndex = 1 - 3Sulje arrFileNumber (nIndex) 'Sulje tiedosto.Seuraava nIndexEnd Sub |
Tämä luo 3 tiedostoa D -asemaan.
test1.txt: "Tämän tiedoston tiedostonumero on 1"
test2.txt: "Tämän tiedoston tiedostonumero on 2"
test3.txt: "Tämän tiedoston tiedostonumero on 3"
Tämä osoittaa, että FreeFile -funktio palauttaa 1, 2, 3.
