VBA FreeFile

File Gratis Excel VBA

FreeFile adalah fungsi di VBA yang hanya tersedia sebagai fungsi VBA Fungsi VBAFungsi VBA melayani tujuan utama untuk melakukan perhitungan tertentu dan mengembalikan nilai. Oleh karena itu, di VBA, kami menggunakan sintaks untuk menentukan parameter dan tipe data saat mendefinisikan fungsi. Fungsi seperti itu disebut fungsi yang ditentukan pengguna.Baca lebih lanjut, bukan sebagai fungsi lembar kerja. Fungsi VBA FreeFile mengembalikan nomor integer unik ke file, yang dibuka dan mempertahankan nomor file berikutnya yang tersedia.

Kami biasanya membuka file dari komputer kami untuk menulis sesuatu atau hanya-baca. Saat merujuk ke file-file itu, kita harus merujuk dengan bilangan bulat unik. Fungsi VBA FreeFile memungkinkan kita untuk menentukan nomor integer unik yang ditetapkan untuk membuka file untuk membaca, menulis, dan membuka file menggunakan VBA.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: VBA FreeFile (wallstreetmojo.com)

Sekarang, lihat sintaks pernyataan OPEN.

OPEN [File Path Address] Untuk [Mode to Open] Sebagai [File Number]

Alamat Jalur File: Kami perlu menyebutkan alamat file yang kami coba buka di komputer kami.

Mode untuk Membuka: Saat membuka file, kita perlu mengetahui model apa yang akan kita terapkan. Kita dapat menggunakan tiga cara di sini, ‘Input Mode’, ‘Output Mode’, dan ‘Append Mode’.

Mode input untuk hanya membaca file.

Mode keluaran untuk menghapus data yang ada dan memasukkan data baru.

Tambahkan mode untuk menambahkan data baru sambil mempertahankan data yang ada.

Nomor File: Dengan argumen ini, kita dapat merujuk ke file yang sedang kita buka—di sinilah fungsi ‘FileBebas’ memainkan peran penting dan mengembalikan bilangan bulat unik.

Bagaimana Cara Menggunakan Fungsi FreeFile di Excel VBA?

Sekarang, lihat kode di bawah ini.

Kode:

Sub FreeFile_Example1() Dim Path Sebagai String Dim FileNumber As Integer Path = “D:Articles2019File 1.txt” FileNumber = FreeFile Buka Path Untuk Output Sebagai FileNumber Path = “D:Articles2019File 2.txt” FileNumber = FreeFile Buka Path Untuk Output Sebagai FileNumber Akhir Sub

Sekarang, izinkan saya memecahkan kode di atas agar Anda mengerti.

Pertama, kami telah mendeklarasikan dua variabel.

Dim Path Sebagai String, Dim FileNumber Sebagai Integer

Kemudian, kami menetapkan jalur file dengan namanya.

Path = “D:Articles2019File 1.txt”

Kemudian untuk satu variabel lagi, saya telah menetapkan fungsi FREEFILE.

FileNumber = File Gratis

Kemudian, kami menggunakan pernyataan Buka untuk membuka file teks dalam file yang disebutkan di atas.

Buka Path Untuk Keluaran Sebagai FileNumber

Sekarang, kita akan menjalankan kode baris demi baris dengan menekan tombol F8 dan melihat nilai variabel ‘FileNumber.’

Ini menunjukkan nomor file sebagai 1. Jadi, fungsi file gratis secara otomatis mencadangkan nomor ini untuk file pembuka. Jadi, saat menjalankan ini, kita tidak boleh membuka file lain.

Kami akan terus mengeksekusi baris kode VBA berikutnya Kode VBA CodeVBA mengacu pada serangkaian instruksi yang ditulis oleh pengguna dalam bahasa pemrograman Visual Basic Applications pada Visual Basic Editor (VBE) untuk melakukan tugas tertentu.Baca lebih lanjut dan lihat nomor file jika kita melompat ke baris berikutnya.

Sekarang tertulis 2. Jadi fungsi FreeFile mencadangkan bilangan bulat unik 2 ke file pembuka kedua.

Fungsi FreeFile Selalu Mengembalikan 1 jika kita Menutup File Excel.

Kita perlu melihat bagaimana fungsi VBA FreeFile selalu mengembalikan satu jika kita menutup file yang dibuka sebelum membuka file Excel kedua.

Sebagai contoh, lihat kode di bawah ini.

Kode:

Sub FreeFile_Example2() Dim Path Sebagai String Dim FileNumber As Integer Path = “D:Articles2019File 1.txt” FileNumber = FreeFile Buka Path Untuk Output Sebagai FileNumber Tutup FileNumber Path = “D:Articles2019File 2.txt” FileNumber = FreeFile Buka Path Untuk Output Sebagai FileNumber Tutup FileNumber End Sub

Kami akan kembali menjalankan kode baris demi baris dengan menekan tombol F8.

Dikatakan 1 seperti biasa.

Sekarang, kita akan maju ke level berikutnya.

Bahkan di percobaan kedua, tertulis 1.

Itu terjadi karena kami telah menggunakan pernyataan Tutup file. Akibatnya, FreeFile mengenali file yang baru dibuka sebagai segar dan mengembalikan bilangan bulat sebagai 1.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk VBA FreeFile. Di sini, kita membahas penggunaan fungsi FreeFile di Excel VBA untuk mengembalikan bilangan bulat unik ke file yang dibuka, dengan contoh praktis dan template Excel yang dapat diunduh. Di bawah ini Anda dapat menemukan beberapa artikel Excel VBA yang berguna: –