Vba kullanarak metin dosyası nasıl açılır (örnekle)

Belirli bir dosya yolundan bir metin dosyasını açmak için VBA’da OpenTextFile yöntemini kullanabilirsiniz.

Bu yöntemi pratikte kullanmanın yaygın bir yolu:

 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

Bu özel makro, bilgisayarımın masaüstünde bulunan MyTextFile.txt adlı metin dosyasını okur ve dosyanın içeriğini A1 hücresinde görüntüler.

Aşağıdaki örnek, pratikte bir metin dosyasını okumak için bu sözdiziminin nasıl kullanılacağını gösterir.

Örnek: VBA kullanarak bir metin dosyası nasıl açılır

Diyelim ki masaüstünde VBA kullanarak Excel’de okumak istediğimiz MyTextFile.txt adında bir metin dosyamız var.

İşte dosyanın içeriği:

Bu dosyayı okumak için VBA’yı kullanmadan önce, ilk olarak VB düzenleyicisinde Microsoft Scripting Runtime’ı etkinleştirmeliyiz.

Bunu yapmak için VB düzenleyicisini açın, ardından Araçlar’a ve ardından Referanslar’a tıklayın:

Görüntülenen yeni pencerede Microsoft Scripting Runtime’ı görene kadar aşağı kaydırın ve yanındaki kutuyu işaretleyin. Daha sonra Tamam’ı tıklayın.

Daha sonra bir metin dosyasını okumak için aşağıdaki makroyu oluşturabiliriz:

 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

Bu makro çalıştırıldıktan sonra MyTextFile.txt adlı metin dosyasının içeriği A1 hücresinde görüntülenecektir:

A1 hücresinin içeriğinin metin dosyasının içeriğiyle eşleştiğini unutmayın.

Not : OpenTextFile yönteminin tam belgelerini burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA Kullanarak Klasörler Nasıl Oluşturulur
VBA kullanarak klasörler nasıl silinir
VBA kullanarak dosyalar nasıl silinir