Fail Percuma Excel VBA
FreeFile adalah fungsi dalam VBA yang hanya tersedia sebagai fungsi VBA, bukan sebagai fungsi lembaran kerja. Fungsi VBA FreeFile mengembalikan nombor integer unik ke fail, yang dibuka dan mengekalkan nombor fail seterusnya yang tersedia.
Kita biasanya membuka fail dari komputer kita untuk menulis sesuatu atau hanya untuk membaca, sambil merujuk kepada fail tersebut, kita mesti merujuk dengan nombor bulat yang unik. Fungsi VBA FreeFile memungkinkan kita menentukan nombor bilangan bulat yang unik untuk ditugaskan untuk membuka fail untuk membaca, menulis, dan membuka fail menggunakan VBA.
Sekarang lihat sintaks pernyataan TERBUKA.
BUKA (Alamat Laluan Fail) Untuk (Mod untuk Dibuka) Sebagai (Nombor Fail)
Alamat Laluan Fail: Kita perlu menyebutkan alamat fail di komputer kita yang ingin kita buka.
Mod untuk Dibuka: Semasa membuka fail, kita perlu mengetahui jenis model yang akan kita terapkan. Kita dapat menggunakan tiga cara di sini, "Mod Input," "Mode OutPut," dan "Mode Tambah."
Mod input untuk membaca fail sahaja.
Mod output untuk menghapuskan data yang ada dan memasukkan data baru.
Tambahkan mod untuk menambahkan data baru sambil mengekalkan data yang ada.
Nombor Fail: Dengan argumen ini, kita dapat merujuk pada file yang kita buka-di mana fungsi "FreeFile" memainkan peranan penting dan mengembalikan nombor bulat yang unik.
Bagaimana Menggunakan Fungsi FreeFile di Excel VBA?
Sekarang, lihat kod di bawah.
Kod:
Sub FreeFile_Example1 () Jalur Dim sebagai String Dim FileNumber Sebagai Integer Path = "D: Artikel 2019 File 1.txt" FileNumber = FreeFile Open Path Untuk Output Sebagai FileNumber Path = "D: Artikel 2019 File 2.txt "FileNumber = Laluan Terbuka FreeFile Untuk Keluaran Sebagai Sub Akhir FileNumber
Sekarang izinkan saya menyahkod kod di atas untuk anda fahami.
Pertama, saya telah menyatakan dua pemboleh ubah.
Dim Path Sebagai String, Dim FileNumber Sebagai Integer
Kemudian saya telah menetapkan jalan fail dengan namanya.
Laluan = "D: Artikel 2019 Fail 1.txt"
Kemudian untuk satu lagi pemboleh ubah, saya telah menetapkan fungsi FREEFILE.
Nombor Fail = Fail Percuma
Kemudian saya telah menggunakan pernyataan Buka untuk membuka fail teks dalam fail yang disebut di atas jalan.
Buka Laluan Untuk Keluaran Sebagai Nombor Fail
Ok, sekarang saya akan menjalankan kod baris demi baris dengan menekan kekunci F8 dan melihat nilai pemboleh ubah "FileNumber."
Ini menunjukkan nombor fail sebagai 1. Jadi, fungsi fail percuma secara automatik menyimpan nombor ini ke fail pembuka. Semasa menjalankan ini, tidak ada fail lain yang dibuka.
Sekarang saya akan terus menjalankan baris seterusnya kod VBA dan melihat apakah nombor failnya jika saya melompat ke baris seterusnya.
Sekarang ia mengatakan 2. Jadi fungsi FreeFile menyimpan nombor bulat unik 2 ke fail pembukaan kedua.
Fungsi FreeFile Sentiasa Mengembalikan 1 jika kita Menutup Fail Excel.
Satu perkara yang perlu kita perhatikan adalah fungsi "FreeFile" VBA selalu mengembalikannya jika kita menutup fail yang dibuka sebelum membuka fail excel kedua.
Contohnya, lihat kod di bawah.
Kod:
Sub FreeFile_Example2 () Dim Path As String Dim FileNumber As Integer Path = "D: Artikel 2019 File 1.txt" FileNumber = FreeFile Open Path Untuk Output Sebagai FileNumber Tutup FileNumber Path = "D: Artikel 2019 File 2 .txt "FileNumber = Laluan Buka FreeFile Untuk Output Sebagai FileNumber Tutup FileNumber End Sub
Sekarang saya akan sekali lagi melaksanakan kod baris demi baris dengan menekan kekunci F8.
Ia mengatakan 1 seperti biasa.
Sekarang saya akan maju ke tahap seterusnya.
Walaupun dalam percubaan kedua ia mengatakan 1.
Sebabnya adalah kerana kita telah menggunakan pernyataan Tutup fail, FreeFile mengenali fail yang baru dibuka sebagai yang baru dan mengembalikan nombor bulat sebagai 1.
