Sorgu için arama sonuçları: SaveAs

dosyaAdı = kitaba.Worksheets("RAPOR").Range("L9").Value & "_" & _ kitaba.Worksheets("RAPOR").Range("D9").Value kitaba.SaveAs yol & "\" & dosyaAdı, 56 kitaba.Close Bu kodda, & işleci, L9 ve D9 hücre değerlerini birleştirmek için kullanılır. Örneğin, L9'da "Rapor" ve D9'da...

...End If 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 With End Sub...

...& "") Do While strTest <> "" Tagesdatum = Tagesdatum & ".xlsm" dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Sicherung strTest = Dir(dname & ".xlsm") Loop ActiveWorkbook.SaveAs dname & ".xlsm" ActiveWorkbook.Close End Sub

Cevabınız için teşekkür ederim, istediğim gibi Belgelerim klasörüne dosyayı kaydetmiyor fakat ortak ağdaki yere şuan sadece 07_03_2024_12_52 şeklinde kayıt yapıyor ve 1 tanede yedek_07_03_2024_12_52 oluşturuyor. Yedek oluşturmasını istemiyorum to_do_list_07_03_2024_12_52 bu şekilde olmasını...

...& Sicherung strTest = Dir(dname & ".xlsm") Loop ActiveWorkbook.SaveAs dname & ".xlsx" If Err.Number <> 0 Then MsgBox "Yedek alma işleminde hata oluştu: " & Err.Description Else MsgBox "Yedek alma işlemi başarıyla tamamlandı." End If ActiveWorkbook.Close End Sub Paylaşılan kodda...

...Tagesdatum = Application.Text(Now(), "-mm-dd-yy hh-mm") Sicherung = "To-do-list" & Tagesdatum & ".XLSM" ActiveWorkbook.SaveAs Sicherung Dim dname As String, strTest As String dname =...

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