Sorgu için arama sonuçları: program files+winrar

Yani kod direkt çalışmaz ki. Kodda kendi yapınıza göre düzenleme yapmanız gerekiyor. SRC kaynak klasör, Dest: Hedef klasör Bu şekilde düzenlemeler yapanız gerekiyor. set src=Z:\Dsoft70\DATATS20 set dest=D:\yedek_2023 Ayrıca winrar programı Program Files klasöründe olmalı. Program Files x86...

Merhaba, Bende konuyu biraz araştırdım. Farklı bir teknik olarak Winrar programı aracılığı ile işlemin yapılabileceğini öğrendim. Sisteminizde WinRAR yüklü ise aşağıdaki kodu deneyebilirsiniz. Bende 64 Bit Winrar yüklü olduğu için aşağıdaki program yolunu kullandım. "C:\Program...

@https://www.excel.web.tr/members/korhan-ayhan.3553/ yedekleme konusunda bat dosyası hazırladım ve windows zamanlanmış göreve her sabah çalıştır dedim, gayet kullanışlı tavsiye ederim @echo off C: cd\ cd C:\Program Files\WinRAR rar a -r "D:\yedek\%date%--%TIME:~0,2%_%TIME:~3,2%.rar"...

Sub rar_hazırla() Dim yol As String, tx As Variant, a As Long, dosyalar As String, c Set c = CreateObject("scripting.filesystemobject") yol = Sheets("SABİTLER").[B1].Value If Right(yol, 1) = "\" Then yol = Left(yol, Len(yol) - 1) If c.FolderExists(yol) = False Then MsgBox "SABİTLER [B1] boş veya...

Sayın @PLİNT dosya ekte ve çalışmıyor. Benim değdigim gibi rar hazırla makrosu çalışır calismaz b1 deki yere kaydetse ilkin çünkü olmuyor bakın. Dosya ekte. Textbox21 de açılmadığı müddetçe olmayacak Mail Gönderme

Şöyle; _Örneğin "sabitler B3" te şöyle yazmalı ve "Documents" adlı bir klasör olmalı ki içine "Ekler" klasörünü oluşturup arşivlesin (onu kontrol edin) _Hazırlanacak "rar" dosyasının yolunu "Sheets("SABİTLER").[B1]" den alsın dediğinizi sanıyordum Sub kayıt() Dim ad As String, yeniad1 As...

Sayın @PLİNTçok özür dilerim sizi yine rahatsız ettim ama Windowsu sildim Windows 10 yaptım ofisi sildim ofis 2016 Tr 64 biti yeniden yükledim ama sorunum çözülmedi. Sizden istirham ediyorum tekrar bakma imkanınız var mı koda bu durumda kodu kullanamıyorum. rar_hazırla Sub () makrosu...

sayın @PLİNT son verdiğiniz kodlarla tamamen karıştı. Rar Hazırlayıp excelin Sabitler sayfasının B1 satırındaki adrese atacak ve Textbox14_Exıt olunca Textbox21 e toplu.rar şeklinde atmıyor artık textbox14 e sicil sazınca bilgiler mail adresi geliyor ama textbox21 e toplu dosya gelmiyor. Sub...

Sayın @PLİNT dosya üzerinde çok uğraştım ama hata veriyor. kendi kodlarımı da revize ettim textboxları gücelledim sizin kodlarla birleştirince olmadı. Userform açılmıyor Olmayınca sabah bir çok yeri formda sildim. yeniden textbox yaptım ama hala taha mesajı verince dosyayı size göndermenin...

"rar" lanacak dosya (veya dosyalar) bulunamazsa ihtimali içinde aşağıdaki gibi; ek yapılan kodları kullanın Private Sub CommandButton1_Click() 'MAİL GÖNDEREN BUTON Call rar_hazırla '.... '....kodlar '.... If textbox33 <> "" Then '<------------ .Attachments.Add...

Eğer "mail gönder" butonu ile "Textbox8-9-...33" aynı "userform" üzerinde ise yukarıdaki kodları sub rar_hazırla Dim yol As String, tx As Variant, a As Long, dosyalar As String, m as string yol = ThisWorkbook.Path tx = Array("8", "9", "10", "11", "12", "13") For a = 0 To UBound(tx) If...

O zaman sicil yazınca textbox27 'ye mail adresi ve diğer bilgiler mail gönderme formununa otomotik geliyor . Sub Textbox27_Change () olayının devamına kodlarını mı eklemem gerekiyor ki . Sicil yazınca hem istediğim bilgiler gelsin ki geliyor bununla beraber sicil yazınca textbox33 e Winrar...

Merhaba Aşağıdaki gibi olabilir Dim yol As String, tx As Variant, a As Long, dosyalar As String, m as string yol = ThisWorkbook.Path tx = Array("8", "9", "10", "11", "12", "13") For a = 0 To UBound(tx) If Me.Controls("TextBox" & tx(a)) <> "" And Dir(Me.Controls("TextBox" & tx(a)), vbDirectory)...

Sayın @Korhan Ayhan verdiğiniz kodu bir kaç gündür deniyorum. ama malesef sizin verdiğiniz kodu değiştirmeden kullanmama rağmen çalışmadı. Yardım etme imkanınız var mı acaba

Deneyiniz. Option Explicit Sub Klasor_Altindaki_Dosyalari_Winrardan_Cikart() Dim Yol As String, Dosya As String, Hedef As String Dim WinRar_Yolu As String, Cikartilan_Dosya As Variant WinRar_Yolu = "C:\Program Files\WinRar\" Yol =...

teşekkür ederim. gayet başarılı. sorunsuz çalışıyor saygılar

Belgelerim klasörüne yedeklemek için; Sub Test3() Set objShell = CreateObject("WScript.Shell") myDocuments = objShell.SpecialFolders("MyDocuments") Set objShell = Nothing SourceFolder = ThisWorkbook.Path DestDir = myDocuments & "\" & Format(Now, "dd-mm-yyyy hh-mm") &...

Masaütüne yedeklemek için; Sub Test2() Set objShell = CreateObject("WScript.Shell") myDesktop = objShell.SpecialFolders("Desktop") Set objShell = Nothing SourceFolder = ThisWorkbook.Path DestDir = myDesktop & "\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar" Shell...

öncelikle cevabınız için teşekkür ederim. ancak C de bu klasörü benim oluşturmam gerekiyor. kendim oluşturmadan yedek almıyor. ayrıca klasör ismini belgelerim olarak değiştirdiğimde ise yine yedek almıyor

C:\TestFolder klasörüne yedeklemek için ... Sub Test() SourceFolder = ThisWorkbook.Path DestDir = "C:\TestFolder\" & Format(Now, "dd-mm-yyyy hh-mm") & "Yedek.rar" Shell "C:\Program Files\WinRar\Rar.exe a -ep " & Chr(34) & DestDir & Chr(34) & " " & Chr(34) & SourceFolder & Chr(34)...