以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  MSExcel.Application不保存直接退出  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109698)
--  作者：baoxyang
--  发布时间：2017/11/17 13:06:00
--  MSExcel.Application不保存直接退出
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(str1)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
.....
wb.Quit                  因中间有设置单元格格式，退出时会提示保存对话框，希望不保存直接退出，代码如何实现？谢谢指导！！！
--  作者：baoxyang
--  发布时间：2017/11/17 13:38:00
--  
解决了!
wb.close(false)
wb.Quit