VB怎样关闭一个正在运行的程序

PrivateSubCommand1_Click()'首先通过VB的菜单[工程]--[引用]，勾选：MicrosoftExcel11.0ObjectLibrary'其中11.0是不一定的，要看你计算机安装的OFFICE版本而定DimxlsAppAsExcel.Application'声明对象变量SetxlsApp=Excel.Application'实例化对象xlsApp.Visible=False'使Excel隐藏不可见xlsApp.Workbooks.Open("C:\book1.xls")'打开EXCEL文件'这里开始就是你录制的VBA代码'我在这里举1个例子，主要是告诉你要明确操作的是哪个表xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A1").Value="您好！"'在指定表的单元格编辑文本xlsApp.ActiveWorkbook.Closesavechanges:=True'关闭活动工作簿同时保存对它的更改。xlsApp.Quit'关闭EXCELLSetxlsApp=Nothing'释放资源EndSub最后三步，很关键。