Sorgu için arama sonuçları: SaveAs

...wbKaynak.Close SaveChanges:=False ' Hedef dosyayı yeni isimle (.xlsm) kaydet Application.DisplayAlerts = False wbHedef.SaveAs Filename:=yeniDosya, FileFormat:=52 Application.DisplayAlerts = True ' Eğer eski dosya adı/uzantısı farklıysa (test.xlsx gibi), onu şimdi...

Hocam böyle bir hata alıyorum.

Deneyip sonucu yazacağım hocam. Teşekkür ederim 🙏

...& "test.xlsx") Application.DisplayAlerts = False If Dir(hedefDosya) <> "" Then Kill hedefDosya wbHedef.SaveAs Filename:=hedefDosya, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.DisplayAlerts = True kaynakCodeName =...

....DeleteLines 1, .CountOfLines .AddFromString kaynakKod End With ' XLSM olarak kaydet wbHedef.SaveAs Filename:=masaustu & "test2.xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled wbKaynak.Close False wbHedef.Close True MsgBox...

...ChDir Environ("USERPROFILE") & "\Desktop\Başka dosyaya makro atama" ActiveWorkbook.SaveAs Filename:= _ Environ("USERPROFILE") & "\Desktop\Başka dosyaya makro atama\Test2.xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False...

...Dosya açacak ve kayıt yapacak Şu şekilde bitiyor ChDir "C:\Users\muratgunay48\Desktop\RAPORLAR\ALINAN RAPORLAR" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\muratgunay48\Desktop\RAPORLAR\ALINAN RAPORLAR\DETAYLI RAPOR.xlsx", _ FileFormat:=xlOpenXMLWorkbook...

Geç gördüm cevabınızı. Teşekkürler destek için

...TempFileName = isim Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To =...

Sayın @muhasebeciyiz teşekkürler, buda alternatif güzel bir çözüm. Mail gitmeden önce yüklenmiş olarak ekranda, gönder olayını manuel yapıyoruz. Mail üzerinde değişiklik yapılabiliyor.

...= ".xlsb": FileFormatNum = 50 End Select End If TempFilePath = Environ$("temp") & "\" TempFileName = isim Destwb.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum Set OutApp = CreateObject("Outlook.Application") Set OutMail =...

Sayın @mustafa1205 sanırım olmuş. Teşekkürler. Sanırım dememin sebebi benim şahsi bilgisayarımdaki mail hesaplarındaki bir anlamsız sıkıntı ile ilgili. Sadece excel dosyası içeren mailler gönderebiliyorum kendime. Ancak trafikte bekleyen eski mailler geliyormuş gibi durum var. Emin...

...= 50 End Select End If ' Geçici klasöre kaydet TempFilePath = Environ$("temp") & "\" TempFileName = isim Destwb.SaveAs TempFilePath & TempFileName & FileExtStr, _ FileFormat:=FileFormatNum ' Outlook mail Set OutApp =...

...Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, _ FileFormat:=FileFormatNum On Error Resume Next ' Change the mail address and subject in the...

Çok teşekkür ederim. Korhan Hocama teşekkür ederken vakit kaybetmişim, cevabınızı yeni gördüm. Her iki kodu ayrı ayrı denedim, gayet güzel çalışıyor, sağolun.

Yine KORHAN Hocam. Çok teşekkür ederim.

...filePath = folderPath & "ÖIŞIK-2025" & "_" & Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, FileFormat:=xlCSV, CreateBackup:=False, Local:=True newWb.Close SaveChanges:=False Next startRow Application.DisplayAlerts = True...

...oluştur filePath = folderPath & baseName & "_" & Format(partIndex, "00") & ".csv" ' CSV olarak kaydet newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, _ Local:=True...

...filePath = folderPath & "ÖIŞIK-2025" & "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, local:=True newWb.Close SaveChanges:=False Next...

...Set wbYeni = dictDosya(key) wbYeni.Sheets("Veriler").Columns("A:H").AutoFit Application.DisplayAlerts = False wbYeni.SaveAs Filename:=key & ".xlsx", FileFormat:=51 Application.DisplayAlerts = True wbYeni.Close False Next key MsgBox "İşlem...