VB 关闭excel进程问题

Question

我建立一个窗体 实现对不同 excel文件的 换行操作   有两个命令按钮  和 两个单选框（两个不同excel数据表）当选择一个单选框时，可以实现功能     但在进程中   excel未关闭？？ 我怀疑是这个问题。继续选另一个复选框时  程序就会出现问题  （红字行出错）   类dialog的show 方法无效！！error 1004 !!    Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.Worksheet Dim abc As StringSet xlApp = CreateObject("Excel.Application")Set xlBook = Workbooks.Open("单选框文件地址")Set xlSheet = xlBook.Worksheets（"sheet1"）range("A1").cut range("A23")xlSheet.Rows(1).Delete
  abc = "换行后数据" & Format$(Now, "yyyy年mm月dd日hh点MM分ss秒")
  
  xlApp.Dialogs(xlDialogSaveAs).Show (abc)
  
  xlApp.Workbooks(1).Saved = True
Dim book As WorkbookFor Each book In WorkbooksIf book.Name <> ActiveWorkbook.Name Thenbook.Close savechanges:=FalseEnd IfNext bookActiveWorkbook.Close savechanges:=TruexlApp.Quit
Set xlSheet = NothingSet xlBook = NothingSet xlApp = Nothing以上是代码   谢谢诶！！

Answer 1

在你的程程中加入
Private Sub Option1_Click()
Shell "taskkill /im EXCEL.exe /f", vbHide
End SubPrivate Sub Option2_Click()
Shell "taskkill /im EXCEL.exe /f", vbHide
End Sub

Answer 2

运行一个单选框后 （加上）
Private Sub Option1_Click() 
Shell "taskkill /im EXCEL.exe /f", vbHide 
End Sub Private Sub Option2_Click() 
Shell "taskkill /im EXCEL.exe /f", vbHide 
End Sub再选另一个  出现问题 无法连接服务器！！

Answer 3

xlApp.Dialogs(xlDialogSaveAs).Show abc