Txt oluşturma

[yalovam77]

selamlar arkadaşlar özür dilerim uğraşmama rağmen excelden txt dosyası oluşturmayı yapamadım. siteyi inceledim ama ekte dosyada gerekli açıklamayaı yaptım açıklamalar doğrultusunda sayfaya bir buton yerleştirip tamam dediğimizde masa üstüne ekteki formata txt dosyası oluşturmaya yardımcı oursanız sevinirim. teşekkür ederim

 

[Necdet]

Merhaba,

Kırmızı olan yeri kendinize göre düzeltiniz.

Sub Metin_Dosyasi_Hazirla()
Dim DosyaAdi    As String
Dim Veri        As String
Dim SatNo       As Long
Dim Bos         As Integer
[B][COLOR=blue]Dim Sayi        As String[/COLOR][/B]
DosyaAdi = "C:\Documents and Settings\[B][COLOR=red]Necdet[/COLOR][/B]\Desktop\Metin.txt"
Open DosyaAdi For Output As #1

For SatNo = 2 To [A65536].End(3).Row
    Bos = 29 - Len(Cells(SatNo, "B"))
    [COLOR=blue][B]Sayi = Replace(Format(Cells(SatNo, "D"), "00000000000.00"), ",", "")
[/B][/COLOR]    Veri = Format(Cells(SatNo, "A"), "000000000") & " " & _
           Cells(SatNo, "B") & Application.WorksheetFunction.Rept(" ", Bos) & _
           Cells(SatNo, "C") & _
           [COLOR=blue][B]Sayi
[/B][/COLOR]    Print #1, Veri
Next SatNo
Close #1
MsgBox "Metin.txt Dosyası Oluşturulmuştur"
End Sub

 

[yalovam77]

txt oluşturma

selamlar üsdadım
verdiğiniz kodu denedim ama olmadı nedendir acaba. zahmet olmazsa açıklama dosyasında uygulayarak eklemeniz mümkünmü teşekkürler

 

[Mehmet Şahin]

Merhaba,
Necdet üstadın kodları sorunsuzca çalışıyor. Ancak siz örneğinizde kuruşları atmışsınız. Kodlar da bu şekilde yazılmış,
iyi çalışmalar.

 

[Necdet]

Merhaba,
Necdet üstadın kodları sorunsuzca çalışıyor. Ancak siz örneğinizde kuruşları atmışsınız. Kodlar da bu şekilde yazılmış,
iyi çalışmalar.

Merhaba,

Soru çok açık olmadığı ve verilen örnekte de kuruş olmadığı için o şekilde yaptım.

 

[Necdet]

selamlar üsdadım
verdiğiniz kodu denedim ama olmadı nedendir acaba. zahmet olmazsa açıklama dosyasında uygulayarak eklemeniz mümkünmü teşekkürler

İlk mesajıma dosyayı ekledim. Siz kendi masa üstü yolunu yazınız, kırmızı olan satırda.

 

[Mehmet Şahin]

Merhaba,

Soru çok açık olmadığı ve verilen örnek te kuruş olmadığı için o şekilde yaptım.

Merhaba,
Üstad çok haklısınız, ben de zaten arkadaşımızı uyarmak için yazdım, saygılarımla.

 

[yalovam77]

txt oluşturma

sevgili üsdatlarım ilginize teşekkür ederim sanırım ben dosya yolunda yanlışlık yaptım şu anda çalışıyor ancak kuruşlar sıfırlanmadı o listeyi örnek olsun diye aldığım listede kuruş yoktu o yüzden kendi yaptığım örneğe bakarsanız kuruş var yani kuruş olanda kuruş olacak kuruş olmayanda tutarın sonunda iki sıfır olacak şekilde aktarabilirsek çok iyi oluş zahmet olacak teşekkür ederim.

 

[Necdet]

Merhaba,

2 numaralı mesajımda kod ve dosyayı yeniledim. İnceleyiniz.

 

[yalovam77]

txt oluşturma

selamlar
çok teşekkür ederim üsdadım. tam istediğim gibi çok saolun

 

[bresyu]

Buradaki örnekten kendime göre yeni bir dosya oluşturdum fakat Personel adının en sonda çıkmasını sağlayamadım. Yardımcı olurmusunuz?

 

[halit3]

Buradaki örnekten kendime göre yeni bir dosya oluşturdum fakat Personel adının en sonda çıkmasını sağlayamadım. Yardımcı olurmusunuz?

Option Explicit
Sub Metin_Dosyasi_Hazirla()
Dim DosyaAdi    As String
Dim Veri        As String
Dim SatNo       As Long
Dim Bos         As Integer
Dim Sayi        As String
DosyaAdi = "C:\Maas\Maas.txt"
Open DosyaAdi For Output As #1

For SatNo = 2 To [A65536].End(3).Row
Bos = 26 - Len(Cells(SatNo, "B"))
Sayi = Replace(Format(Cells(SatNo, "E"), "000000000000000000.00"), ",", ".")
Veri = Format(Cells(SatNo, "A"), "YYYYMMDD") & "" & _
Cells(SatNo, "B") & Application.WorksheetFunction.Rept("", Bos) & _
Cells(SatNo, "C") & _
Sayi & _
Cells(SatNo, "D")

Print #1, Veri
Next SatNo
Close #1
MsgBox "Metin.txt Dosyası Oluşturulmuştur"
End Sub

 

[bresyu]

Teşekkürler.