text den bilgi alma

[a_self_lion]

Selam arkadaşlar ekteki txt dosyasındaki bilgileri dış veri al veri al kullanmadan dosyalama veya komutları veya veritabanı komutlarını kullanarak nasıl excel sayfama alabilirim.

Not: Dışveri al kullanma ma sebebim Paylaştırılmış bir çalşıma sayfasında bu işlemi uygulayacağım için macro çalışmadı tahminim veritabanı komutlarını kullanarak yaparsak çalışacak.
çünkü Dış veri al çalışma kitabımı paşlaştırınca aktif olmuyor. paylaştırmayı kapatınca aktif oluyor. Diğer macrolarım çalışıyor.

acelemden dosyayı eklemeyi unutmuşum )

 

[veyselemre]

Örneği inceleyin.

 

[a_self_lion]

Çok Çok teşekkür ederim hemen uygulamama uyguluyorum.
Allah razı olsun.

 

[a_self_lion]

sayın veyselemre son sutunu aktarmadı birde miktar olan 3 üncü sutun var orda 12.000 şeklinde aktarması ve son sutun olan 5 inci sutunda parasal değeri onlarıda 123.00 formatı gibi aktarması mümkünmü ilginiz için çok teşekkür ederim.

 

[a_self_lion]

birde aktif olan hücreden başlatma şansımız varmı?

 

[a_self_lion]

sormuş olduğum bütün sorunlarımı hallettim ama miktar bölümünde yani 3 üncü sutunda 12.000 noktadan sonraki sıfırları getiremedim. Bunu nasıl halledebilirim.

 

[veyselemre]

Sub DosyadanAl()
    fname = "C:\Documents and Settings\Administrator\Desktop\0070130.txt"
    a = [c65536].End(3).Row
    Dim txt(1 To 1, 1 To 5)
    Open fname For Input As #1
    Do While Not EOF(1)
        Line Input #1, textline
        a = a + 1
        txt(1, 1) = CONVERT(Mid(textline, 1, 30))
        txt(1, 2) = Mid(textline, 32, 8)
        txt(1, 3) = Mid(textline, 40, 11)
        txt(1, 4) = CONVERT(Mid(textline, 52, 30))
        txt(1, 5) = Mid(textline, 82)
        Cells(a, 1).Resize(, 5) = txt()
    Loop
    Close #1
    Range("c1:c" & [c65536].End(3).Row).NumberFormat = "0.000"
    Range("e1:e" & [e65536].End(3).Row).NumberFormat = "#,##0.00"
End Sub