File Gratis VBA Excel
FreeFile adalah fungsi di VBA yang hanya tersedia sebagai fungsi VBA, bukan sebagai fungsi lembar kerja. Fungsi VBA FreeFile mengembalikan nomor integer unik ke file, yang dibuka dan mempertahankan nomor file yang tersedia berikutnya.
Kami biasanya membuka file dari komputer kami untuk menulis sesuatu atau hanya-baca, sementara mengacu pada file-file itu, kami harus merujuk dengan nomor integer yang unik. Fungsi VBA FreeFile memungkinkan kita menentukan bilangan bulat unik yang akan ditetapkan untuk membuka file untuk membaca, menulis, dan membuka file menggunakan VBA.
Sekarang lihat sintaks dari pernyataan OPEN.
BUKA (Alamat Jalur File) Untuk (Mode Pembukaan) Sebagai (Nomor File)
Alamat Jalur File: Kami perlu menyebutkan alamat file di komputer kami yang kami coba buka.
Mode to Open: Saat membuka file, kita perlu mengetahui model seperti apa yang akan kita terapkan. Kita dapat menggunakan tiga cara di sini, "Mode Input", "Mode OutPut", dan "Mode Tambah".
Mode input untuk membaca file saja.
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 kita buka-ini di mana fungsi "FreeFile" memainkan peran penting dan mengembalikan nomor integer unik.
Bagaimana Cara Menggunakan Fungsi FreeFile di Excel VBA?
Sekarang, lihat kode di bawah ini.
Kode:
Sub FreeFile_Example1 () Dim Path As String Dim FileNumber As Integer Path = "D: Articles 2019 File 1.txt" FileNumber = FreeFile Open Path Untuk Output Sebagai FileNumber Path = "D: Articles 2019 File 2.txt "FileNumber = Jalur Terbuka FreeFile Untuk Output Sebagai Sub FileNumber Akhir
Sekarang izinkan saya memecahkan kode kode di atas untuk Anda pahami.
Pertama, saya telah mendeklarasikan dua variabel.
Redupkan Path As String, Redupkan FileNumber Sebagai Integer
Kemudian saya telah menetapkan jalur file dengan namanya.
Path = "D: Articles 2019 File 1.txt"
Kemudian untuk satu variabel lagi, saya telah menetapkan fungsi FREEFILE.
FileNumber = FreeFile
Kemudian saya menggunakan pernyataan Buka untuk membuka file teks di file yang disebutkan di atas jalur.
Buka Path Untuk Output Sebagai FileNumber
Ok, sekarang saya 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 menyimpan nomor ini ke file pembuka. Saat menjalankan ini, tidak ada file lain yang dibuka.
Sekarang saya akan terus mengeksekusi baris kode VBA berikutnya dan melihat berapa nomor filenya jika saya melompat ke baris berikutnya.
Sekarang dikatakan 2. Jadi fungsi FreeFile menyimpan bilangan bulat unik nomor 2 ke file pembuka kedua.
Fungsi FreeFile Selalu Mengembalikan 1 jika kita Menutup File Excel.
Satu hal yang perlu kita perhatikan adalah fungsi VBA "FreeFile" selalu mengembalikan satu jika kita menutup file yang dibuka sebelum membuka file excel kedua.
Misalnya, lihat kode di bawah ini.
Kode:
Sub FreeFile_Example2 () Dim Path As String Dim FileNumber As Integer Path = "D: Articles 2019 File 1.txt" FileNumber = FreeFile Open Path Untuk Output Sebagai FileNumber Tutup FileNumber Path = "D: Articles 2019 File 2 .txt "FileNumber = Jalur Terbuka FreeFile Untuk Output Sebagai FileNumber Tutup FileNumber End Sub
Sekarang saya akan sekali lagi menjalankan kode baris demi baris dengan menekan tombol F8.
Tercantum 1 seperti biasa.
Sekarang saya akan maju ke level berikutnya.
Bahkan dalam percobaan kedua dikatakan 1.
Alasannya adalah karena kita telah menggunakan pernyataan Tutup file, FreeFile mengenali file yang baru dibuka sebagai yang baru dan mengembalikan bilangan bulat sebagai 1.
