Csv olarak kaydeden makro yardımı

Bülent AKKAŞ

unread,

May 12, 2009, 10:57:10 AM5/12/09

to

merhaba

ï¿½alï¿½ï¿½tï¿½ï¿½ï¿½m dosyadaki bir sayfanï¿½n csv olarak bï¿½r buton ï¿½le tek basï¿½na
kaydedï¿½lmesï¿½nï¿½ saï¿½lamak istiyorum.
konu hakkï¿½nda bilgi vermenizi rica ederim.

Sitare Yıldız İŞTAR

unread,

May 12, 2009, 2:11:39 PM5/12/09

to

Merhaba,
Aï¿½aï¿½ï¿½daki kodu bir modï¿½le ekleyerek istediï¿½inizi yapabilirsiniz.
Sayfa1 i csv olarak kaydedeceï¿½iniz varsayï¿½lmï¿½ï¿½tï¿½r. ï¿½sterseniz sayfa adï¿½nï¿½
deï¿½iï¿½tirebilirsiniz.
ï¿½sterseniz Dosya Adï¿½nï¿½ da deï¿½iï¿½tirebilirsiniz.
ï¿½nemli: Koddaki dosya yolunu kendinize gï¿½re deï¿½iï¿½tirmelisiniz.

Sub CSV_Kaydet()
Sheets("Sayfa1").Select
Sheets("Sayfa1").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\toshï¿½ba\Desktop\Yedek.csv",
FileFormat:=xlCSV
ActiveWorkbook.Close 0
MsgBox "*.CSV olarak kaydetme iï¿½lemi tamamlanmï¿½ï¿½tï¿½r.", vbInformation
End Sub

----------------------------------------------------------------------------------------------------------
"Kara ve deniz geï¿½it vermeyebilir. Sen havayï¿½ dene. Yeterki ï¿½ï¿½zï¿½m ara.
ï¿½ï¿½zï¿½m bulunur." Daedalus Efsanesi

"Bï¿½lent AKKAï¿½" <in...@bakkas.com>, iletisinde ï¿½unu yazdï¿½,
news:EB4AFD50-A45F-436F...@microsoft.com...

BAKKAS DANISMANLIK

unread,

Jun 4, 2009, 10:00:52 AM6/4/09

to

Merhaba
Kaydetme iï¿½lemini csv kaydet isimli bir buton ile yapmak istiyorum.
Bï¿½ konuda yardï¿½mlarï¿½nï¿½zï¿½ rica ederim.

Bï¿½lent AKKAï¿½

"Sitare Yï¿½ldï¿½z ï¿½ï¿½TAR" <bil...@mynet.com>, iletisinde ï¿½unu yazdï¿½,
news:egLna0y0...@TK2MSFTNGP03.phx.gbl...

Sitare Yıldız İŞTAR

unread,

Jun 4, 2009, 1:51:32 PM6/4/09

to

Merhaba,

Bir ï¿½nceki mesjda bulunan makro bu amaï¿½la yazï¿½ldï¿½.
Excel ortamï¿½nda F+11 tuï¿½u ile VB Dï¿½zenleyicisini aï¿½ï¿½p, Insert /Modï¿½l yoluyla
boï¿½ bir modï¿½l ekleyiniz. Makroyu bu modï¿½le kopyalayï¿½nï¿½z. Sayfaya dï¿½nï¿½p;
Formlar araï¿½ ï¿½ubuï¿½u yardï¿½mï¿½yla sayfaya bir Dï¿½ï¿½me ï¿½iziniz ve aï¿½ï¿½lan
pencereden makroyu seï¿½ip Tamam tuï¿½una basï¿½nï¿½z.
Artï¿½k sayfanï¿½zï¿½ CSV olarak kaydedebilirsiniz.

Saygï¿½lar.

----------------------------------------------------------------------------------------------------------
"Kara ve deniz geï¿½it vermeyebilir. Sen havayï¿½ dene. Yeterki ï¿½ï¿½zï¿½m ara.
ï¿½ï¿½zï¿½m bulunur." Daedalus Efsanesi

"BAKKAS DANISMANLIK" <in...@bakkas.com>, iletisinde ï¿½unu yazdï¿½,
news:%23h%236ezR5...@TK2MSFTNGP04.phx.gbl...

Beril

unread,

Jun 9, 2009, 9:39:02 AM6/9/09

to

Merhabalar, kodu ekledim, sayfa ve dosya adlarını değiştirdim yalnız sürekli
'syntax error' veriyor. Macro yazılımıyla mı ilgili acaba?
Teşekkürler

Sitare Yıldız İŞTAR

unread,

Jun 10, 2009, 6:43:12 AM6/10/09

to

Merhaba,
Yazım hatası aşağıdaki satırdan kaynaklanıyor. News de satırlar bölünüyor.
Aşağıdaki satır bölünmeden tek satır olarak yazılmalı.

ActiveWorkbook.SaveAs Filename:="C:\Users\toshıba\Desktop\Yedek.csv",
FileFormat:=xlCSV

Hoşçakalın.

--
----------------------------------------------------------------------------------------------------------
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara.
Çözüm bulunur." Daedalus Efsanesi

"Beril" <Be...@discussions.microsoft.com>, iletisinde şunu yazdı,
news:E5A8327E-7844-415C...@microsoft.com...

Beril

unread,

Jun 17, 2009, 6:41:01 AM6/17/09

to

merhabalar,
csv kaydet düğmesine basıp makroyu çalıştırıyorum, belirttiğim yerde bir csv
dosyası oluşturuluyor. Yalnız benim 12 sütun ve çok sayıda satırdan oluşan
verilerim, csv uzantılı dosyada sadece 1 sütunda virgüllerle ayrılmış şekilde
sıralanıyor
PARÇA ADI MALZEME BOY EN ADET

C2CA20AR1SKK0817800439XX SKK1OR08183366 1780,0 439,0 4,0
C2CA20RS1SKK1808640550XX SKK1OR18183366 864,0 550,0 2,0
C2CA20KR1SLL1818000447XX SLL1OR18183366 1800,0 447,0 2,0
C2CA10KR1SYY1818000447XX SYY1OR18183366 1800,0 447,0 1,0
C2CA20KL1SLL1818000447XX SLL1OR18183366 1800,0 447,0 2,0
C2CW20KL1SRR1805950306XX SRR1OR18183366 595,0 306,0 1,0
C2CW20KR1SRR1805880296XX SRR1OR18183366 588,0 296,0 1,0
C2CW20AR1SKK0805750439XX SKK1OR08183366 575,0 439,0 2,0
C2CW20YM1SKK1805590330XX SKK1OR18183366 559,0 330,0 1,0
C2CW20KT1SRR1808640147XX SRR1OR18183366 864,0 147,0 1,0
C2CW20US1SKK1808640350XX SKK1OR18183366 864,0 350,0 1,0
C2CW20YR1SKK1811280350XX SKK1OR18183366 1128,0 350,0 1,0
C2CW20YL1SKK1811280350XX SKK1OR18183366 1128,0 350,0 1,0
C2CW20RS1SRR1808640350XX SRR1OR18183366 864,0 350,0 1,0
C2CW20RS1SRR1805640330XX SRR1OR18183366 564,0 330,0 1,0
C2CW20RH1SRR1802810320XX SRR1OR18183366 281,0 320,0 1,0

gibi verilere sahip excel dosyası, aşağıdaki formattaki bir dosyaya
dönüşüyor.Tüm veriler bi sütunda yer alıyor.
PARÇA ADI,MALZEME,BOY,EN,ADET

C2CA20AR1SKK0817800439XX,SKK1OR08183366,1780,439,4
C2CA20RS1SKK1808640550XX,SKK1OR18183366,864,550,2
C2CA20KR1SLL1818000447XX,SLL1OR18183366,1800,447,2
C2CA10KR1SYY1818000447XX,SYY1OR18183366,1800,447,1
C2CA20KL1SLL1818000447XX,SLL1OR18183366,1800,447,2
C2CW20KL1SRR1805950306XX,SRR1OR18183366,595,306,1
C2CW20KR1SRR1805880296XX,SRR1OR18183366,588,296,1
C2CW20AR1SKK0805750439XX,SKK1OR08183366,575,439,2
C2CW20YM1SKK1805590330XX,SKK1OR18183366,559,330,1
C2CW20KT1SRR1808640147XX,SRR1OR18183366,864,147,1
C2CW20US1SKK1808640350XX,SKK1OR18183366,864,350,1
C2CW20YR1SKK1811280350XX,SKK1OR18183366,1128,350,1
Bu sorunu çözmenizi rica ederim,Teşekkürler

Sitare Yıldız İŞTAR

unread,

Jun 17, 2009, 8:45:00 AM6/17/09

to

Merhaba,
CSV zaten virgülle ayrılnış text dosyası demektir.
Bu format genellikle, çok sayıda sütundan oluşan excel verilerini Text
formatında saklamak için kullanılır.
Tekrar excel ortamına alımak için excelin Metin Alma Sihirbazı kullanılır.
Özetle, sözkonusu makroda herhangi bir sorun yoktur ve kendisinden beklenen
işlevi yerine getirmektedir. Çok sayıda sütundan oluşan excel verilerini
virgülle ayrılmış text dosyasına dönüştürmektedir. Yani burada çözülecek bir
sorun yoktur.
Ancak sizin istediğiniz başka bir format ise onu belirtmeniz halinde
yardımcı olmaya çalışırım.

Hoşçakaçın.

--
----------------------------------------------------------------------------------------------------------
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara.
Çözüm bulunur." Daedalus Efsanesi

"Beril" <Be...@discussions.microsoft.com>, iletisinde şunu yazdı,

news:7C60F8C5-C50E-4FBE...@microsoft.com...

Beril

unread,

Jun 18, 2009, 7:16:04 AM6/18/09

to

Merhaba,
Ben elimdeki verileri bir makinenin programına gönderiyorum. Bunu yaparken
de, verilerimin bulunduğu excel dosyasını save as csv(MS-DOS) ile farklı
kaydedip kullandığım paket programın bunu görmesini sağlıyorum. Yapmak
istediğim ise verilerimi bir butonla programın görebileceği yere otomatik
olarak aktarmak. Yardımınızı rica ederim...
Beril Kervancıoğlu

Sitare Yıldız İŞTAR

unread,

Jun 18, 2009, 9:37:44 AM6/18/09

to

Merhaba,
Aşağıdaki kodlar işinizi görecektir.
Dosya Adını ve dosya yolunu kendinize göre değiştirmelisiniz.

Sub CSV_Kaydet()
Sheets("Sayfa1").Select
Sheets("Sayfa1").Copy

ActiveWorkbook.SaveAs Filename:="C:\Users\toshıba\Desktop\Kitap1.csv", _
FileFormat:=xlCSVMSDOS, CreateBackup:=False
ActiveWorkbook.Close 0
MsgBox "*.CSV olarak kaydetme işlemi tamamlanmıştır.", vbInformation
End Sub

--
----------------------------------------------------------------------------------------------------------
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara.
Çözüm bulunur." Daedalus Efsanesi

"Beril" <Be...@discussions.microsoft.com>, iletisinde şunu yazdı,

news:11C4436F-C79E-436D...@microsoft.com...