Virgülle ayrılmış CSV

[brakcin]

Merhabalar

kullandığım muhasebe programı için exceldeki verilerimi virgülle ayrılmış CSV ye çevirmem gerekiyor ,bu işlemi çok sık yaptığım için bunu makro ile yaptırmak istiyorum . ancak formlarda haftalardır araştırmama rağmen bu işlemi yaptırabilen bir makro bulamadım ,yapmam gereken şey birden fazla sayfası olan bir çalışma kitabına makro ile gerekli her sayfayı virgülle ayrılmış CSV olarak hatasız kaydetmesi ve çalışma kitabını kapatması . kendi araştırmalarım sonucunda ancak her sayfayı excel dosyasını tekrar tekrar açarak hatasız bir şekilde CSV olarak kaydedebilecek duruma geldim bu işlemi de Send.Keys'lerle yapıyorum makro ile hiçbir şekilde hatasız kayıt yapmıyor . Forumlarda çalışma kitabındaki her sayfayı CSV olarak otomatik kaydetme makroları mevcut ancak hepsi CSV dosyasnın içindeki verileri bozuyor . Bu işlemi makro ile yaptırmanın artık mümkün olmadığına inanmaya başladım .
Lütfen bana yardımcı olun .

 

[Necdet]

Merhaba,

Soruyu sordunuz güzel de anlatıyorsunuz, ama ne bir xl dosyası var, ne de örnek bir csv dosyası?
Kim size nasıl yardımcı olabilir ki?
Paylaşım sitelerinden birine 3-5 kayıtlık örnek bir xl ve bu xl den oluşan csv dosyası yüklerseniz, yardımcı olacak arkadaşa büyük iyilik yapmış olursunuz.

 

[brakcin]

Merhaba,

Soruyu sordunuz güzel de anlatıyorsunuz, ama ne bir xl dosyası var, ne de örnek bir csv dosyası?
Kim size nasıl yardımcı olabilir ki?
Paylaşım sitelerinden birine 3-5 kayıtlık örnek bir xl ve bu xl den oluşan csv dosyası yüklerseniz, yardımcı olacak arkadaşa büyük iyilik yapmış olursunuz.

yaşadığım problemi olabildiğince anlatmaya çalıştım , denediğim makroların hepsi CSV içeriğini bozdu olması gereken CSV içeriğini jpg olarak paylaşıyorum
xlsm dosyam

1ylckvl.jpg

ff

www.hizliresim.com

nu9k5oy.jpg

ff

www.hizliresim.com

tffwt09.jpg

ff

www.hizliresim.com

olması gereken csv görüntüsü

m0l1zz7.jpg

ff

www.hizliresim.com

brty92v.jpg

ff

www.hizliresim.com

td6bxny.jpg

ff

www.hizliresim.com

forumda resim yükleme seçeneğini bulamadım o yüzden böyle bir çözüm buldum kurallara aykırı ise affınızı diliyorum

 

[Necdet]

dosyo.tc
dosya.co
gibi paylaşım sitelerinden birine yükleyin ve adresi verin.
Bu konuda ilgili arkadaşlar yardımcı olacaktır.

Altın üye olmadığınız için dosya yükleyemiyorsunuz.

 

[brakcin]

dosyo.tc
dosya.co
gibi paylaşım sitelerinden birine yükleyin ve adresi verin.
Bu konuda ilgili arkadaşlar yardımcı olacaktır.

Altın üye olmadığınız için dosya yükleyemiyorsunuz.

Yardımınız için teşşekürler
.xlsm dosyası

İndir sablons1

Dosyayı indir sablons1

dosya.co

İndir sablons2

Dosyayı indir sablons2

dosya.co

İndir sablons3

Dosyayı indir sablons3

dosya.co

bu dosyadaki sayfalar tek tuşla ayrı ayrı CSV formatında hatasız kaydetmesini istiyorum

şu şekilde

İndir csv1

Dosyayı indir csv1

dosya.co

İndir csv2

Dosyayı indir csv2

dosya.co

İndir csv3

Dosyayı indir csv3

dosya.co

doysadaki her sayfayı ayrı ayrı CSV olarak kaydet makrosunda dosyayı bozuk olarak kaydediyor

şu şekilde

İndir bozuk

Dosyayı indir bozuk

dosya.co

benim sendkeys ile yaptığım makro doğru kaydediyor ancak dosyayı her defansında tekrar açmam gerekiyor ( CSV dosyasını kapatmadan doğru kaydı yapmıyor)

benim tek sayfa kaydı için yaptığım makro
şu şekilde

İndir sendkeys

Dosyayı indir sendkeys

dosya.co

sonucu doğru
şu şekilde

İndir dogruCSV

Dosyayı indir dogruCSV

dosya.co

Amaç tek tuşla dosyayı tekrar açma gereği duymadan her sayfayı doğru bir şekilde CSV formatına getirmek

yardımlarınızı bekliyorum

teşşekürler

 

[Korhan Ayhan]

Merhaba,

Linkteki konu belki işinize yarayabilir.

7000 bin satırlı excel dosyamı 120 satırlı dosyalar haline getirebilir miyim?

Bir excel dosyam var yedi bin satır, bunu 120 şer satır lar halinde bölüp 60 farklı dosya halinde getiriyorum. Bunu daha kolay bir yolla yapabilir miyim?

www.excel.web.tr

 

[brakcin]

Sonunda buldum arkadaşlar

Sub SaveAs_AllSheets_CSV_Format()
Dim sPath
sPath = ThisWorkbook.Path & "\"
Dim wb As Workbook
Set wb = ThisWorkbook
Dim ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In wb.Worksheets
ws.Copy
ActiveWorkbook.SaveAs sPath & ws.Name, FileFormat:=xlCSV, local:=True
ActiveWorkbook.Close False
Next ws
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub