Sorgu için arama sonuçları: SaveAs

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

...Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In ThisWorkbook.Worksheets ws.Copy ws_name = ws.Name ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws_name ActiveWorkbook.Close Next ws Application.DisplayAlerts = True End Sub Sıra Özellik Açıklama Miktar Birim...

. Teşekkür ederim.

...Range("A1").Select Columns.AutoFit Say = Say + 1 ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.Close 0 End If Next...

...Range("A1").PasteSpecial Range("A1").Select Columns.AutoFit Say = Say + 1 ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.Close 0...

...+ 1 dosya_adi = ThisWorkbook.Path & "\word dosya" & " " & sat1 & ".doc" wrdApp.ActiveDocument.SaveAs dosya_adi wrdDoc.Close wrdApp.Quit SaveChanges:=wdSaveChanges Set klasor = Nothing MsgBox "işlem tamam" Else atla: MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"...

Evet, sonuç dört dörtlük tamam. Yardımcı oldunuz, çok teşekkür ederim.