- Katılım
- 15 Ocak 2013
- Mesajlar
- 85
- Excel Vers. ve Dili
- 2007 türkçe
- Altın Üyelik Bitiş Tarihi
- 24/05/2022
Arkadaşlar daha önce .csv uzantı kaydetme konusunda sizlerden yardım istedim sağolsun bir arkadaşımız aşağıdaki kodları ver di.
Ancak şöyle bir sıkıntı ile kayıt yapmakta
Sütunlar da yer alan verileri tek bir hücrede toplayarak kayıt etmekte acaba aşağıdaki kodlar da bir düzenlememi yapılması gerekmek te.
Dim dosyaismi As String
dosyaismi = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 1) & ".csv"
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=dosyaismi, FileFormat:=xlCSV
Application.DisplayAlerts = True
ActiveWorkbook.Close False
Application.Quit
Ancak şöyle bir sıkıntı ile kayıt yapmakta
Sütunlar da yer alan verileri tek bir hücrede toplayarak kayıt etmekte acaba aşağıdaki kodlar da bir düzenlememi yapılması gerekmek te.
Dim dosyaismi As String
dosyaismi = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 1) & ".csv"
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=dosyaismi, FileFormat:=xlCSV
Application.DisplayAlerts = True
ActiveWorkbook.Close False
Application.Quit