Sorgu için arama sonuçları: xlCSV

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

...Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False ChDir "D:\" ActiveWorkbook.SaveAs Filename:= _ "D:\SURE.csv", FileFormat:=xlCSV, _ CreateBackup:=False End Sub

...hazırladığım en sonunda da bu kod var " b = "SMS 55 BM " & Format(Range("A30"), "yyyymmdd") ActiveWorkbook.SaveAs Filename:=b, FileFormat:=xlCSV, CreateBackup:=False " Birde makroya bu satırı ilave etmek istiyorum " D:\Depo\Say\RAPORLAR\BM " klasörü içine kaydetsin makro buraya...

Bu kitabı "J2" hücresindeki isimle D:\ECZANELER içine "csv" dosyası olarak kaydet. Workbook.SaveAs Filename:="D:\ECZANELER\& Worksheets("SONUÇ").Range("J2")&".csv", _ FileFormat:=xlCSV, CreateBackup:=False Yardımlarınıza ihtiyacım var.