[Çözüldü]  makro ile birden çok winrar dosyasını sıra ile açmak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

makro ile birden çok winrar dosyasını sıra ile açmak

İleti#1)  yurttutan » 14 Haz 2022 18:15

Hocam meraba benim istediğim kısaca şöyle
Buradan sizin sitede daha önceleri açılmış konulardan winrar açma makrosunu alarak kendime uyarladım ama.
Fakat burada ben seçersem dosya açıp içindekini çıkarıyor.

benim istediğim

1-hepsini otomatik seçip dışarı çıkartsın
2- dosyalar dışarı çıktıktan sonra ise zip li yada winrarlı dosyaları silsin

hocam yardımlarınızı bekliyorum
Kullanıcı avatarı
yurttutan
Yeni Başlamış
 
Kayıt: 10 Şub 2017 13:01
Meslek: mali müşavir
Yaş: 52
İleti: 61
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Nevşehir

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: makro ile birden çok winrar dosyasını sıra ile açmak

İleti#2)  Tarkan VURAL » 16 Haz 2022 10:16

Merhaba,
Aşağıdaki kodu dener misiniz ? Dizin isimlerini değiştirmeniz gerekecek.

UYARI

RAR dosyalarınızın yedeğini alın ya da bu kodları yedek bir dizin üzerinde çalıştırın. Yahut da Kill satırını kaldırın, çünkü rar dosyalarınızı silecektir.



Kod: Tümünü seç
Sub WinrarDosyaCikart()
    Set evn = CreateObject("Scripting.FilesystemObject")
   
    KaynakHedef = "C:\Windows\Temp\RAR\"
    RARYolu = "c:\Program Files\WinRAR\winrar.exe"
   
    For Each dosyalar In evn.getFolder(KaynakHedef).Files
        If dosyalar.Name Like "*.rar" Then
            Shell RARYolu & " e " & dosyalar.shortPath & " " & KaynakHedef, vbNormalFocus
            Kill dosyalar.Path
        End If
    Next
    MsgBox "Tamamlandı. "
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 48
İleti: 27526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: makro ile birden çok winrar dosyasını sıra ile açmak

İleti#3)  yurttutan » 24 Haz 2022 18:20

hocam elleriniz sağlık ama hiç çalışmadı
Kullanıcı avatarı
yurttutan
Yeni Başlamış
 
Kayıt: 10 Şub 2017 13:01
Meslek: mali müşavir
Yaş: 52
İleti: 61
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Nevşehir

Cevap: makro ile birden çok winrar dosyasını sıra ile açmak

İleti#4)  Tarkan VURAL » 24 Haz 2022 18:28

Umarım kodlamayı olduğu gibi kullanmamışsınızdır. Ben kendime örnek olarak o yolu üretmiştim. KaynakHedef kısmında kendi rar dosyalarınızın yolunu tanımlamanız gerekir.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 48
İleti: 27526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: makro ile birden çok winrar dosyasını sıra ile açmak

İleti#5)  yurttutan » 25 Haz 2022 13:27

Kod: Tümünü seç
Sub WinrarDosyaCikart()
    Set evn = CreateObject("Scripting.FilesystemObject")
   
    KaynakHedef = ""C:\Users\TERM1\Desktop\E ARŞİV DOSYA" 'benim dosya yolum
    RARYolu = "C:\Program Files\WinRAR\winrar.exe"
   
    For Each dosyalar In evn.getFolder(KaynakHedef).Files
        If dosyalar.Name Like "*.rar" Then
            Shell RARYolu & " e " & dosyalar.shortPath & " " & KaynakHedef, vbNormalFocus
            Kill dosyalar.Path
        End If
    Next
    MsgBox "Tamamlandı. "
End Sub


hocam dosya yolum yukarıda yazdığım gibi ama çalışmadı
Kullanıcı avatarı
yurttutan
Yeni Başlamış
 
Kayıt: 10 Şub 2017 13:01
Meslek: mali müşavir
Yaş: 52
İleti: 61
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Nevşehir

Cevap: Cevap: makro ile birden çok winrar dosyasını sıra ile

İleti#6)  yurttutan » 27 Haz 2022 22:23

Tarkan VURAL yazdı:Umarım kodlamayı olduğu gibi kullanmamışsınızdır. Ben kendime örnek olarak o yolu üretmiştim. KaynakHedef kısmında kendi rar dosyalarınızın yolunu tanımlamanız gerekir.

hocam enim makinenin virüs proğramı sizin yazdığınız kodun çalışmasını engellemiş
indirilen dosyalarda virüs vardiye bloke etmiş o yüzden çalışmamış virüs taramaproğramı bloke etmiş
Virüs tarama proğramınıo kapatınca çok güzel çalıştı Virüs proğramı sonradan aklıma geldi
HOCAM ÇOK ÖZÜR DİLERİM
ELLERİNE SAĞLIK
HOCAM HAKKINI HELAL ET
GERÇEKDEN ÖZÜR DİLERİM
Kullanıcı avatarı
yurttutan
Yeni Başlamış
 
Kayıt: 10 Şub 2017 13:01
Meslek: mali müşavir
Yaş: 52
İleti: 61
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Nevşehir

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: makro ile birden çok winrar dosyasını sıra ile açmak

İleti#7)  Tarkan VURAL » 28 Haz 2022 09:32

Başarılar dilerim. Kolay gelsin.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 48
İleti: 27526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe