Question

VB将打开并修改的Excel保存不提示对话框可以吗?

这个可以放在窗体关闭事件吗?我用完以后会死机呀?

Answer 1

可以，你试一下：
Dim exlApp As Excel.Application
Dim exlBook As Excel.Workbook

Set exlApp = New Excel.Application
exlApp.Visible = True '显示Excel窗口

Set exlBook = exlApp.Workbooks.Open(App.Path + "\test.xls") 'Excel文件路径及文件名
'向Excel表中写入数据，Sheets(1)为第1个工作表，Cells(行号,列号)是单元格
exlApp.Sheets(1).Cells(1, 1) = "11"
exlApp.Sheets(1).Cells(1, 2) = "12"
exlApp.Sheets(1).Cells(2, 1) = "21"
exlApp.DisplayAlerts = False '不显示警告信息
exlBook.Close True '先保存修改再关闭工作簿
exlApp.Quit '关闭Excel

补充回答：
我也放在窗体关闭事件中试了一下，不会死机呀。你有没有在“工程-引用”中勾选“Microsoft Exel 11.0 Object Library”选项？会不会与Excel的版本有关？我用的是Office XP专业版。 还有一点，你要直接运行本程序的话，还必须先在工程目录中新建一个"test.xls"文件。

Answer 2

Application.Displayalerts=false
activeworkbook.save
Application.Displayalerts=true
或者
.save false
试试