Sütünları TXT Formatına aktarma

[leonbey]

Merhaba,

Hazırladığım bir tabloda 2 sütündaki bilgileri TXT dosyasına aktarma yapmak istiyorum. TXT aktarırken ama tablolar arasında boşluk olmasın..

Aşadağıdaki Tabloda C ve D sütündaki tüm rakamları ( Hesap No ve Tutar isimleri olmayacak ) TXT formatında aktarmamız atarmalıyız. Aktarırken boşluk oluşmayacak..

http://img387.imageshack.us/img387/4703/txtko3.jpg

http://img387.imageshack.us/img387/8003/txt2eq9.jpg

İyi Çalışmalar

 

[hamitcan]

Sub AKTAR()
    Open "C:\deneme.TXT" For Output As #1
    For i = 2 To [c65536].End(3).Row
        Print #1, Cells(i, "c") & Cells(i, "d")
    Next i
    Close #1
End Sub

 

[usta07]

E sutununa yazıp denermisin =METNEÇEVİR(C3&D3;0)

 

[leonbey]

Sub AKTAR()
    Open "C:\deneme.TXT" For Output As #1
    For i = 2 To [c65536].End(3).Row
        Print #1, Cells(i, "c") & Cells(i, "d")
    Next i
    Close #1
End Sub

Sağolun çalışıyor ama son sütundaki tutarda rakamların önünde 0 değerlerini almıyor bankaya göndericeğimiz için tutar kısmının formatı 0000000489,86 şeklinde istiyorlar öndeki sıfırları nasıl txt yazdırabiliriz..

 

[Orion1]

Aşağıdaki gibi denermisiniz?

Print #1, Format(Cells(i, "C").Value, "0000000000.00") & Format(Cells(i, "D").Value, "0000000000.00")

 

[hamitcan]

Dosya ismi = Günün tarihi

İlgili satırı aşağıdaki ile değiştirin.

Open "C:\" & Format(Date, "dd.mm.yy") & ".txt" For Output As #1