Excell'den veriyi TXT dosyasına aktarırken ayraç sorunu!!!

E

erbek_

Katılım
3 Ağustos 2012
Mesajlar
2
Excel Vers. ve Dili
Excel
Selamlar...
Excel'den 4 sütunlu verileri TXT Metin belgesine kopyalarken sütun aralıkları tab ile ayrılmış boşluk olarak kopyalanıyor.Benim el terminali programında veriyi tanıta bilmem için sütun aralıklarını ; (noktalı virgül ) ile ayırmam gerekiyor.Veri aktarırken bu ayıraç nasıl yapabilirim?Dilim döndüğünce anlatabildim[:)]

Teşekkür ederim...

Örnek: (Excelden kopyalamayla aktardığımda )

5449000021571 CAPPY VİŞNE 1 LT 2,22 2,38
5449000033109 CAPPY 1LT MEY.SUYU KARIŞIK 1,78 1,91
5449000051769 CAPPY PORT./KARIŞIK KUTU 330 ML 1,03 1,09
...

Yapmak istediğim :(txt. sayfasında olmasını isteğim)

5449000021571;CAPPY VİŞNE 1 LT;2,22;2,38
5449000033109;CAPPY 1LT MEY.SUYU KARIŞIK;1,78;1,91
5449000051769;CAPPY PORT./KARIŞIK KUTU 330 ML;1,03;1,09
...
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
dosyanız ektedir.:cool:

DOSYAYI İNDİR


Kod: 
Sub txt59()
Dim deg As String, i As Long, sonsat As Long, j As Byte
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Open (ThisWorkbook.Path & "\txt59yaz.txt") For Output As #1
For i = 2 To sonsat
    For j = 1 To 6
        deg = deg & ";" & Cells(i, j)
    Next j
    deg = Right(deg, Len(deg) - 1)
    Print #1, deg
    deg = ""
Next i
Close #1
MsgBox "TXT Dosyası Yazıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Üst