Aşağıda verdiğim kod excell sayfasındaki A sütununda bulunan verileri 900 er bölerek .txt sayfalarına atıyor. Fakat şöyle bir sorun yaşadım .txt dosyalarına girdiğimde verilerin başında ve sonunda boşluklar oluşturduğunu gördüm bu sorunu nasıl aşarım bir yardımınız lazım şimdiden teşekkürler.
Kod:
Sub TXT_AKTAR()
Set S1 = Sheets("Sayfa1"): S1.Activate
yol = ThisWorkbook.Path & "\": adı = "xxxxxxx"
adet = WorksheetFunction.RoundUp(S1.Cells(Rows.Count, 1).End(3).Row / 900, 0)
For brn = 1 To adet
sayı = sayı + 1: ilk = (brn - 1) * 900 + 1: son = ilk + 899
If son > S1.Cells(Rows.Count, 1).End(3).Row Then son = S1.Cells(Rows.Count, 1).End(3).Row
Open yol & adı & sayı & ".txt" For Output As #1
For i = ilk To son
Print #1, Cells(i, "A"); vbTab; Cells(i, "B")
Next i
Close #1
Next
MsgBox "Bu belgenin bulunduğu klasöre, gerekli TXT belgeler oluşturuldu. ", , "xxxxxxxxxxxx"
End Sub