Bulunduğu klasörü aç - açılan excel dosyasını kapat

[dgdizayn]

Merhabalar,

Aşağıdaki kod ile, bir excel dosyasını seçip o dosyanın açık olan sayfasındaki bilgileri alıp, açık olan excel sayfama yapıştırıyorum. Burada talep ettiğim iki konu var.

1-Dosya seçtiğim zaman sürekli "C:\" dizini açılıyor. Bu konuda bir çok araştırma yaptım hangi kodu yazdıysam bir türlü, nerede bulunuyorsa makro çalışacak dosya o klasörü açmıyor. Örneğin deneme.xlsm c:\0001\yeni klasor altında ise, dosya aç dediğimde sürekli c:\ dizini açıyor. Bunu sadece bulunduğu klasörü aç yapabilir miyiz.
2-Makro ile çalıştırınca seçtiğim dosyadan verileri alıp kopyalıyor fakat kopyaladıktan sonra bu excel dosyası kapansın istiyorum. Mümkün müdür.

Bu konuda ivedi yardımlarınızı bekliyorum. Şimdiden emeği geçen herkese teşekkür ederim.

Kod

ChDir "C:\"
dosya = Application.GetOpenFilename(FileFilter:="," & _
        "*.xls;*.xlsx;", Title:="Dosya seçimi yapınız")
        Workbooks.Open dosya
        Cells.Select
    Selection.Copy
    If dosya = False Then ' eğer vazgeçe basarsanız
        MsgBox "Dosya seçme işleminden vazgeçildi"
        Exit Sub
        End If
        Windows("Deneme.xlsm").Activate
    Sheets("Sayfa").Visible = True
    Sheets("Sayfa").Select
    Cells.Select
    Range("A1").Activate
    ActiveSheet.Paste

 

[YUSUF44]

Bulunulan klasörü açmak için ilk satırı aşağıdaki gibi deneyin:

ChDir ActiveWorkbook.Path

Dosyayı kapatmak için uygun bir yere (Paste satırından sonra olabilir):

dosya.close

satırını ekleyip deneyin.

 

[dgdizayn]

Bulunulan klasörü açmak için ilk satırı aşağıdaki gibi deneyin:

ChDir ActiveWorkbook.Path

Dosyayı kapatmak için uygun bir yere (Paste satırından sonra olabilir):

dosya.close

satırını ekleyip deneyin.

Yusuf hocam selamlar,
Bu kodları denemiştim daha önce malesef bunlar çalışmadı. ChDir ActiveWorkbook.Path bu komutta sürekli belgelerim klasörünü açıyor. dosya.close Bu kodda ise dosyayı seçip yapıştırıyor ve sonrasında makro end hatasını geçiyor duruyor.

Benim açtığım dosyalar hep T2* ile başlıyor. Acaba T2* ile başlayan excel dosyasını kapat olabilir mi alternatif olarak. Teşekkürler.

 

[YUSUF44]

O anda aktif olan dosya Belgelerim Klasöründe olduğu için olabilir mi?

Dosyalarınızı makrolu haliyle paylaşırsanız biz de deneyebiliriz.