Basit Bir Script Dosyası İçin Yardım

[BedriA]

Değerli Arkadaşlar,

"Bulunduğun klasör içindeki "Ornek.xlsm" dosyasını sil, onun yerine masaüstündeki "Ornek.xlsm" dosyasını bulunduğun klasöre kopyala" işlemini yapacak bir script dosyasına ihtiyacım var.

Ancak kullandığım kodlar Excel VBA'da çalışırken script dosyasında çalışmıyor.
Yardımcı olabilir misiniz?

Silmek için kullandığım, hata veren kod:

    Kill ThisWorkbook.Path & "\Ornek.xlsm"
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation

 

[antonio]

Bulunduğunuz klasörün yolu nedir?

 

[antonio]

Aşağıdaki kodu bir not defterine kopyalayın, oradaki "aktif_kls" yolunu (örnekte Belgelerim olarak ayarlanmıştır) kendi aktif dosyanızın bulunduğu dizin yolunu yazınız. masa değişkeni masaüstü yolunu gösteriyor, aynı kalsın.
Farklı kaydet yaparak uzantısını .vbs olarak kaydediniz.

Option Explicit

Dim fso, aktif_kls, masa, kullnc, wss
Set wss = CreateObject("WScript.Shell")
kullnc = wss.ExpandEnvironmentStrings( "%USERNAME%" )
Set fso = CreateObject("Scripting.FileSystemObject")
aktif_kls = "[COLOR="Red"]C:\users[/COLOR]\" & kullnc & "\[COLOR="Red"]Documents[/COLOR]\Ornek.xlsm"
masa = "C:\users\" & kullnc & "\desktop\Ornek.xlsm"
fso.copyfile aktif_kls, masa
fso.deletefile aktif_kls

 

[BedriA]

Aşağıdaki kodu bir not defterine kopyalayın, oradaki "aktif_kls" yolunu (örnekte Belgelerim olarak ayarlanmıştır) kendi aktif dosyanızın bulunduğu dizin yolunu yazınız. masa değişkeni masaüstü yolunu gösteriyor, aynı kalsın.
Farklı kaydet yaparak uzantısını .vbs olarak kaydediniz.

Option Explicit

Dim fso, aktif_kls, masa, kullnc, wss
Set wss = CreateObject("WScript.Shell")
kullnc = wss.ExpandEnvironmentStrings( "%USERNAME%" )
Set fso = CreateObject("Scripting.FileSystemObject")
aktif_kls = "[COLOR="Red"]C:\users[/COLOR]\" & kullnc & "\[COLOR="Red"]Documents[/COLOR]\Ornek.xlsm"
masa = "C:\users\" & kullnc & "\desktop\Ornek.xlsm"
fso.copyfile aktif_kls, masa
fso.deletefile aktif_kls

Çok teşekkürler hocam.
Gerekli ayarlamaları yaparım ben.

 

[antonio]

Rica ederim. Kolay gelsin..