Sorgu için arama sonuçları: SaveAs

Merhaba, Kullandığınız kodun farklı kaydet satırına "local:=True" eklemeniz yeterli olacak. Şu şekilde deneyin. newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, local:=True

...Columns.AutoFit Say = Say + 1 'BU KOD ÇALIŞIYOR, ALTTAKİNİ DENEYECEĞİZ ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" &...

Maalesef yine text dosyası gibi kaydetti. Tek sütunlu kayıt yaptı. İlginize teşekkür ederim. Önerilerinizi bekliyorum. Kesinlikle acil değil.

...filePath = folderPath & baseName & "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False newWb.Close SaveChanges:=False Next startRow...

...filePath = folderPath & baseName & "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False newWb.Close SaveChanges:=False Next startRow...

...Filename:=Kitap_Adı Else deg1 = 1 deg2 = 1 Workbooks.Add For i = Sheets.Count To 2 Step -1 Worksheets(i).Delete Next ActiveWorkbook.SaveAs Filename:=Dosya_Yolu & "\" & Sayfa_Adı, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End If For k = 1 To 2 S2.Range("C3:C5").ClearContents...

...Taslak.Copy After:=WB.Sheets(WB.Sheets.Count) WB.Sheets(WB.Sheets.Count).Name = Taslak.Range("A2").Value WB.SaveAs File_Path & "DENEME.xlsx", xlOpenXMLWorkbook WB.Close Set Taslak = Nothing Set S1 = Nothing Set WB = Nothing Set FSO = Nothing With...

...Len(isim)) Then say = say + 1 End If Next If say > 0 Then isim = isim & say ActiveSheet.Name = isim Sheets(1).Select ActiveWorkbook.SaveAs Kitap_Adı ActiveWorkbook.Close False Application.DisplayAlerts = True Else S2.Copy Application.DisplayAlerts = False ActiveSheet.Name = isim...

...= isim Dosya_Yolu = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & "\EXCEL\" & Kitap_Adı Application.DisplayAlerts = False ActiveWorkbook.SaveAs Dosya_Yolu ActiveWorkbook.Close False Application.DisplayAlerts = True Set S2 = Nothing Application.ScreenUpdating = True...

...= S1.Range("C9:C10").Value WB.Sheets(2).Name = S1.Range("A7").Value WB.Sheets(1).Select WB.SaveAs File_Path & "DENEME", xlOpenXMLWorkbookMacroEnabled WB.Close Set S1 = Nothing Set WB = Nothing Set FSO = Nothing With Application...

...olarak Downloads klasörümün altına kaydettim. Sheets("TASLAK").Select Sheets("TASLAK").Copy ChDir "C:\Users\cakma\Downloads" ActiveWorkbook.SaveAs Filename:="C:\Users\cakma\Downloads\deneme1.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False...

...& "\EXCEL\" & Kitap_Adı Application.DisplayAlerts = False ActiveWorkbook.SaveAs Dosya_Yolu ActiveWorkbook.Close False Application.DisplayAlerts = True Set Dosya_Sistemi = Nothing Set S1 = Nothing Set S2 = Nothing Application.ScreenUpdating =...

Bu hali benim açımdan çok daha kullanışlı oldu, teşekkürler zahmetiniz için.

Teşekkürler,

...For Each ws In wbRapor.Sheets ws.UsedRange.Value = ws.UsedRange.Value Next ws ' Raporu kaydet ve kapat wbRapor.SaveAs Filename:=RaporYolAd, FileFormat:=xlOpenXMLWorkbook wbRapor.Close SaveChanges:=False Application.DisplayAlerts = True...

...& "\" & Worksheets("Data").Range("K2").Value & "-" & Worksheets("Data").Range("K4").Value & " MASRAF FORMU" & ".xlsx" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=DosyaAD, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False UserForm3.Show

...baslangicSatir & ":Z" & bitisSatir).Copy _ Destination:=yeniWB.Sheets(1).Range("A2") ' CSV olarak kaydet yeniWB.SaveAs Filename:=klasorYolu & "Kitap_" & bolumNo & ".csv", FileFormat:=xlCSV yeniWB.Close SaveChanges:=False bolumNo = bolumNo + 1...

A:A Sütununda tarih verileri var. Tarih formatını hangi satırda tanımlasam sorun olmaz. Tarih Formatı kodu : Columns("A:A").Select Selection.Replace What:="-", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _...

Korhan hocam, Satır sayısını 120 den 400'e dönüştürdüm. Sorun yok. Son sütunu K olarak değerlemişsiniz, Veri = Range("A1:K" & Son).Value şöyle değiştirdim, Veri = Range("A1:S" & Son).Value yeterli olmadı. Yine son sütunu K sütunu olarak görüyor. Nasıl değiştirebilirim. Teşekkür ederim.

Teşekkür ederim ilginiz için Makroyu çalıştırdığın Sarı ile işaretlediğim yerlerde yanlış toplam geliyor