Sorgu için arama sonuçları: xlCSV

...ws1.Copy ActiveWorkbook.SaveAs "C:\" & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xlsx" ActiveWorkbook.Close False ' CSV dosyasını kaydet ActiveWorkbook.SaveAs "C:\" & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".csv", xlCSV ActiveWorkbook.Close False End Sub

...------TargetWorksheet.Range("A1").Resize(UBound(araarray, 1), UBound(araarray, 2)).Value = araarray------ CSVFileName = "C:\ " & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".csv" TargetWorkbook.Workbooks(1).SaveAs CSVFileName, xlCSV TargetWorkbook.Quit

...mu anladım.ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(DateAdd("M",-1,Date), "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True Yok eğer bu tanım değişkenler tanımlanırken yapılacak ise hangi satırda. Bu iş ne kadar bildiğimi\bilmediğimi şöyle anlatayım, bu...

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