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 untuk nomor file yang tersedia berikutnya.
Kami biasanya membuka file dari komputer kami untuk menulis sesuatu atau hanya-baca, sementara merujuk ke file-file itu kami harus merujuk dengan nomor integer 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 pernyataan OPEN.
BUKA [Alamat Jalur File] Untuk [Mode Dibuka] 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 mode 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 bisa merujuk ke file yang kita buka. Di sinilah fungsi "FreeFile" memainkan peran penting dan mengembalikan nomor integer unik.
Bagaimana Cara Menggunakan Fungsi FreeFile di Excel VBA?
Anda dapat mendownload Template Excel FreeFile VBA ini di sini - Template Excel FreeFile VBASekarang, 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 menyatakan 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 jalur file yang disebutkan di atas.
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 "FreeFile" VBA selalu mengembalikan 1 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.
