Metin(Sekme İle Ayrılmış) Makrosu

[Ahmet Faruk ÖZDEMİR]

Merhaba,

Sheets("kurum").Copy
    On Error Resume Next
    MkDir "C:\6736_Hesap"
    MkDir "C:\6736_Hesap\Bdp"
    MkDir "C:\6736_Hesap\Pdf"
    MkDir "C:\6736_Hesap\Xls"
With Sheets("kurum")
    yol = "C:\6736_Hesap\Bdp\" & .Range("A20").Value & ".txt"
    ActiveWorkbook.SaveAs Filename:=yol, FileFormat:=xlText, CreateBackup:=False

Yukarıdaki kod ile excel sayfasını kaydettiğimde oluşan .txt dosyasında rakamların başında ve sonunda tırnak ( ") atıyor. Bu şekilde dosya hata veriyor.
Tırnaksız olarak .txt nasıl oluşturabilirim. Kod yazmadan farklı kaydet ile Metin(Sekme ile ayrılmış) olarak kaydettiğimde oluyor, makro ile yapamadım. Yardımlarınız için teşekkürler..

 

[mustilem23]

Aynı konuya yakın benimde bir sorunum var ,
Sayfa 1 a satırın daki stok kodunu sayfa 2 de karşılık gelen satırları sayfa 1 e taşıtıp tek hücrede görüntülemem gerekiyor yardımcı olabilme imkanınız var mıdır arkadaşlar,

örnek dosyam aşağıdaki gibidir.

http://s5.dosya.tc/server3/m4pas7/tek_ekran_satis_listesi.xlsx.html