Excel dosyasını text dosyasına dönüştürmek

[Leoncio]

Merhaba;

Daha önce buna benzer bir sorum oldu. Gelgelelim beceremedim..:???:

Arkadaşlar; Excel tablomu txt formatına dönüştürmek istiyorum. Örnek dosyada mevcut kodları çalıştırdığımda txt dosyasındaki aşağıdaki problemleri nasıl halledebilirim.

1- Excelde örneğin 28,33,34,35,36,65,66... gibi sıralar boş. Boş olan satırlar txt dosyasında 0 (sıfır) olarak görünmeli.

2- Excel formatındaki tablo ile oynayamıyorum bu nedenle (60:62),(198:200),(221,223) hücreler boş, bunları txt dosyasına atarken boşluk bırakmadan atmalı, Benim çalıştırdığım kodlarda boşluk yapıyor.

3- Txt dosyasında 184 sıradan öncesi bozuk sağa dayanmış 184 sıradan sonrası gibi sola dayalı olması lazım. (Bunu birtürlü beceremedim niye bölüyor)

Kodları daha önce Sayın Leventm hocamdan alıp uyarlamaya çalıştım ama ..:???: olmadı. Yardımlarınızı bekliyorum.

 

[bedersu]

Merhaba,
Aşağıdaki kodlar ilk iki sorunuzun cevabı.Üçüncü sorununuzun çözümü text olustur.xls kitabınızda.184.satırdan itibaren sola dayalı olarak biçimlendirildiği için o şekilde çıkıyor.Sayıların hepsini sola dayalı yapın sorun hallolur.

Sub hadi()
'On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("VERI").Copy Before:=Sheets(1)
[a1] = "HDRRTTTTDENEME" & Right([d2], 4) & Mid([d2], 7, 2) & WorksheetFunction.CountA(Range("A10:A10000"))
[d2] = ""
Rows("3:9").Delete
[b3:b65536].Delete

[a:c].ColumnWidth = 10
ActiveSheet.Copy
For i = 5 To WorksheetFunction.CountA(Range("A:A")) + 3

If IsEmpty(Cells(i, 2)) = True And IsEmpty(Cells(i, 1)) = True Then


Cells(i, 2).Rows.EntireRow.Delete
i = i - 1
End If

Next

For ii = 5 To WorksheetFunction.CountA(Range("A:A")) + 3

If IsEmpty(Cells(ii, 2)) = True And IsNumeric(Cells(ii, 1)) = True Then
Cells(ii, 2).Value = 0



End If

Next
ActiveWorkbook.SaveAs "C:\DENEMEA.txt", FileFormat:=xlTextPrinter
ActiveWorkbook.Close True
ActiveSheet.Delete
MsgBox "Belgeniz c:\DENEMEA.txt Dosyasına Yazılmıştır."
End Sub

 

[Leoncio]

Teşekkürler tam istediğim gibi olmuş. Sağolun.
Bişey sormak istiyorum.

For i = 5 To WorksheetFunction.CountA(Range("A:A")) + 3

Bu kodun anlamı ne acaba birde +3 anlayamadım.

 

[bedersu]

A sütunundaki dolu olan hücre sayısını bu ve 3 ekle.En sonda 3 hücre boşta kalıyordu ,ben de 3 eklettim.Arada demek ki 3 hücrede daha ya veri yok ya da aktarmada bir yerde değişiklik yapılıyor.Onu o kadar incelemedim ve kolay yolu seçtim.

i = 5 to yukarıda çıkan sayı

 

[Leoncio]

Teşekkürler.