بسته نشدن فایل اکسل

[malek123]

با تقدیم سلام
من کاربر جدید شما هستم و راستش نمی دونم سوال خودمو باید در کدوم بخش بنویسم برای همین مزاحم شما شدم
من به تازگی کار با VB6 رو شروع کردمتوی برنامه با اکسل کار می کنم ولی اکسل باز شده به صورت کامل بسته نمیشه و وقتی برای بار دوم برنامه را اجرا می کنم خطای 1004 رو میده

()Private Sub Command3_Click
Dim excelApp As Excel.Application
Dim excelWB As Excel.Workbook
Dim excelWS As Excel.Worksheet
(" Set excelApp = CreateObject("Excel.Application
(" Set excelWB = excelApp.Workbooks.Open("C:\BSI-EXCEL\BSI-EXCEL2.xls
(Set excelWS = excelWB.workSheets(1


excelApp.Visible = True
excelApp.DisplayAlerts = False


workSheets("sheet1").Range("A3").Value = 11111
workSheets("sheet1").Range("B3").Value = 22222
workSheets("sheet1").Range("B1").Value = 33333
excelWB.SaveAs "C:\BSI-EXCEL\BSI-EXCEL2_1.xls", FileFormat:=56


Set excelWS = Nothing
("excelWB.Close '("C:\BSI-EXCEL\BSI-EXCEL2_1.xls
Set excelWB = Nothing
excelApp.Quit
Set excelApp = Nothing


End Sub

ممنون میشم اگه بگین اشکار کار کجاست
ارادتمند - ملک محمدی

[علیرضا5]

برنامتون رو همیشه با کد end ببندید تا کامل بسته بشه

[malek123]

بسیار متشکرم
مشکل حل شد