Sorgu için arama sonuçları: xlCSV

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.

Merhabalar, Bir çok kişinin aradığı ve halen çözümü olmayan (cep tlf yazılımı üreten firmalarınında yapmadığı) cep telefonu renberini excele çıkartıp düzenleyip tekrar yükleme konusunda bir yol üzerinde yardımınıza ihtiyacım var. Cep teefonundan rehberi virgülle ayrılmış cvv formatında...

...Sheets("Sonuç").Select Sheets("Sonuç").Copy ActiveWorkbook.SaveAs Filename:=adres & "\" & isim & ".csv",FileFormat:=xlCSV, CreateBackup:=False Her çalıştırdıımda sayfayı csv uzantılı kaydediyor.Yalnız şöyle bir problem var.Bu dosyayı java tabanlı bir programda okutuyorum.Dosyanın...

...yazıp dosya ismi yazacağım yerede Filename:=isim doğru bir kodmudur uzun uğraş sonucu istediğim sonuca ulaştım sıkıntı bir kod eksikliğindenmiş buyrun Dim dosya As String dosya = ActiveWorkbook.Name ActiveWorkbook.SaveAs "E:\ADRESLER\" & dosya & ".csv", FileFormat:=xlCSV, CreateBackup:=False