• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Exceli TXT formatına çevirme

D

DeliBalta58

Katılım
19 Nisan 2007
Mesajlar
337
Excel Vers. ve Dili
Excel 2003 Türkçe
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.
 

Ekli dosyalar

Son düzenleme:
Kod: 
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.
 
Uzmanım her birinin arasına ve en sona noktalı virgül ( ; )gelecek aralarda boşluk olmayacak
 
Merhaba;
Eki inceleyin. (kodlar alıntıdır)
Gri hücreleri yeterince çoğaltın.
İyi çalışmalar.
 

Ekli dosyalar

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

.
 

Ekli dosyalar

  • aaa.txt
    aaa.txt
    3.9 KB · Görüntüleme: 120
yurttas uzmanım. Sonlarına da noktalı virgül gelecek.
 
Son düzenleme:
Uzmanım nasıl çevireceğim peki exceli txt ye . siz txt dosyası eklemişsiniz.
 
Bu da noktalı virgülle olanı.
Kod: 
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
 
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.
 
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:
 
DeliBalta58' Alıntı:
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.
Genişletmek için tıkla ...

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ş.

.
 
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.
 
üstadlarım merhaba. A1:B100 aralığını txt'ye (yani: metin sekmeyle ayrılmış *.txt) çevirme makrosu nasıl yazılır.
 
makro kaydet denedim ama olmadı. bir fikri olan yok mu .
 
hamitcan' Alıntı:
Kod: 
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.
Genişletmek için tıkla ...

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.

Kod: 
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
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst