Sorgu için arama sonuçları: xlCSV

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

...yapıyor. Bunun Nedeni Ne acaba???? Sheets("10 GÜNLÜK").Select ChDir "C:\Documents and Settings\,,,,,,\Desktop" ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\,,,,,\Desktop\10 GÜNLÜK.csv", FileFormat:=xlCSV, _ CreateBackup:=False Sheets("ana").Select

...yapıyorum, en sonunda csv formatında kaydetmem gerekiyor ActiveWorkbook.SaveAs Filename:="C:\users\x\desktop\WS102B.TXT", FileFormat :=xlCSV, CreateBackup:=False makronun kodunu en son bu şekilde yazıyorum ancak kaydettikten sonra csv değilde txt olarak kaydediyor. benmi hata yapıyorum...

...Calistigim sayfada kalmasini istiyorum Ornek Batch Report.xls dosyasi acik ve ben ActiveWorkbook.SaveAs Filename:="NEWFILE", FileFormat:=xlCSV dersem Serhat.xls kapaniyor ve NEWFILE.csv dosyasi aciliyor. Ben ise Batch Report.xls dosyasinin kapanmasini istemiyorum. Yardimlarinizi acil...