Author：水如烟
程序中若打开了一个Workbook给用户直接操作，那么，用户有可能将Workbook关闭了甚至退出了整个ExcelApplicatoin。可以通过以下方法防止这种情形(这个问题留意的人较少，故发首页)：
Imports Microsoft.Office.Interop
Public Class Form1Private gWorkbookCanClose As Boolean = FalsePrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ExcelApplication As New Excel.Application
Dim Workbook As Excel.Workbook = ExcelApplication.Workbooks.AddAddHandler Workbook.BeforeClose, AddressOf OnWorkbookBeforeClose
Dim Worksheet As Excel.Worksheet = CType(Workbook.Sheets.Add, Excel.Worksheet)
With CType(Worksheet.Cells(1, 1), Excel.Range)
.Interior.ColorIndex = 40
.Value = "123"
End With
ExcelApplication.Visible
= True此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。