merhaba,
1 excell dosyası yaptım, bunu eğer kendim manuel farklı kaydet CSV olarak kaydet dediğimde istediğim oluyor
kayıt yaparken değerlerin arasına ";" koyarak kaydediyor ve yine excell de aç dediğimde sanki excelmiş gibi sutunlara yerleşmiş şekilde açılıyor.
ama sorunum şu,
makro ile kaydetmek istiyorum o zaman değerlerin arasına "," koyarak kayıt yapıyor istediğim şekilde açamıyor ve okutamıyorum.
notepat.exe görüntüsü ile
istediğim sonuç
AKBNK;0;0;H;E;70;10;E;8;1;3;E
ARCLK;0;0;H;E;60;15;E;2;1;2;E
ASELS;0;0;H;E;60;10;E;3;1;2;E
BIMAS;0;0;H;E;60;10;E;1;1;2;E
EKGYO;0;0;H;E;60;10;E;24;2;2;E
EREGL;0;0;H;E;60;10;E;3;1;2;E
FROTO;0;0;H;E;60;10;E;1;1;2;E
makro ile yaparsam elde ettiğim sonuç
AKBNK,0,0,H,E,70,10,E,8,1,3,E
ARCLK,0,0,H,E,60,15,E,2,1,2,E
ASELS,0,0,H,E,60,10,E,3,1,2,E
BIMAS,0,0,H,E,60,10,E,1,1,2,E
EKGYO,0,0,H,E,60,10,E,24,2,2,E
EREGL,0,0,H,E,60,10,E,3,1,2,E
FROTO,0,0,H,E,60,10,E,1,1,2,E
makro aşağıda
Kod:
Sub KAYDET()
'
' KAYDET Makro
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+B
'
ActiveWorkbook.Save
Range("A1:L60").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\Listeler\Vdl_Spot_O.Csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub
makro ile kaydederken ";" olarak yaptırmanın bir yolu var mıdır?
FileFormat:=xlCSVMSDOS, olarak denedim onda da sonuç bozuk.
windows bölgesel ayarlardan ayraç ";" olmalı demişler baktım orası doğru (hatta tersini yapıyor diye "," olarakta denedim) olmuyor.
Yer İmleri