如何关闭掉所有打开的EXCEL表

SMT-AOC

运行编程好的VB程序之前，如何关闭掉所有打开的EXCEL表啊。

hwc2ycy

工作簿都关了，如何运行VBA？
是关掉别的还是？

SMT-AOC

我用VB编的，就是说在VB窗体载入时，先判断是否有EXCEL表打开了。若有就关闭所有打开的工作薄。

hwc2ycy

1. Sub tst()
   
2.     Dim wb
   
3.     For Each wb In Workbooks
   
4.         If wb.Name <> ThisWorkbook.Name Then
   
5.             wb.Close True
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

hwc2ycy

1. Sub tst()
   
2.     Dim wb
   
3.     For Each wb In Workbooks
   
4.         If wb.Name <> ThisWorkbook.Name Then
   
5.             wb.Close false
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

不保存关闭工作簿。

SMT-AOC

试了一下你给的代码，可以实现关闭除当前已经打开的工作薄的所有工作薄。虽然和我想要的还有点不一样，也非常感谢你。

无聊的疯子

用 shell 调用dos命名,直接将 进程管理器中的程序关闭掉
一次只能关闭一个Excel 程序

1. 
   
2. Shell "taskkill /f /im excel.exe", vbHide
   

复制代码

一般在vb代码最后 都要使用退出Excel程序代码的
比如你在 VB 中声明的Excel程序变量名是 NewExcel
到程序最后 使用 NewExcel.Quit  这样就可以退出这个Excel 程序了!   

hwc2ycy

SMT-AOC 发表于 2013-2-4 13:35
试了一下你给的代码，可以实现关闭除当前已经打开的工作薄的所有工作薄。虽然和我想要的还有点不一样，也非 ...

你想的的是什么效果？说来听听。

rdmzlym

ThisWorkbook.Windows(ThisWorkbook.name).Visible = False
'关闭工作簿窗口显示，这样界面会好看些，不会出现工作簿画面。这个值可保存。
Application.Visible = False
'关闭EXCEL进程
ThisWorkbook.Windows(ThisWorkbook.name).Visible = True  
'由于关闭工作簿窗口之后会造成活动工作簿丢失，后继工作不正常，所以再打开
  如何再打开呢？？

rdmzlym

hwc2ycy 发表于 2013-2-4 13:03

ThisWorkbook.Windows(ThisWorkbook.name).Visible = False '关闭工作簿窗口显示，这样界面会好看些，不会出现工作簿画面。这个值可保存。 Application.Visible = False '关闭EXCEL进程 ThisWorkbook.Windows(ThisWorkbook.name).Visible = True   '由于关闭工作簿窗口之后会造成活动工作簿丢失，后继工作不正常，所以再打开   如何再打开呢？？谢谢