Verileri belirli bir formatta txt olarak kaydetmek

[unur]

Arkadaşlar Excelde yaptığımız bir bordoyu sgk nın kesenek bilgi sistemine yükleyebilmek için Ek'te gönderdiğim dosyadaki bilgilerin herbirinin arasına ";" (noktalı virgül) koyularak bir txt formatı oluşturarak belirtilen bir dosyanın içine kaydetmek istiyorum. Rakamlar arasındaki virgülünde "." olması gerekiyor.

Bu konuda yardımcı olursanız sevinirim. Çok Teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub txt_yap()
Dim deg As String, i As Long, k As Integer
sat = Cells(Rows.Count, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
dosya = Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".txt"
Open (ThisWorkbook.Path & "\" & dosya) For Output As #1
For i = 2 To sat
    For k = 1 To 21
        deg = deg & ";" & Cells(i, k).Value
    Next
    If deg <> "" Then
        deg = Right(deg, Len(deg) - 1)
        deg = Replace(deg, ",", ".")
        Write #1, deg
    End If
    deg = ""
Next
Close #1
MsgBox "txt dosyası hazırlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[unur]

Teşekkürler Orion
Txt dosyasında verilerin başında ve sonundaki çift tırnağın kaldırılması için ne gibi bir değişiklik yapabiliriz makroda?

 

[Orion1]

Teşekkürler Orion
Txt dosyasında verilerin başında ve sonundaki çift tırnağın kaldırılması için ne gibi bir değişiklik yapabiliriz makroda?

Aşağıdaki gördüğünüz gibi ben ona kod yazdım.
Sadece başında ; işareti oluyordu onu kaldırıyor.
Diğerleri hücrede boş sütun varsa onun için oluyor.
Hani her sütunun ayıracı olarak ; bu işareti istediniz ya işte ondan oluyor.
Yani boisa oluyor.Ama ben boş hücreleri alınmasını istemiyom derseniz ona göre düzenlerim.
Ayrıca bana verdiğiniz örnekte dediğiniz gibi bir şey olmuyor,başta ve sonda.

 deg = Right(deg, Len(deg) - 1)

 

[Orion1]

Aşağıdaki write yazan yere Print yazın

[B][COLOR="Red"]Write[/COLOR][/B] #1, deg

 

[unur]

Aşağıdaki gördüğünüz gibi ben ona kod yazdım.
Ayrıca bana verdiğiniz örnekte dediğiniz gibi bir şey olmuyor,başta ve sonda.

 deg = Right(deg, Len(deg) - 1)

Sayın Orion;

Yanlış bir ifade kullandıysam özür dilerim. Makro yada kod ikisinin arasındaki farkı bilmediğim için makro olarak yazdım.

Tam ben sorunu anlatmaya çalışırken cevabınız geldi Print yazarak sorunum çözüldü

Elinize sağlık,Çok Teeşekkürler.

 

[Orion1]

Sayın Orion;

Yanlış bir ifade kullandıysam özür dilerim. Makro yada kod ikisinin arasındaki farkı bilmediğim için makro olarak yazdım.

Tam ben sorunu anlatmaya çalışırken cevabınız geldi Print yazarak sorunum çözüldü

Elinize sağlık,Çok Teeşekkürler.

Rica ederim . iyi çalışmalar.

 

[ozkovlu]

Merhabalar Orion1;
Benimde benzer bir örneğim olacak. http://s9.dosya.tc/server2/h0629c/Emekli_Kesenekleri.zip.html linkdeki doyayı txt formatına çevirmek istiyorum.
Birde ücret olan kısımlarda ondalıklı ayraç olarak nokta(.) kullanmak icab ediyor. Excelde virgül(,) koysak txt Formatına aktarırken noktaya çevirebilirmiyiz.
Saygılarımla.

 

[Asri]

Merhabalar Orion1;
Benimde benzer bir örneğim olacak. http://s9.dosya.tc/server2/h0629c/Emekli_Kesenekleri.zip.html linkdeki doyayı txt formatına çevirmek istiyorum.
Birde ücret olan kısımlarda ondalıklı ayraç olarak nokta(.) kullanmak icab ediyor. Excelde virgül(,) koysak txt Formatına aktarırken noktaya çevirebilirmiyiz.
Saygılarımla.

Aşağıdaki şekilde deneyiniz.

; lü kolonlar silindi. TC Kimlik noları dolu olmak zorunda. İlk boş bulduğunda programdan çıkar. Devamını kaydetmez.

Sizin dosyanızdaki referans txt dosyasında bazı 0.00 ların başında bir boşluk mevcut.
Benim hazırladığımda tüm 0.00 ların başında boşluk yok. Tek fark budur.


http://dosya.co/fbfc6pwxhoac/Emekli_Kesenekleri.xlsm.html

'Option Explicit

Sub txt_yap()
Dim deg As String, i As Long, k As Integer
Sheets("2015 EMEKLİ KES.").Select
sat = Cells(Rows.Count, "A").End(xlUp).Row
If sat <= 2 Then Exit Sub
dosya = Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".txt"
Open (ThisWorkbook.Path & "\" & dosya) For Output As #1

For i = 3 To sat
    If Cells(i, 1).Value = "" Then Exit For
    deg = ""
    For k = 1 To 21
        veri = Cells(i, k).Text
        If k > 13 Then veri = Replace(veri, ",", ".")
        If k = 1 Then deg = deg & Trim(veri)
        If k <> 1 Then deg = deg & vbTab & ";" & vbTab & Trim(veri)
    Next k
    Print #1, deg
Next
Close #1
MsgBox "txt dosyası hazırlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation
End Sub

 

[Cihan SK]

yüklerken tutarlarda mesela 450,26 rakamı 450.26 olarak noktaya çevirilince kabul ediyor mu konu ilgimi çekti.

 

[Asri]

yüklerken tutarlarda mesela 450,26 rakamı 450.26 olarak noktaya çevirilince kabul ediyor mu konu ilgimi çekti.

Excel deki dosyada 450,26 txt dosya oluştururken 450.26 olarak kaydediyor.

Yüklerken değil, text dosya oluştururken çevriliyor.

 

[Cihan SK]

Asri bey .txt oluşturulduktan sonra son haline gelen dosyada ilgili yere yükleme yapılırken tutar kısımları doğru mu atıyor. Bunu merak ettim. bu tarz konular e-beyanname sitelerine yükleme yaparken de çıkıyor. biraz uğraştırıyor.

 

[Asri]

Asri bey .txt oluşturulduktan sonra son haline gelen dosyada ilgili yere yükleme yapılırken tutar kısımları doğru mu atıyor. Bunu merak ettim. bu tarz konular e-beyanname sitelerine yükleme yaparken de çıkıyor. biraz uğraştırıyor.

Konu hakkında bilgim yok. Soruyu sorun kişi cevaplayabilir.