怎么让这个对话框不出现？（保存Excel的）

Private   Sub   Command1_Click()  
  Dim   Ex   As   Object  
  Dim   ExBook   As   Object  
  Dim   ExSheet   As   Object  
          Set   Ex   =   CreateObject("Excel.Application")  
          Set   ExBook   =   Ex.workbooks.open("C:\Win98\Desktop\11T.xls")  
          Set   ExSheet   =   ExBook.worksheets("Sheet1")  
          ExSheet.Cells(1,   1).Value   =   "1"  
          SendKeys   "{ENTER}"   '这样效果很不好啊  
          ExBook.Close  
          Ex.quit  
          Set   Ex   =   Nothing   '释放对象  
          Set   ExBook   =   Nothing  
          Set   ExSheet   =   Nothing   '请问题怎么去掉   你是否要保存修改过的内容     这个对话框  
  End   Sub 问题点数：10、回复次数：4Top

1 楼Tsou（轩辕剑）回复于 2002-04-08 19:10:53 得分 10

添加：ex.Visible=FalseTop

2 楼xxlroad（土八路）回复于 2002-04-08 20:35:41 得分 0

还是出现哪个对话框啊！  
  Top

3 楼xxlroad（土八路）回复于 2002-04-08 20:42:59 得分 0

Private   Sub   Command1_Click()  
  Dim   Ex   As   Object  
  Dim   ExBook   As   Object  
  Dim   ExSheet   As   Object  
          Set   Ex   =   CreateObject("Excel.Application")  
          Set   ExBook   =   Ex.workbooks.open("C:\Win98\Desktop\11T.xls")  
          Set   ExSheet   =   ExBook.worksheets("Sheet1")  
          ExSheet.Cells(1,   1).Value   =   "1"  
          'SendKeys   "{ENTER}"   '这样效果很不好啊  
          'Ex.Visible   =   False   '还是出现哪个对话框啊！还是谢谢Tsou()  
          Ex.DisplayAlerts   =   False   '解决了   谢谢   还俗和尚.COM  
          ExBook.Close  
          Ex.quit  
          Set   Ex   =   Nothing  
          Set   ExBook   =   Nothing  
          Set   ExSheet   =   Nothing  
  End   SubTop

4 楼xxlroad（土八路）回复于 2002-04-08 20:52:06 得分 0

但是加了这个以后   我什么都白白干了   不保存了  
   
  怎么办啊？Top

相关问题

• win98
• excel
• exbook
• exsheet
• 对话框
• 保存
• nothing
• ex
• as objectdim
• sub

• 帖主：xxlroad
• Tsou

• Visual Basic类图书
• Visual Basic类源码下载