Dosya adını hücreden al

[ziya]

ActiveWorkbook.SaveAs Filename:= ThisWorkbook.Path & "\" & Cells(3, 4).Value & ".xlsm"

Yukarıdaki kod Korhan bey'e ait.
Benim ihtiyacım yol ve dosya adı yukarıdaki kod ile aynı, yalnız formatı xlsm değil "csv" olarak nasıl kaydedebilirim.

 

[Muzaffer Ali]

Merhaba.

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(3, 4).Text & ".csv", FileFormat:=xlCSVUTF8

 

[ziya]

Vakit ayırdınız , yardımcı oldunuz, bilginizi paylaştınız.
Çok teşekkür ederim.

 

[ziya]

Denedim, csv formatında olmadığını gördüm. Kaydettiğimde txt uzantılı excel dosyası oluşuyor. Yani sütunlar kayboluyor, değerler virgülle ayrılıyor.
FileFormat:=xlCSVUTF8 yerine FileFormat:=cls denedim sonuç değişmedi

 

[Muzaffer Ali]

FileFormat:=xlCSV deneyin.

 

[ziya]

Haklısınız, ben de bu arada denemeler yapıyordum. Korhan hocanın eskiden faydalandığım bir kodda görmüştüm, FileFormat:=xlCSV, Local:=True olarak değiştirdiğimde sonuç aldım.
Tekrar çok teşekkür ederim.
Bu arada faydalanan olur düşüncesiyle kodun son halini aşağıya yazıyorum.

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(39, 1).Text & ".csv", FileFormat:=xlCSV, Local:=True