Sorgu için arama sonuçları: xlCSV

Çok teşekkür ederim. Korhan Hocama teşekkür ederken vakit kaybetmişim, cevabınızı yeni gördüm. Her iki kodu ayrı ayrı denedim, gayet güzel çalışıyor, sağolun.

Yine KORHAN Hocam. Çok teşekkür ederim.

...filePath = folderPath & "ÖIŞIK-2025" & "_" & Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, FileFormat:=xlCSV, CreateBackup:=False, Local:=True newWb.Close SaveChanges:=False Next startRow Application.DisplayAlerts = True...

..."00") & ".csv" ' CSV olarak kaydet newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, _ Local:=True newWb.Close SaveChanges:=False Next startRow...

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

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