Sorgu için arama sonuçları: xlCSV

. Teşekkür ederim.

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

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

Evet, sonuç dört dörtlük tamam. Yardımcı oldunuz, çok teşekkür ederim.

Merhaba, Kullandığınız kodun farklı kaydet satırına "local:=True" eklemeniz yeterli olacak. Şu şekilde deneyin. newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, local:=True

...ALTTAKİNİ DENEYECEĞİZ ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(DateAdd("M", -1, Date), "yyyy_mm") & "_" & Say & " .csv"...

Maalesef yine text dosyası gibi kaydetti. Tek sütunlu kayıt yaptı. İlginize teşekkür ederim. Önerilerinizi bekliyorum. Kesinlikle acil değil.

...& "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False newWb.Close SaveChanges:=False Next startRow Application.UseSystemSeparators = True...

...& "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False newWb.Close SaveChanges:=False Next startRow Application.DisplayAlerts = True...

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