Sorgu için arama sonuçları: SaveAs

Korhan Hocam Aşağıda makro kullanarak farklı kaydet seçeneği ile yedek dosyayı kayıt ediyor ChDir "C:\MUHASEBE PROĞRAM" ActiveWorkbook.SaveAs Filename:= _ "C:\MUHASEBE PROĞRAM\DOĞA BELLONA SATIŞ TAHSİLAT PROĞRAMI V3 222.xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled...

...ekle2 + 1 Next i son1 = CreateObject("Scripting.FileSystemObject").getfolder(Kaynak).Files.Count + 1 dosya_adi = Kaynak & "\" & "word dosya" & son1 & ".ppt" pptPres.SaveAs dosya_adi pptApp.Quit Set pptPres = Nothing Set pptApp = Nothing Windows(dosya_adı).Activate MsgBox "işlem tamam"...

...top1 = 20 Next i son1 = CreateObject("Scripting.FileSystemObject").getfolder(Kaynak).Files.Count + 1 dosya_adi = Kaynak & "\" & "word dosya" & son1 & ".ppt" pptPres.SaveAs dosya_adi pptApp.Quit Set pptPres = Nothing Set pptApp = Nothing Windows(dosya_adı).Activate MsgBox "işlem tamam"...

...If Next Picture son1 = CreateObject("Scripting.FileSystemObject").getfolder(Kaynak).Files.Count + 1 dosya_adi = Kaynak & "\" & "word dosya" & son1 & ".ppt" pptPres.SaveAs dosya_adi pptApp.Quit Set pptPres = Nothing Set pptApp = Nothing Windows(dosya_adı).Activate MsgBox "işlem tamam"...

...End If Next Picture pptApp.Visible = True son1 = CreateObject("Scripting.FileSystemObject").getfolder(Kaynak).Files.Count + 1 dosya_adi = Kaynak & "\" & "word dosya" & son1 & ".ppt" pptPres.SaveAs dosya_adi pptApp.Quit Set pptPres = Nothing Set pptApp = Nothing MsgBox "işlem tamam" End Sub

çok Teşekkür ederim Hailt Hocam, iyiki varsınız ! bir şey daha istesem çok olur mu acaba? Burada Word Dosyası yerine Power point ' e veri göndermek istesek bu yapılabilir mi acaba? Aynı şekilde word sayfaları yerine power point sunularına atmak tekrar teşekkürler, iyi çalışmalar.

...say = 0 sat = sat + 6 End If End If Next Picture son1 = CreateObject("Scripting.FileSystemObject").getfolder(Kaynak).Files.Count + 1 dosya_adi = Kaynak & "\" & "word dosya" & son1 & ".doc" wrdApp.ActiveDocument.SaveAs dosya_adi End With wrdDoc.Close wrdApp.Quit MsgBox "işlem tamam"...

...hedefKlasor = ThisWorkbook.Path & "\" For Each ws In ThisWorkbook.Sheets sayfaAdi = ws.Name dosyaAdi = hedefKlasor & sayfaAdi & ".xlsx" Sheets(sayfaAdi).Copy ActiveWorkbook.SaveAs dosyaAdi ActiveWorkbook.Close False Next ws End Sub

...= Format(Now, "hh.mm.ss") Set ws1 = Sheets(Format(Now, "hh.mm.ss")) ' Excel dosyasını kaydet ws1.Copy ActiveWorkbook.SaveAs "C:\" & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xlsx" ActiveWorkbook.Close False ' CSV dosyasını kaydet...

...= ActiveSheet.UsedRange.Value----- Filename = "C:\ " & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xlsx" ActiveWorkbook.SaveAs Filename, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close False Set TargetWorkbook = CreateObject("Excel.Application") TargetWorkbook.Workbooks.Add...

...2)).Value = bslk .Range("A2").Resize(UBound(dz), UBound(dz, 2)).Value = dz .Columns("A:H").AutoFit End With b = b + 1 w1.SaveAs Filename:=yol & "Stok" & b & ".xls", FileFormat:=xlExcel8 w1.Close 0 Next Application.ScreenUpdating = True MsgBox "İşlem tamam" End Sub

...' Dizin yoksa oluştur If Not fs.FolderExists(folderPath) Then fs.CreateFolder folderPath End If ' Taslağı belirli dizine kaydet mailItem.SaveAs folderPath & "\" & "ExcelToPDFDraft.msg" ' Nesneleri serbest bırak Set fs = Nothing End Sub

...As String DosyaAdi = Format(Date, "dd mmmm yyyy dddd") & " " & " - TEST " & ".xlsb" ActiveWorkbook.Save ThisWorkbook.Save ThisWorkbook.SaveAs Filename:="C:\Users\Monster\Desktop\PROJE TEST\" & DosyaAdi, FileFormat:=xlExcel12 Call ANATABLOYAGIT Call Delete_Module ActiveWorkbook.Save...

Eğer hem orijinal dosyadaki kodları silmek ve hem de farklı kaydet ile bir kopyasını almak isterseniz. ThisWorkbook.SaveAs Filename:="d:\Desktop\" & DosyaAdi, FileFormat:=xlExcel12 satırını silmeyin aşağıdaki gibi bir üst satırda dosyayı kaydedebilirsiniz. ThisWorkbook.Save ThisWorkbook.SaveAs...

Module32 de bulunan "FARKLIKAYDETTEST" kodu içinde bulunan ThisWorkbook.SaveAs Filename:="d:\Desktop\" & DosyaAdi, FileFormat:=xlExcel12 Satırı dosyayı masaüstüne farklı kaydediyor. Orijinal dosyadaki kodların hiçbiri silinmemiş oluyor. Orijinal dosyayı farklı kaydetmek yerine normal kaydetmek...

Merhaba sayın hocam bu kodu çalıştırdığımda sadece son sayfaki veriyi ayrı sayfaya kaydediyor. Diğer sayfalar hiç olmuyor. Bir yerde mi yanlışlık yapıyorum acaba? Teşekkürler şimdiden.

...= Sheets("MKTT").Range("b5").Value & " " & Sheets("MKTT").Range("b6").Value & " " & Sheets("MKTT").Range("b7").Value & " " & Sheets("MKTT").Range("b8").Value Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56 Application.DisplayAlerts = True wbkopya.Close

...Error GoTo 0 ' Hedef dosya yoksa oluştur If hedefKitap Is Nothing Then Set hedefKitap = Workbooks.Add hedefKitap.SaveAs dosyaYolu End If Dim satir As Long Dim hedefSatir As Long Dim ws As Worksheet ' Her bir çalışma kitabını kontrol...

Ömerbey hocam, Doğru mu anladım.ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(DateAdd("M",-1,Date), "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True Yok eğer bu tanım değişkenler tanımlanırken yapılacak ise hangi satırda. Bu iş ne kadar bildiğimi\bilmediğimi şöyle...

Merhaba, Dosyanız bu satırda isimlendirilip kaydediliyor. Buradaki Date ifadesinde değişiklik yapmanız gerekiyor. ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True Bir ay öncesi için DateAdd("M",-1,Date) ifadesini...