Sorgu için arama sonuçları: xlCSV

...bu satırda isimlendirilip kaydediliyor. Buradaki Date ifadesinde değişiklik yapmanız gerekiyor. ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True Bir ay öncesi için DateAdd("M",-1,Date) ifadesini kullanabilirsiniz.

...Say = Say + 1 ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.Close 0 End If Next On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0...

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...

FileFormat:=xlCSV deneyin.

Korhan hocam, yukarıdaki kodu "dosya adını" hücreden al olarak uyarlamak istedim, her zamanki gibi beceremedim. Benim kaydedeceğim dosya csv formatında. Yardımınızı rica ediyorum. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(1, 20).Value & ".csv", FileFormat:=xlCSV, Local:=True

Maalesef,

File_Path değişkenin tanımlaması var mı Aşağıdaki gibi deneyin. ActiveWorkbook.SaveAs Thisworkbook.path.& "\" & "GİDEN_DENEME" & ".csv", FileFormat:=xlCSV, Local:=True

Kod da küçük bir değişiklik yaptım, yine olmadı. 400 hata mesajı veriyor ActiveWorkbook.SaveAs File_Path & "\" & "GİDEN_DENEME.csv", FileFormat:=xlCSV, Local:=True

Merhaba, Aşağıdaki kod çalışmadı, belli ki bir hatam var. Yardım rica ediyorum. ActiveWorkbook.SaveAs File_Path & "\" & "GİDEN_DENEME" & ".csv", FileFormat:=xlCSV, Local:=True

Çok teşekkür ederim.

Deneyiniz. Masaüstüne Yeni_dosya.csv olarak kaydeder. Sub csv_kaydet() Range("A1:A" & [A65536].End(3).Row).Copy Set w = Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ("Username") & "\Desktop\Yeni_dosya.csv", FileFormat:=xlCSV End Sub

Dikkatsizliğimden kaynaklanmış, Farklı kaydet kodunu aşağıdaki şekilde yazdım. Sorunu çözdüm. ActiveWorkbook.SaveAs Filename:= _"C:\AKTAR\name-2023.04.csv" _ , FileFormat:=xlCSV, CreateBackup:=False, Local:=True

...muhtemelen bozuluyor, LUCA tarihleri tanımıyor. Aynı dosyayı .csv formatında manuel kaydettiğimde tarih formatı düzgün oluyor, LUCA tarihleri tanıyor. ActiveWorkbook.SaveAs Filename:= _"C:\AKTAR\name-2023.04.csv" _ , FileFormat:=xlCSV, CreateBackup:=False Yardımlarınız için teşekkür ederim.

...As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In wb.Worksheets ws.Copy ActiveWorkbook.SaveAs sPath & ws.Name, FileFormat:=xlCSV, local:=True ActiveWorkbook.Close False Next ws Application.DisplayAlerts = True Application.ScreenUpdating = True...

...Sub CsvKaydet() ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "Zraporu_çoklu_kdv_" & Format(Date, "yyyy_mm") & "_" & " .csv", FileFormat:=xlCSV, Local:=True MsgBox "Veriler CSV formatında aktarılmıştır.", vbInformation End Sub Dosyanızın bir kopyası üzerinde istediğiniz...

...= True ActiveWorkbook.SaveAs File_Path & "\" & "Zraporu_çoklu_kdv_" & Format(Date, "yyyy_mm") & "_" & " .csv", FileFormat:=xlCSV, Local:=True MsgBox "Veriler CSV formatında aktarılmıştır.", vbInformation End Sub Aslında bu kodlarda var olan tarih tanımlamasına ihtiyaç yok ama...

...https://www.excel.web.tr/threads/7000-bin-satirli-excel-dosyami-120-satirli-dosyalar-haline-getirebilir-miyim.187704/post-1050407 https://www.excel.web.tr/threads/veriyi-10-guenluek-olarak-ayirma.199232/ Bunlar yetersiz gelirse; https://www.excel.web.tr/search/243693/?q=xlCSV&o=date

...Say = Say + 1 ActiveWorkbook.SaveAs File_Path & "\" & Say & "_egitim_matrahin_icinde_8-18.csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.Close 0 End If Next On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0...

...Columns.AutoFit Say = Say + 1 ActiveWorkbook.SaveAs File_Path & "\" & Say & "_egitim_matrahin_icinde_8-18.csv", xlCSV ActiveWorkbook.Close 0 End If Next On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0...

Çözüm buymuş, çok teşekkür ederim sayın @veyselemre. Saygılarımı sunuyorum.