Sorgu için arama sonuçları: xlCSV

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

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

...Columns.AutoFit Say = Say + 1 ActiveWorkbook.SaveAs File_Path & "\" & Say & "_egitim_matrahin_icinde_8-18.csv", xlCSV ActiveWorkbook.Close 0 End If Next On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0...

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

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

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

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

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

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