VB中调用Excel文件,怎样才能在程序中强行关闭,或等待禁止程序的其他操作?

zhurui214 2003-01-20 10:52:02
我的程序的头尾是这样的:

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关闭以后才继续。
...全文
146 点赞 收藏 回复
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复

还没有回复,快来抢沙发~

发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告