Sorgu için arama sonuçları: SaveAs

Merhaba, Aşağıdaki şekilde dener misiniz? Sub Kaydet() ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & ".xlsm" End Sub

Merhaba, Dosya adının ne olması gerektiğini ( " Konya" terifedir " ifadesini) tam olarak anlamadım. Aşağıdaki kod satırı, dosyanızı dosya adı yarınki tarih olarak kayıt eder. ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & ".xlsm"

Birden fazla excel sayfası var, bunları farklı kullancılar dolduruyor. Ben tek bir excel sayfasında görmek istiyorum bu mümkün mü?

...dosyasını alın acilan_dosya.Close dosya = Dir Loop ' Birleştirilmiş veri dosyasını kaydedin birlesmis_veri.SaveAs "C:\Users\root\Desktop\doymix\birlesmis_excel.xlsx" ' Birleştirilmiş veri dosyasını kapatın birlesmis_veri.Close False...

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

Merhaba, Ben dizin belirleme kodlarında "\" zaten ekledim Siz dosyayı saveas yaparken "\" silerseniz sanırım sonuca ulaşırsınız. kitaba.Worksheets("RAPOR").Range("D9").Value kitaba.SaveAs yol & dosyaAdı, 56 kitaba.Close gibi. Dediğim gibi kodları baştan sona incelemedim, dosya...

...Kod bloğunuzu; dosyaAdı = kitaba.Worksheets("RAPOR").Range("L9").Value & "_" & _ kitaba.Worksheets("RAPOR").Range("D9").Value kitaba.SaveAs yol & "\" & dosyaAdı, 56 kitaba.Close Aşağıdaki ile değiştirerek dener misiniz? dosyaAdı =...

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

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