excel'i kod ile kapatmak

[manevra]

yaptigim bir uygulamada userform üzerindeki close buttonunu tıkladıgımda program ile beraber excel programinin da kapanmasını istiyorum. programı kapatmak için bir modül içine

workbooks("evrak2.xls").close yazdım ve programı kapatabildim ama excel görev yöneticisinde çalışıyor görünüyor.

exceli de kodla kapatmanın bir yolu yok mu?

 

[Ongun]

Merhaba, aşağıdaki kodu ilave edebilirsiniz. Kolay gelsin

Excel.Application.Quit

 

[mrt]

Selamlar,

textbox1 de yazılı olan excel çalışmasını nasıl kapatabilirim.

Kapattığım dosyayı başka klasöre taşıma istiyorum.

Aşağıdaki kodda ?? olan yere textbox1 'i nasıl yazmalıyım.

Sub Dosya_Tasi()
Set fs = CreateObject("Scripting.FileSystemObject")
fs.movefile "C:\TESLIMAT\ ??", "C:\MARSIV\"
End Sub

 

[Orion1]

Deneyiniz.

on error resume next
textbox1.value.close
fs.movefile "C:\TESLIMAT\ textbox1.value", "C:\MARSIV\"

 

[mrt]

Private Sub CommandButton13_Click()
On Error Resume Next
TextBox1.Value.Close
fs.movefile "C:\TESLIMAT\ textbox1.value", "C:\MARSIV\"
End Sub

Kodları butona yazdım fakat çalışmadı.

 

[Orion1]

kodları aşağodaki şekilde değiştirip denermisiniz.

Private Sub CommandButton13_Click()
On Error Resume Next
workbooks(TextBox1.Value & ".xls").Close
fs.movefile "C:\TESLIMAT\" & textbox1.value & ".xls", "C:\MARSIV\"
End Sub