Cara membuka file teks menggunakan vba (dengan contoh)
Anda dapat menggunakan metode OpenTextFile di VBA untuk membuka file teks dari jalur file tertentu.
Berikut adalah cara umum untuk menggunakan metode ini dalam praktik:
SubReadTextFile ()
Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString
End Sub
Makro khusus ini membaca file teks bernama MyTextFile.txt yang terletak di desktop komputer saya dan menampilkan konten file di sel A1 .
Contoh berikut menunjukkan cara menggunakan sintaks ini untuk membaca file teks dalam praktiknya.
Contoh: Cara membuka file teks menggunakan VBA
Katakanlah kita memiliki file teks bernama MyTextFile.txt yang terletak di desktop yang ingin kita baca di Excel menggunakan VBA.
Berikut isi filenya:
Sebelum menggunakan VBA untuk membaca file ini, kita harus mengaktifkan Microsoft Scripting Runtime terlebih dahulu di editor VB.
Untuk melakukannya, buka editor VB, lalu klik Alat , lalu klik Referensi :
Di jendela baru yang muncul, gulir ke bawah hingga Anda melihat Microsoft Scripting Runtime dan centang kotak di sebelahnya. Lalu klik oke .
Kemudian kita bisa membuat makro berikut untuk membaca file teks:
SubReadTextFile ()
Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString
End Sub
Setelah makro ini dijalankan, konten file teks bernama MyTextFile.txt akan ditampilkan di sel A1 :
Perhatikan bahwa isi sel A1 cocok dengan isi file teks.
Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode OpenTextFile di sini .
Sumber daya tambahan
Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:
Cara Membuat Folder Menggunakan VBA
Cara menghapus folder menggunakan VBA
Cara menghapus file menggunakan VBA