Fail Teks Excel VBA Tulis
Di VBA kita dapat membuka atau membaca atau menulis fail teks, untuk menulis fail teks bermaksud data yang kita miliki dalam lembaran excel dan kita menginginkannya ke fail teks atau fail notepad, ada dua kaedah yang harus dilakukan, satu adalah dengan menggunakan harta benda Sistem Fail VBA dan yang lain adalah dengan menggunakan kaedah Buka dan tulis di VBA.
Di kebanyakan syarikat korporat, setelah laporan diselesaikan, mereka ingin memuat naik laporan tersebut ke pangkalan data. Untuk memuat naik ke pangkalan data, mereka menggunakan format "File Teks" untuk memperbarui pangkalan data. Kami biasanya menyalin data dari excel dan tampal ke fail teks. Sebab mengapa kami bergantung pada fail teks kerana sangat senang digunakan kerana kaedahnya yang ringan dan sederhana. Dengan menggunakan pengekodan VBA, kita dapat mengotomatisasi tugas menyalin data dari file excel ke file teks. Dalam artikel ini, kami akan menunjukkan kepada anda cara menyalin atau menulis data dari fail excel ke fail teks menggunakan VBA Code.
Bagaimana Menulis Data ke Fail Teks menggunakan VBA?
Menulis data dari excel ke teks adalah pengekodan yang kompleks dan memerlukan pengetahuan yang sangat baik mengenai pengekodan VBA. Ikuti langkah di bawah untuk menulis kod VBA untuk menyalin data dari excel ke fail teks.
Sebelum saya menunjukkan cara menulis kod, izinkan saya menerangkan cara membuka fail teks dengan menggunakan pernyataan terbuka.
Sintaks Fail Teks Terbuka
Buka (Laluan Fail), Untuk (Mod), Sebagai (Nombor Fail)
Laluan Fail: Laluan fail yang cuba kita buka di komputer.
Mode: Mode adalah kawalan yang dapat kita miliki untuk membuka fail teks. Kita boleh mempunyai tiga jenis kawalan ke atas fail teks.
- Mod Input: Ini menunjukkan kawalan " Hanya baca " pada fail teks pembuka. Jika kita menggunakan "Mod Input", kita tidak dapat melakukan apa-apa dengan file tersebut. Kita hanya boleh membaca kandungan fail teks.
- Mod Output: Dengan menggunakan pilihan ini, kita dapat menulis kandungan di atasnya. Perkara yang perlu kita ingat di sini adalah semua data yang ada akan ditimpa. Oleh itu, kita perlu waspada terhadap kemungkinan kehilangan data lama.
- Mode Tambah: Mod ini sama sekali bertentangan dengan Mod OutPut. Dengan menggunakan kaedah ini, kita sebenarnya dapat menulis data baru di akhir data yang ada dalam fail.
Nombor Fail: Ini akan mengira nombor fail teks dari semua fail teks yang dibuka. Ini akan mengenali nombor fail yang dibuka dalam nilai integer dari 1 hingga 511. Menetapkan nombor fail adalah rumit dan menimbulkan banyak kekeliruan. Untuk ini, kita boleh menggunakan fungsi Fail percuma.
Fail Percuma mengembalikan nombor unik untuk fail yang dibuka. Dengan cara ini, kita dapat menetapkan nombor fail yang unik tanpa nilai pendua.
Contoh # 1
Ikuti langkah-langkah di bawah untuk menulis kod untuk membuat fail teks baru.
Andaikan anda sudah mempunyai fail teks bernama "Hello.txt" di storan komputer anda, dan kami akan menunjukkan kepada anda cara menulis data di dalamnya.
Langkah 1: Menyatakan Pembolehubah
Menyatakan pemboleh ubah untuk menahan laluan Fail sebagai Rentetan.
Kod:
Sub TeksFile_Contoh1 () Dim Dim Path Sebagai String End Sub
Langkah 2: Tentukan Nombor Fail
Untuk menentukan nombor fail yang kita rujuk, nyatakan satu lagi pemboleh ubah sebagai Integer.
Kod:
Sub TeksFile_Contoh1 () Jalur Dim sebagai String Dim FileBilangan Sebagai Integer End Sub
Langkah 3: Tetapkan Laluan Fail
Sekarang untuk pemboleh ubah Path, tetapkan path file dengan nama fail.
Kod:
Sub TextFile_Example1 () Dim Path As String Dim FileNumber As Integer Path = "D: Excel Files VBA File Hello.txt" 'Tukar jalan mengikut keperluan anda End Sub
Langkah 4: Tetapkan Fungsi Fail Percuma
Sekarang untuk pembolehubah Nombor Fail, tetapkan fungsi "Fail Percuma" untuk menyimpan nombor fail yang unik.
Kod:
Sub TextFile_Example1 () Dim Path As String Dim FileNumber As Integer Path = "D: Excel Files VBA File Hello.txt" 'Tukar jalan mengikut keperluan anda FileNumber = FreeFile End Sub
Langkah 5: Buka Fail Teks
Sekarang kita perlu membuka fail teks untuk bekerja dengannya. Seperti yang telah saya jelaskan, kita perlu menggunakan pernyataan TERBUKA untuk membuka fail teks.
Langkah 6: Gunakan Kaedah Cetak / Tulis
Setelah Fail dibuka, kita perlu menulis sesuatu di dalamnya. Untuk menulis dalam fail teks kita perlu menggunakan kaedah "Tulis" atau "Cetak".
Kod:
Sub TextFile_Example1() Dim Path As String Dim FileNumber As Integer Path = "D:Excel FilesVBA FileHello.txt" 'Change the path as per your requirement FileNumber = FreeFile Open Path For Output As FileNumber Print #FileNumber, "Welcome" Print #FileNumber, "to" Print #FileNumber, "VBA" End Sub
First, we need to mention the file number (here we have assigned the file through the “filenumber” variable), then we need to add the content we want to add to a text file.
Step 7: Save and Close Text File
Once the content is written in a text file, we need to save and close the text file.
Code:
Sub TextFile_Example1() Dim Path As String Dim FileNumber As Integer Path = "D:Excel FilesVBA FileHello.txt" 'Change the path as per your requirement FileNumber = FreeFile Open Path For Output As FileNumber Print #FileNumber, "Welcome" Print #FileNumber, "to" Print #FileNumber, "VBA" Close FileNumber End Sub
Now, run the code this manually or through shortcut excel key F5. It will write the mentioned content in the mentioned text file.
Example #2
Now we will see how to write the data of excel sheet to a text file.
For this example, I have created simple data in excel like below.
Step 1: With the continuation of the old example, define two more variables as Integer to find the last row and last column.
Code:
Sub TextFile_Example2() Dim Path As String Dim FileNumber As Integer Dim LR As Integer Dim LC As Integer End Sub
Step 2: Find the last used row and column in the worksheet.
Step 3: Now assign the file path and file number.
Step 4: Now, use the OPEN statement to open the text file.
Step 5: We need to loop through rows and columns, so declare two more variables as Integer.
Step 6: Now open Loop to loop through the row (For next loop in VBA)
Step 7: Now, to loop through columns, open one more loop inside the existing loop.
Step 8: We need to write the same line of data until it reaches the last column. So for this, apply the IF statement in VBA.
Step 9: Now, save and close the text file.
This code will write the details to a text file, but to open the text file after written, we need to use the below code.
Code:
Sub TextFile_Example2() Dim Path As String Dim FileNumber As Integer Dim LR As Integer Dim LC As Integer Dim k As Integer Dim i As Integer LR = Worksheets("Text").Cells(Rows.Count, 1).End(xlUp).Row LC = Worksheets("Text").Cells(1, Columns.Count).End(xlToLeft).Column Path = "D:Excel FilesVBA FileHello.txt" FileNumber = FreeFile Open Path For Output As FileNumber For k = 1 To LR For i = 1 To LC If i LC Then Print #FileNumber, Cells(i, k), Else Print #FileNumber, Cells(i, k) End If Next i Next k Close FileNumber Shell "notepad.exe " & Path, vbNormalFocus End Sub
Jadi, jalankan kod menggunakan kekunci F5 atau secara manual. Kemudian, ia akan menyalin data di bawah.
