Foxtable(狐表)用户栏目专家坐堂 → [求助]如何关闭EXCEl工作薄


  共有6594人关注过本帖树形打印复制链接

主题:[求助]如何关闭EXCEl工作薄

帅哥哟,离线,有人找我吗?
tianhe95
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:148 积分:1665 威望:0 精华:0 注册:2008/9/1 19:40:00
[求助]如何关闭EXCEl工作薄  发帖心情 Post By:2013/4/3 15:43:00 [只看该作者]

打开工作薄代码

Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\report.xls")
那么关闭已打开工作簿的代码怎么写?


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/3 15:47:00 [只看该作者]

Wb.Close
注意,这种方法只是关闭了工作簿,并没有关闭Microsoft Excel应用程序。如果要在
关闭工作簿的同时关闭Excel程序,可以使用Application对象的Quit方法。

 回到顶部
帅哥哟,离线,有人找我吗?
tianhe95
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:148 积分:1665 威望:0 精华:0 注册:2008/9/1 19:40:00
  发帖心情 Post By:2013/4/3 15:54:00 [只看该作者]

要关闭已打开的工作簿,如"D:\report.xls",关闭时也需要指定文件名,完整的代码怎么写

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/3 16:02:00 [只看该作者]

以下是引用tianhe95在2013-4-3 15:54:00的发言:
要关闭已打开的工作簿,如"D:\report.xls",关闭时也需要指定文件名,完整的代码怎么写


无需指定路径.. 直接调用该对象的Close 方法即可..

 回到顶部