text dosyası içinden Total: den sonraki değeri almak

[k0081]

Merhaba arkadaşlar;
Ekli dosyayı görüntüle MALZEME LISTESI.rar

Bu text dosyasından Total : den sonraki sayıyı A7 hücresine nasıl alabilirim..? ( 6310.0 )


yardımcı arkadaşlara şimdiden teşekkürler..

 

[Murat OSMA]

Şu kodları kullanabilirsiniz;

DefObj O
DefLng A
Option Base 1
Sub txtdeneme()
On Local Error Resume Next
Dim veri As Variant, yol As String
Rem  14.01.2010 - Tarkan VURAL
Set objcon = CreateObject("adodb.connection")
    yol = ThisWorkbook.Path & "\": a = 1
objcon.Open "provider=microsoft.jet.oledb.4.0;data source=" & yol & _
";extended properties=""text;hdr=no;fmt=delimited"""
Set objrs = CreateObject("adodb.recordset")
    objrs.Open "select * from [MALZEME LISTESI.txt]", objcon, 1, 3
        Do While Not objrs.EOF
            a = a + 1
            veri = Split(objrs.Fields(0).Value, "Total:    ")
                For a2 = 1 To UBound(veri)
                    Select Case VBA.Right(veri(a2), 1)
                        Case Is = 1, 2, 3, 4, 5, 6, 7, 8, 9
                            [a7] = CDbl(veri(a2))
                        Case Else
                            [a7] = CStr(veri(a2))
                    End Select
                Next a2
            objrs.movenext
                Erase veri
        Loop
    objrs.Close
Columns.AutoFit
        MsgBox "Alım işlemi tamamlandı... ", vbInformation, "Www."
            yol = vbNullString: a = Empty: a2 = Empty
                Set objrs = Nothing: Set objcon = Nothing
End Sub

 

[k0081]

Hocam teşekkürler.. fakat bu kodları çalıştıramadım.. bir butona eklediğimde excel kilitlenip kalıyor...

 

[Murat OSMA]

Dosyaları ekliyorum, deneyiniz...
Dosyanın uzantısını .txt olarak değiştirin...

 

[k0081]

Dosyaları ekliyorum, deneyiniz...
Dosyanın uzantısını .txt olarak değiştirin...

hocam teşekkürler.. tamamdır.. elinize sağlık..