Makro ile Winrar Yaparken Farklı Dosya Adı Belirleme

[delipoyraz5353]

İyi günler
Forumda çok aramama rağmen çözemediğim bir sorunum var. Farklı sayfalardan makro ile alıp oluşturduğum çalışma sayfamın son halini ekledim. Kaydetme aşamasında;
1. Makro ile oluşturduğum çalışma kitabımı "610 Gelen +Sayfa1 B1 hücredeki tarih.csv" ve yol olarakta "D:\610\Excel\Winrar" kaydetmek istiyorum.
2. Bu .csv olarak kaydettiğim kitabı aynı isimle aynı klasörde winrarla sıkıştırmak istiyorum.
Yardım edenlere şimdiden gönüllerince mutluluklar.
Üyeliğim olmadığından dosyaları başka yere yükledim.
http://dosya.co/ly53amfjjvdp/610_Gelen.xlsm.html

 

[delipoyraz5353]

Bu konuda yardım edebilecek kimse yok mu ?

 

[fireman64]

Dosyanız ektedir.

İndir

 

[delipoyraz5353]

Fireman64 yardımınızdan ötürü teşekkürler. Ama 2 tane sorun var.
1. Oluşturulan Winrar sadece excel dosyamı sıkıştırmasını istiyorum. Fakat dosyanın olduğu klasörlerde sıkıştırılıyor. Örneğin bu dosyamda 610 içinde Excel klasörü olarak çıkıyor.
2. Bu işlemi makroyla yapamayız mı ? User Form olmadan çözüm olamaz mı

 

[fireman64]

Gerekli güncellemeler yapıldı üst mesajdan tekrar indirebilirsiniz.

 

[delipoyraz5353]

Fireman64 göstermiş olduğunuz ilgi için gönlünüzden geçen tüm iyilikler sizinle olsun .

 

[delipoyraz5353]

Tekrar merhaba ustalar bu forumdan aldığım yardımlarla böyle bir kod oluşturdum ama dosyamın olduğu konumda sıkıştırma yapıyorum ama sıkıştırma yaparken klasörleri de içine alıyor yanı;
dosya = D:\610_Gelen\610\610_Gelen_24032016.CSV
ayni klasörde sadece 610_Gelen_24032016.CSV dosyasını sıkıştırmasını istiyorum. Yukarıdaki mesajlardaki kodlarda da klasörler iç içe çıkıyor.

Bu kodlara nasıl bir düzeltme yapmam lazım ki klasörleri içermesin forumda ( A ) yerine (-EP ) kullandığım da sonuç alamadım.


Sub Winrar_Yap()
ad = Sheets("Frekans").Range("F9")
yol = Sheets("Frekans").Range("F8")
Shell "C:\Program Files\WinRAR\WinRAR.exe A " & yol & " " & ad
End Sub

 

[Zeki Gürsoy]

Ekteki Winrar (Türkçe) yardım dosyasından faydalanabilirsiniz. "Komut satırı" bölümünü okuyun.

Dosyayı buradan indirebilirsiniz.

http://www.excel.web.tr/derres/zeki/WinRAR_help.zip

 

[delipoyraz5353]

Zeki bey ve diğer yardım eden ustadlar teşekkürler. Gösterdiğiniz yolla sonuca vardım. Başka arkadaşlara da lazım olur diye kodun son hali;

Sadece belirttiğiniz dosyayı sıkıştırıyor.

Sub Winrar_Yap()
ad = Sheets("Frekans").Range("F9")
yol = Sheets("Frekans").Range("F8")
VBA.Shell "C:\Program Files\WinRAR\WinRAR.exe A -r -ep1 " & yol & " " & ad
End Sub