Açtığım dosya ve klasörü nasıl kapatırım?

[KARTAL06]

Alttaki kod ile açtığım klasör ve çalışmakitabını kod ile nasıl kapatırım?
Workbooks.Open Filename:= _
"D:\NEUSON RAF\SİPARİŞ\SİP.HAZIR\" & ActiveSheet.Range("e2")

 

[Zeki Gürsoy]

Merhaba,

Açılan dosyayı hafızada tutarak kolayca kapatabiliriz.

Boş bir modulde test edin.

Private wb As Workbook

Sub dosya_ac()
    Set wb = Workbooks.Open( _
        "D:\NEUSON RAF\SİPARİŞ\SİP.HAZIR\" & ActiveSheet.Range("e2"))
End Sub

Sub dosya_kapat()
wb.Close

Set wb = Nothing
End Sub

 

[KARTAL06]

Denedim olmadı

Yada şunu yapabilirmiyiz makroyu kaydettiğimiz dosya haricindeki tüm açık xls. dosyalarını kapatsın.

 

[Zeki Gürsoy]

Yada şunu yapabilirmiyiz makroyu kaydettiğimiz dosya haricindeki tüm açık xls. dosyalarını kapatsın.

Dosyalar kaydedilmeden kapanacaksa "True" olan kısmı "False" olarak değiştirin.

Dim wb as Workbook

For Each wb in Workbooks
   If Not wb.Name = Thisworkbook.Name then
         wb.Close [COLOR=Blue][B]True[/B][/COLOR]
   End if
Next

 

[KARTAL06]

Tamam oldu

Teşekkür ederim.