dosya kapama ve silme

[GursoyC]

Merhaba arkadaşlar,

A.xls dosyasından bir alan kopyalıyorum.

B.xlsm dosyamdaki bir düğmeye atadığım makro ile işlemleri yaptırıyorum. İşlem sonunda A.xls dosyasını kapatıp silmesini istiyorum.
Kodlarımı şu şekilde yazdım ancak hata veriyor. Çok araştırdım, kodda hata olduğunu sanmıyorum ama hatanın ne olduğunu da anlayamadım. Yardımcı olur musunuz?

Teşekkürler.

[COLOR="Red"]Workbooks("C:\Users\LPR-Office\Downloads\A.xls").Close Savechanges:=False[/COLOR]
Workbooks("C:\Users\LPR-Office\Downloads\A.xls").Delete

 

[AdemCan]

Merhabalar;
Dosya silmek için Workbooks("C:\Users\LPR-Office\Downloads\A.xls").Delete satırını şu şekilde değiştiriniz.

Kill "C:\Users\LPR-Office\Downloads\A.xls"

 

[GursoyC]

İlginize teşekkür ederim.
Yalnız tabi ilk hata satırı Close satırı olduğundan o satıra daha geçemeden durum düzelmiyor maalesef.

 

[AdemCan]

Merhabalar;
Kapatma satırını şu şekilde değiştiriniz. Açık olan A.xls dosyasını kaydetmeden kapatır.

Windows("A.xls").Close False

 

[GursoyC]

Maalesef yine hata verdi.

 

[askm]

Dosyanızı paylaşma imkanınız var mı?

 

[AdemCan]

Merhabalar;
Benim denemelerimde hata vermiyor.
Dosya kapalıyken deniyorsanız On Error Resume Next satırını ekleyiniz. Bu şekilde Dosya kapalıyken de siler.

On Error Resume Next
Windows("A.xls").Close False
Kill "C:\Users\LPR-Office\Downloads\A.xls"

 

[GursoyC]

Sayın Faye_Efsane, Sayın askm,
ilginize teşekkürler. Sorun çözüldü. Ben Close komutunda "C:\Users\LPR-Office\Downloads\A.xls" şekilde yazdığım için hata alıyormuşum.

Windows("A.xls").Close False

Şeklinde yazınca durum düzeldi.
Çok teşekkürler, saygılar.

 

[AdemCan]

Merhabalar;
Rica ederim, iyi çalışmalar. Saygılarımla.