excel dosyasını txt te makro ile çevirme sorunu

[ahmet uguz]

işletme hesap özeti ve fatura bilğileri dosyamı makro ile txt formatına çevirebilmem için yardımlarınızı bekliyorum.hepinize şimdiden teşekkür ederim.

 

[tahsinanarat]

Evvelce bu siteden aldığım bir makro örneği vardı, deneyiniz.
Not. txr dosyasının yolunu ve ismini istediğiniz gibi değiştirebilirsiniz

Sub txtaktar()
MsgBox "Dosya Hazırlanıyor"
Dim LastRowA As Integer
Dim veri1 As String
Dim veri2 As String
Dim veri3 As String
Dim veri4 As String
Dim veri5 As String
Dim veri6 As String
Dim veri7 As String
Dim veri8 As String
Dim veri9 As String
Dim veri10 As String
Dim veri11 As String
Dim veri12 As String
Dim veri13 As String
Dim veri14 As String
Dim i As Integer
Open "C:\Pirr.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
veri3 = Cells(i, 3).Text
veri4 = Cells(i, 4).Text
veri5 = Cells(i, 5).Text
veri6 = Cells(i, 6).Text
veri7 = Cells(i, 7).Text
veri8 = Cells(i, 8).Text
veri9 = Cells(i, 9).Text
veri10 = Cells(i, 10).Text
veri11 = Cells(i, 11).Text
veri12 = Cells(i, 12).Text
veri13 = Cells(i, 13).Text
veri14 = Cells(i, 14).Text
Print #1, veri1; " "; veri2; " "; veri3; " "; veri4; " "; veri5; " "; veri6; " "; veri7; " "; veri8; " "; veri9; " "; veri10; " "; veri11; " "; veri12; " "; veri13; " "; veri14
Next i
Close #1
Sheets("Sayfa1").Select
Range("A1").Select
End Sub

 

[ahmet uguz]

verdiğin yanıt için teşekkür ederim. txt dosyasına çevirdim tamam. bdp programına aktaramadım.maliyenin bdp programına aşagıda resim örneğinde olacak şekilde yapmam lazım.

 

[hamitcan]

";" yerine "vbTab" kullanarak dener misiniz ?

 

[ahmet uguz]

sayın hamitcan verdiğin yanıt iin teşekkür ederim.kusuruma bakmaksan ";" yerine "vbTab" kullanarak dener misiniz ; derken ";" yerine "vbtab" mı yazıcam.

 

[hamitcan]

veri1 & vbTab & veri2 & vbTab... şeklinde yapın.

 

[ahmet uguz]

sayın hamitcan dediğiniz gibi yaptım hesap özetinde başarılı oldum.fakat fatura bilğileri dosyamda yapamadım.

 

[hamitcan]

Ne tür bir hata aldınız ?

 

[ahmet uguz]

sayın hamitcan işletme hesabı dosyası tamam.fatura bilğileri dosyamda sizin yaptığınız makro yu kopyaladım.tam olarak txt formatına çeviremedi.bende
makroda bazı eklentiler yaptım kendi kafama göre.tabiki doğal olarak hata verdi.yardımlarınızı rica ediyorum.

 

[ahmet uguz]

error hatası worde kopyaladım

 

[hamitcan]

Cevap, gönderdiğiniz hatanın içinde saklı.Prosedürün sonuna, "End Sub" eklemeyi unutmuşsunuz.

 

[ahmet uguz]

sayın hamitcan uyarınız üzerine düzeltme yaptım.çalıştı. yardımlarınız için teşekkür ederim.

 

[teodem]

Evvelce bu siteden aldığım bir makro örneği vardı, deneyiniz.
Not. txr dosyasının yolunu ve ismini istediğiniz gibi değiştirebilirsiniz

Sub txtaktar()
MsgBox "Dosya Hazırlanıyor"
Dim LastRowA As Integer
Dim veri1 As String
Dim veri2 As String
Dim veri3 As String
Dim veri4 As String
Dim veri5 As String
Dim veri6 As String
Dim veri7 As String
Dim veri8 As String
Dim veri9 As String
Dim veri10 As String
Dim veri11 As String
Dim veri12 As String
Dim veri13 As String
Dim veri14 As String
Dim i As Integer
Open "C:\Pirr.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
veri3 = Cells(i, 3).Text
veri4 = Cells(i, 4).Text
veri5 = Cells(i, 5).Text
veri6 = Cells(i, 6).Text
veri7 = Cells(i, 7).Text
veri8 = Cells(i, 8).Text
veri9 = Cells(i, 9).Text
veri10 = Cells(i, 10).Text
veri11 = Cells(i, 11).Text
veri12 = Cells(i, 12).Text
veri13 = Cells(i, 13).Text
veri14 = Cells(i, 14).Text
Print #1, veri1; " "; veri2; " "; veri3; " "; veri4; " "; veri5; " "; veri6; " "; veri7; " "; veri8; " "; veri9; " "; veri10; " "; veri11; " "; veri12; " "; veri13; " "; veri14
Next i
Close #1
Sheets("Sayfa1").Select
Range("A1").Select
End Sub

Bu yazılı makroda print bölümünde verileri alt alta yazdırmak için ne kullanmalıyız ? "" koyduğumuzda aralarında boşluk oluyor bir alt satıra nasıl göndericez ?