Sorgu için arama sonuçları: xlCSV

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

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

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

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

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

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

...& "\" & 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 End Sub

...ActiveSheet.Copy Set gecicikitap = ActiveWorkbook With gecicikitap .SaveAs Filename:=dosyam, FileFormat:=xlCSV, CreateBackup:=False .Close End With hata: Application.DisplayAlerts = True End Sub Not: Yukarıdaki kodda; Çalıştığınız ilk sayfa "Sayfa1" Aktarma...

...If Range("a3") = "Unvan:" Then ActiveWorkbook.SaveAs Filename:="C:\Users\...\Desktop\FinansBank.csv", _ FileFormat:=xlCSV, CreateBackup:=False ElseIf Range("b8") = "xxxx" Then ActiveWorkbook.SaveAs Filename:="C:\Users\...\Desktop\fiba.csv", _...

...belirlenen dosyayı oluşturma imkanı tasın isteriz. Aşağıdaki kod da "Arif" Yazılı yer her bilgisayarın adına esnek olabilir mi? " ChDir "C:\Users\Arif\Desktop" ActiveWorkbook.SaveAs Filename:="C:\Users\Arif\Desktop\xxCsv.csv", _ FileFormat:=xlCSV, CreateBackup:=False "