Sorgu için arama sonuçları: FileFormat:=xlCSV

  1. Z

    csv FORMATINDA KAYDET

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

    Giriş yapılan verinin CSV uzantılı bir dosya olarak kaydedilmesi

    Çok teşekkür ederim.
  3. B

    Giriş yapılan verinin CSV uzantılı bir dosya olarak kaydedilmesi

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

    csv dosyasında tarih formatı

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

    csv dosyasında tarih formatı

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

    Virgülle ayrılmış CSV

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

    Kaydet makrosunda ufak bir sorun

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

    Kaydet makrosunda ufak bir sorun

    ...= 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...
  9. Korhan Ayhan

    Veriyi 10 günlük olarak ayırma

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

    listbox 2. kolon verisi

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

    listbox 2. kolon verisi

    ActiveWorkbook.SaveAs Filename:="test.csv", FileFormat:=xlCSV, local:=True ActiveWorkbook.Close False
  12. Ömer

    Sayfayı TXT yedekleme

    ...Application.DisplayAlerts = False Sheets("Firma").Select ad = "Firma_" & Format(Now, "dd-mm yyyy hh-mm-ss") ThisWorkbook.Sheets("Firma").Copy ActiveWorkbook.SaveAs Filename:=yol & ad & ".csv", FileFormat:=xlCSV, CreateBackup:=False ActiveWorkbook.Close End Sub
  13. micyot

    ilk satırı csv formatına dahil etmemek.

    ustad eline koluna sağlık.. tam istediğim gibi oldu sorunsuz aktarıyor :)
  14. Korhan Ayhan

    ilk satırı csv formatına dahil etmemek.

    ...Next End If Next S2.Range("A1").Resize(Say, UBound(Veri, 2)) = Liste K2.SaveAs Dosya_Adi, FileFormat:=xlCSV, Local:=True K2.Close 0 XL_App.Quit Set S1 = Nothing Set S2 = Nothing Set K1 = Nothing Set K2 = Nothing Set...
  15. Korhan Ayhan

    7000 bin satırlı excel dosyamı 120 satırlı dosyalar haline getirebilir miyim?

    ...Erase Liste Say = 0 K1.SaveAs ThisWorkbook.Path & "\Dosya_" & Dosya_Adedi & ".csv", FileFormat:=xlCSV, Local:=True K1.Close 0 Next Set S1 = Nothing Set K1 = Nothing Set XL_App = Nothing MsgBox "Veri aktarımı tamamlanmıştır." &...
  16. Korhan Ayhan

    7000 bin satırlı excel dosyamı 120 satırlı dosyalar haline getirebilir miyim?

    ...& "\Dosya_" & Dosya_Adedi & ".csv") K1.SaveAs Filename:=ThisWorkbook.Path & "\Dosya_" & Dosya_Adedi & ".csv", FileFormat:=xlCSV, CreateBackup:=False K1.Close 1 Next XL_App.DisplayAlerts = True Set S1 = Nothing Set K1 = Nothing Set XL_App =...
  17. U

    Farklı Kaydet

    ...& ".csv" Set rngToSave = Range("A1:M100") rngToSave.Copy Set tempWB = Application.Workbooks.Add(1) With tempWB .Sheets(1).Range("A1").PasteSpecial xlPasteValues .SaveAs Filename:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False .Close End With err: Application.DisplayAlerts = True End Sub
  18. A

    Farklı Kaydet

    ...rngToSave.Copy Set tempWB = Application.Workbooks.Add(1) With tempWB .Sheets(1).Range("A1").PasteSpecial xlPasteValues .SaveAs Filename:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False .Close End With err: Application.DisplayAlerts = True
  19. U

    Farklı Kaydet

    ...rngToSave.Copy Set tempWB = Application.Workbooks.Add(1) With tempWB .Sheets(1).Range("A1").PasteSpecial xlPasteValues .SaveAs Filename:=myCSVFileName, FileFormat:=xlCSV, CreateBackup:=False .Close End With err: Application.DisplayAlerts = True End Sub
  20. A

    csv uzantı kaydetme

    ...& "\" & Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 1) & ".csv" Application.DisplayAlerts = False ActiveWorkbook.Save ActiveWorkbook.SaveAs Filename:=dosyaismi, FileFormat:=xlCSV Application.DisplayAlerts = True ActiveWorkbook.Close False Application.Quit
Üst