Exceli TXT formatına çevirme

[DeliBalta58]

Elimizde Excele verileri bulunan dosyanın txt formatına aralarında ; olarakçevrilmesi gerekmektedir.

Verilerimiz ;

Excelde
A sütunu TC ND
B sütunu Emekli No
C sütunu Adı
D sutunu Soyadı
E Sütunu Unvanı
F Sütunu Kod
G Sütun Gün
H Sütunu Tutar Verilerimiz bunlar

TXT dosyasında yapmak istediğim format

TCNO;EmekliNO;Adı;Soyadı;Unvanı;Kod;Gün;Tutar;
TCNO;EmekliNO;Adı;Soyadı;Unvanı;Kod;Gün;Tutar;
TCNO;EmekliNO;Adı;Soyadı;Unvanı;Kod;Gün;Tutar;
TCNO;EmekliNO;Adı;Soyadı;Unvanı;Kod;Gün;Tutar;

bu şekilde kaç kişi varsa txt ye dönüştürecek
Teşekkürler. Örnek Dosya Ekte.

 

[hamitcan]

Const yol = "C:\test.txt"

Sub Veriler()
    Dim i As Integer
    Open yol For Output As #1
    For i = 1 To [a65536].End(3).Row
    s = ""
    For j = 1 To 8
    s = s & Cells(i, j) & vbTab
    Next
        Print #1, s
    Next
    Close
End Sub

şeklinde deneyin.

 

[DeliBalta58]

Uzmanım her birinin arasına ve en sona noktalı virgül ( ; )gelecek aralarda boşluk olmayacak

 

[muygun]

Merhaba;
Eki inceleyin. (kodlar alıntıdır)
Gri hücreleri yeterince çoğaltın.
İyi çalışmalar.

 

[Merhum İdris SERDAR]

İstediğiniz ekteki dosya gibi ise; nasıl yapıldığını anlatırım. Ama makro ile değil.

.

 

[DeliBalta58]

yurttas uzmanım. Sonlarına da noktalı virgül gelecek.

 

[Merhum İdris SERDAR]

yurttas uzmanım. Sonlarına da noktalı virgüy gelecek.

O da mümkün.

Makrosuz iki yöntem ile yapmak mümkün.


.

 

[DeliBalta58]

Uzmanım nasıl çevireceğim peki exceli txt ye . siz txt dosyası eklemişsiniz.

 

[Merhum İdris SERDAR]

Uzmanım nasıl çevireceğim peki exceli txt ye . siz txt dosyası eklemişsiniz.

İki açıklama dosyası ekte.

.

 

[hamitcan]

Bu da noktalı virgülle olanı.

Sub Veriler()
    Dim i As Integer
    Open yol For Output As #1
    For i = 1 To [a65536].End(3).Row
    s = ""
    For j = 1 To 8
    s = s & Cells(i, j) & ";"
    Next
        Print #1, s
    Next
    Close
End Sub

 

[DeliBalta58]

Elinize Emeginize sağlık.

1000 den fazla veri var. Formül dosya boyutunu artırıyor. Makro ile mümkünse size zahmet makro ile yapabilirmiyiz.

 

[DeliBalta58]

hamitcan uzmanım. ben yazarken siz göndermişsiniz.
İlgilenen herkesin eline emeğine sağlık
Herkese Çok teşekkürler.

:biggrin:Şimdi hem formül hem makro oldu.:biggrin:

 

[Merhum İdris SERDAR]

Elinize Emeginize sağlık.

1000 den fazla veri var. Formül dosya boyutunu artırıyor. Makro ile mümkünse size zahmet makro ile yapabilirmiyiz.

Siz de formülsüz olanı ile yapın. Ona ne kusur bulacaksınız... Word ile olanı yani...

Neyse makro ile Sayın Hamitcan vermiş.

.

 

[murateren88]

İstediğiniz ekteki dosya gibi ise; nasıl yapıldığını anlatırım. Ama makro ile değil.

.

merhaba ben bunun gibi yapmak istiyoru excel dosyamı nasıl yaparım

 

[harun46]

iyi akşamlar excel dosyasını txt e çevirirken güvenlik düzeyi yüksek olduğunda makrolar devre dışı bırakıldı diye hata veriyor. düzeltmek için ne yapmam gerekiyor.

 

[dEdE]

Merhaba,
Formumuza hoşgeldiniz.
Excel sayfasında Menüden; Araçlar/Makro/Güvenlik seçilir.
Açılan pencereden Düşük veya Orta seçilerek Tamam düğmesi tıklanır.
Ya da aşağıdaki linke bakılır.
http://www.excel.web.tr/f48/makrolary-etkin-kylmak-guvenlik-duzeyini-du-urmek-t76309.html
Hoşçakalın.

 

[spacebar]

üstadlarım merhaba. A1:B100 aralığını txt'ye (yani: metin sekmeyle ayrılmış *.txt) çevirme makrosu nasıl yazılır.

 

[spacebar]

makro kaydet denedim ama olmadı. bir fikri olan yok mu .

 

[Kardiyak]

Const yol = "C:\test.txt"

Sub Veriler()
    Dim i As Integer
    Open yol For Output As #1
    For i = 1 To [COLOR="Orange"][a65536].End(3).Row[/COLOR]
    s = ""
    For j = [COLOR="Lime"]1[/COLOR] To [COLOR="DeepSkyBlue"]8[/COLOR]
    s = s & Cells(i, j) & [COLOR="Red"]vbTab[/COLOR]
    Next
        Print #1, s
    Next
    Close
End Sub

şeklinde deneyin.

Hamitcan hocam burda cevabı vermiş aslında o yüzden o cevap üzerinden anlatacağım.

kırmızı yazılı kısım sekme(tab boşluğu) olup txt sayfasını sekmelere ayrılmış olarak kaydeder. Buraya hücre değerlerini ayırırken arasına koymak istediğiniz herşeyi yazabilirsiniz.

yeşil olan kısım 1.sütun yani A sütunundan itibaren veri alınmasını sağlar.

mavi kısım 8.sütun yani H sütununa kadar veri alınmasını sağlar.

bu haliyle a ve h sütunları arası aralarında sekme olarak txt ye kaydedilir. a ve b sütunlarını yazdırmak için mavi renkli kısmı 2 yapmalısınız.

turuncu renkli kod ise a sütunundaki son dolu değere kadar tüm satırların txtye yazılmasını sağlar. sadece 100.satıra kadar bu işlemin olması için tüm turuncu kodu silip 100 yazmanız gerekir.

Const yol = "C:\test.txt"

Sub Veriler()
    Dim i As Integer
    Open yol For Output As #1
    For i = 1 To [COLOR="Orange"]100[/COLOR]
    s = ""
    For j = [COLOR="Lime"]1[/COLOR] To [COLOR="DeepSkyBlue"]2[/COLOR]
    s = s & Cells(i, j) & [COLOR="Red"]vbTab[/COLOR]
    Next
        Print #1, s
    Next
    Close
End Sub

 

[spacebar]

kardiyak üstadım merhaba.
açıklamalı çözüm getirdiğiniz için teşekkür ederim. ama makroyu çalıştıramıyorum. şu şekilde bir hata mesajı geliyor.
run time error 75
path file acces error
nerede hata yapıyorum acaba.