ÜcretsizDosya Açıklaması
Sonraki geçerli boş dosya numarasını (Tamsayı) döndürür.
Ücretsiz Dosya Sözdizimi
VBA Düzenleyicide, FreeFile İşlevinin sözdizimini görmek için “FreeFile(” yazabilirsiniz:
FreeFile işlevi bir argüman içerir:
Aralık Numarası: [Opsiyonel] 0(varsayılan) dosya numarasını 1-255 aralığında döndürmek için. 1 dosya numarasını 256-511 aralığında döndürmek için.
Excel VBA FreeFile İşlevi Örnekleri
Lütfen aşağıdaki kodu çalıştırın.
| 1234567891011121314151617 | Alt FreeFile_Example()Tamsayı Olarak Dim nIndexDim nFileNumber As IntegerDim arrFileNumber(1 - 3) Tamsayı OlaraknIndex için = 1 - 3nFileNumber = FreeFile ' Kullanılmayan dosya numarasını alarrFileNumber(nIndex) = nFileNumber' sayı.Çıktı için "D:\test" & nIndex & ".txt" dosyasını açın nFileNumber ' Dosya adı oluşturun.#nFileNumber yazın, "Bu dosyanın dosya numarası " & nFileNumber ' Çıktı metni."Sonraki nIndexnIndex için = 1 - 3Kapat arrFileNumber(nIndex) ' Dosyayı kapat.Sonraki nIndexAlt Bitiş |
Bu, D sürücüsünde 3 dosya oluşturacaktır.
test1.txt: “Bu dosyanın dosya numarası 1”
test2.txt: “Bu dosyanın dosya numarası 2”
test3.txt: “Bu dosyanın dosya numarası 3”
Bu, FreeFile işlevi tarafından 1, 2, 3'ün döndürüldüğünü gösterir.
