Txt dosyasından belli bir veriyi excele aktarmak

[JunKa]

Merhabalar,

Elimde 10000e yakın txt dosyası var ve bunların belli kısımlarını otomatik olarak excele göndermek istiyorum. Aşağıda aktarmak istediğim formatı bulabilirsiniz.

Dosya adı Değer
A35-7000.txt 20.15
A35-7001.txt 20.02
... ...

2 ad örnek txt dosyası ekliyorum.

Yardımcı olabilirseniz sevinirim,
teşekkürler.

 

[Haluk]

Aşağıdaki kodun yazıldığı Excel dosyasını söz konusu "text" dosyalarının olduğu klasöre yerleştirin, kodu çalıştırın.

Sub Test()
    'Haluk - 29/07/2019
    'sa4truss@gmail.com
    '
    MyPath = ThisWorkbook.Path & "\"
    MyFile = Dir(MyPath & "*.txt", vbDirectory)
    
    Range("A2:C" & Rows.Count) = ""
    
    lineNo = 1
    
    Do While MyFile <> ""
        lineNo = lineNo + 1
        Cells(lineNo, 1) = MyFile
        
        Open MyPath & MyFile For Input As #1
            strFile = Input(LOF(1), #1)
        Close #1
    
        myArr = Split(strFile, vbCrLf)
        myArr2 = Split(myArr(1), vbTab)
        
        Cells(lineNo, 2) = myArr2(1)
        
        MyFile = Dir
    Loop
End Sub

.