farklı formatta kaydetme makrosu?

[cagriyildirim]

elimde rutin işler için kullandığım bir makro var. Sorun workbookların formatının csv olması. ben bunları normal excel formatında kaydetmek istiyorum. yani bu dosyaları excel formatına çevirebilecek bir kod mevcut mu dostlar?

 

[Ayhan Ercan]

Merhaba

Aşağıdaki link işinize yararmı bir bakınız..

http://www.excel.web.tr/showthread.php?t=54646

 

[cagriyildirim]

sayın ayhan söylediğiniz programın ne işe yaradığını anlamadım benim ihtiyacım kendi programıma ekleyeceğim bir koddur. amacım kendi oluşturduğum programın sonuna ekleyeceğim bir kodla farklı kaydetme işlemi yapmak.

 

[cagriyildirim]

Sub farkiıkaydet()
'
' farkiıkaydet Macro
'

'
ChDir "C:\Documents and Settings\009208\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\009208\Desktop\bahls03-HOReport_200882682330.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
ActiveWindow.Close
End Sub



şöyle bir kod var ama hep aynı isimle kaydettiği için işime yaramıyor. bu örnekte her workboku farklı isimle kaydetmemiz mümkün mü?