Sorgu için arama sonuçları: xlCSV

...' CSV olarak kaydet yeniWB.SaveAs Filename:=klasorYolu & "Kitap_" & bolumNo & ".csv", FileFormat:=xlCSV yeniWB.Close SaveChanges:=False bolumNo = bolumNo + 1 Next baslangicSatir Application.ScreenUpdating = True MsgBox "İşlem tamamlandı! CSV dosyaları...

A:A Sütununda tarih verileri var. Tarih formatını hangi satırda tanımlasam sorun olmaz. Tarih Formatı kodu : Columns("A:A").Select Selection.Replace What:="-", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _...

Korhan hocam, Satır sayısını 120 den 400'e dönüştürdüm. Sorun yok. Son sütunu K olarak değerlemişsiniz, Veri = Range("A1:K" & Son).Value şöyle değiştirdim, Veri = Range("A1:S" & Son).Value yeterli olmadı. Yine son sütunu K sütunu olarak görüyor. Nasıl değiştirebilirim. Teşekkür ederim.

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