Sorgu için arama sonuçları: SaveAs

...= .Range("I" & i).Value dosyaAdı = kitaba.Worksheets("RAPOR").Range("L9").Value kitaba.SaveAs yol & "\" & dosyaAdı, 56 kitaba.Close End With Next On Error GoTo 0 With Application .ScreenUpdating = True .DisplayAlerts = True End...

Merhaba, Eğer anladığım şekilde çalıştırdığınız Excel dosyası Çalışma İzni isimli dosyanın içindeyse ThisWorkbook.Path koduyla klasör yolunu aldırabilirsiniz. .SaveAs ThisWorkbook.Path & "\" & klasor & "\" & isim & ".xls"

...bir sıkıntım var. Tabloyu her zaman benim bilgisayarımda ya da benim oturumumda kullanmıyoruz. yol belirtmeden kaydetme şansımız var mı ? .SaveAs "\\ab12006-0060\PERSONEL ORTAK2\Fazla Çalışma İzni\" & klasor & "\" & isim & ".xls" Tablom Fazla Çalışma İzni isimli klasörün içerisinde duruyor...

yol dan kaynaklı bir sorun olabilir. Buradaki bilgiyi yol = Environ("USERPROFILE") & "\Desktop" Bu şekilde değiştirip deneyebilir misiniz. yol ="C:\deneme"

...Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56 Application.DisplayAlerts = True wbkopya.Close Sheets("HAFTALIK").Protect Password:="55" End Sub

...& "\Desktop" If Not fso.FileExists(yol) Then On Error Resume Next MkDir (yol) On Error GoTo 0 End If Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56 Application.DisplayAlerts = True wbkopya.Close End Sub

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