Listeden txt dosya oluşturma

[bluefalcon]

Arkadaşlar merhaba,

Elimde bir liste var ve bu listedeki veriler şu şekilde gidiyor;

Kart No Tarih Saat
40540 20071109 73712
40815 20071109 74016
40577 20071109 74019
40767 20071109 74153
40635 20071109 74154

İlk sütundaki kart numara sabit, Tarih "gun.ay.yıl" şeklinde, saat ise ilk satırı örnekleyecek olursak 07:37:12 şeklinde bir text dosyaya aralarında "," olarak atması gerekiyor.Şöyle ki;

40540,09.11.2007,07:37:12

Yardımcı olursanız binlerce bu şekildeki datayı tek tek el ile girmekten kurtulacağım.Yardımlarınız için şimdiden teşekkürler...

 

[bluefalcon]

Arkadaşlar yardım ediniz el aman...

 

[bluefalcon]

kardeşler yokmu bu işten anlayan yahu?

 

[veyselemre]

Sub formatlaTxteYaz()
Dim a(1 To 3)
    Open "c:\test.txt" For Output As #1
    For x = 1 To [a65536].End(3).Row
        a(1) = Cells(x, 1)
        tar = Cells(x, 2)
        a(2) = Format(DateSerial(Left(tar, 4), Mid(tar, 5, 2), Right(tar, 2)), "dd.mm.yyyy")
        saat = Cells(x, 3)
        saat = String(6 - Len(saat), "0") & saat
        a(3) = Format(TimeSerial(Left(saat, 2), Mid(saat, 3, 2), Right(saat, 2)), "hh:mm:ss")
        yaz = Join(a, ",")
        Print #1, yaz
    Next x
    Close #1
End Sub

 

[bluefalcon]

veyselemre çok teşekkürler ilgilendiğin için ancak 8.satıra geldiğinde Runtime Error 13 Type mismatch diyor.Dosyanın içine yazmıyor yani.

 

[veyselemre]

Örnek dosya ekleyin.

 

[bluefalcon]

buyrun...

Örnek Dosya ektedir.

 

[bluefalcon]

Text dosyaya yazdırma

Başka yardımcı olabilecek arkadaşım var mı acaba? Yokmudur acep?

 

[veyselemre]

For x = 2 To [a65536].End(3).Row

 

[bluefalcon]

çok teşekkürler.