Excel Dosyasini Txt Olarak Kaydederken HÜcre GenİŞlİklerİnİn Ayni Olmasi

[ckos]

Mİkro Halley Programi Kullaniyorum. YakŞalik 1000 Ad Stok GİrİŞİ Yapmam Gerekİyor. Exel De Kayitli Olan Stok Lİstelerİmİ Txt Formatina ÇevİrdİĞİm Zaman Stok Adi KaÇ Karakterse Okadar Lik Bİr Alan OluŞturoyor. TÜm HÜcrelerİn Benİm BelİrttİĞİm Uzunlukta Olmasini İstİyorum Bunu Nasil Yapabİlİrİm.bana Çok Acele Yardimci Olursaniz.
Stok Kodu :12 Karakter
Stok Adi :50 Karakter
Bİrİm : 3 Karakter.

 

[Recep İpek]

TXT dosyasını nasıl oluşturuyorsunuz?Farklı kaydetle mi?

 

[ckos]

evet farklı kaydetle

 

[Recep İpek]

Farklı Kaydet ile bu iş biraz zor görünüyor.

Makro bilginiz var ise aşağıdaki kodları kullanabilirsiniz.

Dosya yolunu kendinize göre uyarlayabilirsiniz.

Sub TxtKaydet01()
Application.ScreenUpdating = False
Range("A1").Select

son = Range("a1").End(xlDown).Row
yol = "C:\STOK.TXT"
'***************************************************************
Open yol For Output As #1

For i = 2 To son

veri1 = WorksheetFunction.Rept(0, 12 - Len(Cells(i, 1))) & Cells(i, 1)
veri2 = WorksheetFunction.Rept(0, 50 - Len(Cells(i, 2))) & Cells(i, 2)
veri3 = WorksheetFunction.Rept(0, 3 - Len(Cells(i, 3))) & Cells(i, 3)

Print #1, veri1 & " " & veri2 & " " & veri3

Next i

Close #1
'***************************************************************
MsgBox "Verileriniz " & yol & " Dosyasına Kaydedilmiştir."
Range("A1").Select
Application.ScreenUpdating = False
End Sub

 

[ckos]

Exel Dosyasini GÖnderİyorum Dosya İÇerİsİnde Kolonlarin Uzunluk Sayisinu Üste Yazdim. Buna GÖre Txt Çevİrebİlmem İÇİn Yardimci Olursaniz. Ben Basic E UzaĞim .

 

[Recep İpek]

Ekteki dosyanızı inceleyin.Ben kolonlor arasında bir boşluk bıraktım.Farklı olacak ise TXT dosyasından da bir örnek eklersiniz.

NOT:TXT dosyasının kaydedileceği yolu düzeltmeniz gerekmektedir.

 

[ckos]

çok teşekkür ederim. yalnız boşluklara "0" yazıyor onun yerine boşluk nasıl bıraktırırız.

 

[Recep İpek]

veri1 = WorksheetFunction.Rept(0, 12 - Len(Cells(i, 1))) & Cells(i, 1)
veri2 = WorksheetFunction.Rept((0, 12 - Len(Cells(i, 1))) & Cells(i, 1)
veri3 = WorksheetFunction.Rept((0, 50 - Len(Cells(i, 2))) & Cells(i, 2)
veri4 = WorksheetFunction.Rept((0, 3 - Len(Cells(i, 3))) & Cells(i, 3)

satırlarındaki 0'ları " " yapınız.