VB中调用Excel文件,怎样才能在程序中强行关闭,或等待禁止程序的其他操作?
我的程序的头尾是这样的:
Dim objExcelSample As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorkSheet As Excel.Worksheet
Set objExcelSample = New Excel.Application
Set objWorkbook = objExcelSample.Workbooks.Open(App.Path & _
"\LogInfo.xls")
Set objWorkSheet = objWorkbook.Sheets("登録内容一覧(家族)")
objWorkSheet.Application.Visible = True
objWorkSheet.Copy after:=Sheets(Sheets.Count)
Set objWorkSheet = objWorkbook.Sheets(Sheets.Count)
.
.
.
.
.
.
objWorkSheet.PrintPreview
objWorkSheet.PrintOut
objWorkbook.Close
objExcelSample.Quit
Set objExcelSample = Nothing
我现在碰到的问题是,打印完文件后,为Excel的界面,如果我把界面切换到程序界面的时候就会报错。因为Excel关闭是要提示是否保存的,我想在程序里强行关闭Excel文件不让他提示是否保存,或者,暂停程序的运行(或禁止对程序的操作)直到Excel关闭以后才继续。