要获得excel中一个打开的文件book1.xls的句柄，然后用CloseHandle关闭句柄，以便可以从磁盘中重命名book1.xls且当前打开的book1.xls状态不受影响，下面这样实现不了，不知道是句柄没抓对还是结束句柄不对或是这个方法根本就不对！
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Hwnd = FindWindow("XLMAIN", Application.Caption)
t = CloseHandle(Hwnd)
既然有Application了，直接使用Application.quit就可以退出了
要关闭book1.xls，可以这样：Application.workbooks("book1.xls").close
在book1.xls打开的情况下，对其重命名，还不影响使用。。。。。。不知到比尔.盖茨有何想法
你这样做的目的是什么？或者你要达到什么样的目的？
知道Workbook对象有 SaveAs 接口？
直接调用这个，不就可以达到“重命名”并且不用关闭工作簿的效果了吗！