从 .NET 开发人员的角度理解 Excel 对象模型(1)

Workbook 类

正如您可能想象到的那样，Workbook 类代表了 Excel 应用程序内的一个单一的工作簿。在这一部分，您将会了解这个类的一些成员，包括那些最常使用的属性和方法。

提示 许多 Application 类的成员也作为 Workbook 类的成员加以介绍。在这种情况下，其属性适用于特定的工作簿，而不适用于活动工作簿。这一部分所要讨论的成员远比上一部分中讨论的少，主要因为您对许多提到的成员已经有所了解。

Workbook 类的属性

Workbook 类提供了大量的属性（大约 90 个），并且有许多属性处理多数开发人员从不会考虑到的特殊情况；例如，AutoUpdateFrequency 属性返回共享工作簿的自动更新的分钟数；如果工作簿使用 1904 日期系统（一种日期顺序方案，它将 1904 年 1 月 2 日作为对应于值 1 的日期，通常使用于 Macintosh 计算机），Date1904 属性会返回 True 值；PasswordEncryptionAlgorithm 属性可以让您设置用于加密密码的确切算法，等等。

这一部分只是介绍您最可能用到的 Workbook 对象属性，而不是试图全面介绍其众多属性。通常的规则是：如果您需要工作簿的某一行为，而其他人可能已经请求该行为，实际上最可能的情况是一个属性允许该行为，而通常由一个方法提供该行为。在您向一个工作簿中添加自己的代码之前要仔细检查文档。

以下列表描述了一些最常使用的 Workbook 属性：

•	Name、FullName、Path（字符串，只读）：这些属性分别返回不同版本的工作簿名称。FullName 返回完整路径名称，包括工作簿文件名。Name 只是返回名称部分，而 Path 则只返回路径部分。单击示例工作簿中的 Name Information 链接来运行以下代码，并返回信息，如图 5 所示： ' Visual Basic ThisApplication.Range("WorkbookName").Value = _ ThisWorkbook.Name ThisApplication.Range("WorkbookPath").Value = _ ThisWorkbook.Path ThisApplication.Range("WorkbookFullName").Value = _ ThisWorkbook.FullName // C# ThisApplication.get_Range("WorkbookName", Type.Missing). Value2 = ThisWorkbook.Name; ThisApplication.get_Range("WorkbookPath", Type.Missing). Value2 = ThisWorkbook.Path; ThisApplication.get_Range("WorkbookFullName", Type.Missing). Value2 = ThisWorkbook.FullName; 图 5. 使用 Workbook 属性检索名称的有关信息。
•	Password（字符串）：获取或者设置和工作簿相关的密码。如果您指定了一个非空的密码，工作簿的 HasPassword 属性也会返回 True。您可以检索 Password 属性，但是它的值总是“********”。单击示例工作簿中的 Set Password 链接来运行以下代码，它可以根据您是提供文本还是只提供空字符串来设置或清除工作簿密码。这个示例使用示例项目中名为 Password 的窗体，它提供一个文本框和一个 Password 属性： ' Visual Basic Private Sub SetPassword() Dim frm As New Password If frm.ShowDialog = DialogResult.OK Then ThisWorkbook.Password = frm.Password End If frm.Dispose() End Sub // C# private void SetPassword() { Password frm = new Password(); if (frm.ShowDialog() == DialogResult.OK) ThisWorkbook.Password = frm.Value; frm.Dispose(); }
•	PrecisionAsDisplayed（布尔值）：如果为 True，则 Excel使用以十进制显示的数字进行计算。如果为 False（默认值），则 Excel 使用所有可用的十进制数进行计算，甚至包括那些根本没有显示的部分。图 6 显示此属性设置成 True 的示例工作簿。第 C 列中的每个值都是第 B 列中值的副本，但是第 C 列中的数字格式已经设置成了只显示两个十进制位。要注意到，如果将 PrecisionAsDisplayed 属性设置成 True，求和就会不一样，因为经过四舍五入后实际值会不同。。如果您单击 PrecisionAsDisplayed= False 链接，求和又一样了。单击会调用以下过程，传递 True 或 False 值（取决于您所单击的链接）： ' Visual Basic Private Sub TestPrecisionAsDisplayed( _ ByVal IsPrecisionAsDisplayedOn As Boolean) ThisWorkbook.PrecisionAsDisplayed = IsPrecisionAsDisplayedOn End Sub // C# private void TestPrecisionAsDisplayed( bool IsPrecisionAsDisplayedOn) { ThisWorkbook.PrecisionAsDisplayed = IsPrecisionAsDisplayedOn; } 图 6. 将PrecisionAsDisplayed 属性设置成 True，Excel 只使用显示的十进制数进行计算。
•	ReadOnly（布尔值，只读）：如果工作簿以只读的方式打开，则此属性返回 True 值。此时如果您无法将数据保存到工作簿，那么您可以在应用程序中采取其他不同操作。
•	Saved（布尔值）：用来获取或设置工作簿的保存状态。如果用户已经对工作簿的内容或结构进行了修改，则 Saved 属性就为 True。如果试图关闭工作簿或者退出 Excel，将会出现一个警报提示您保存工作簿（除非您已经将 Application.DisplayAlerts 属性设置成 False）。如果您在代码中将 Saved 属性值设置成 False，Excel 就会认为您的工作簿已经保存，并且不会再次提醒您保存。

使用 Document 属性

正如其他的 Office 应用程序一样，Excel 允许您在保存工作簿的同时保存文档属性。Excel 提供了许多内置属性，并且您也可以添加自己的属性。选择“文件|属性”来显示如图 7 所示的对话框，并且您也可以选择“自定义”选项卡来创建和修改自定义属性。

图 7. 使用此对话框设置文档属性。

通过 Workbook 类的 BuiltInDocumentProperties 属性来使用内置属性，并通过 CustomDocumentProperties 属性来使用自定义属性。这些属性都返回一个 DocumentProperties 对象，它是 DocumentProperty 对象的一个集合。通过集合内的名称或者索引可以使用集合的 Item 属性来检索特定的属性。在 Excel 文档中有全部的属性名列表，但是有一个检索列表的简单方法：当您单击示例工作簿中的 Document Properties 链接时会运行下面的过程（参见 图 8）。该过程调用 DumpPropertyCollection 方法列出所有内置属性和它们的当前值，然后对自定义属性也重复进行这一过程。此外，该过程还单独修改 Revision Number 属性，并且创建一个新的自定义属性：

' Visual Basic
Private Sub DisplayDocumentProperties()
Dim prp As Office.DocumentProperty
Dim prps As Office.DocumentProperties
Dim rng As Excel.Range = _
ThisApplication.Range("DocumentProperties")
Dim i As Integer
Try
ThisApplication.ScreenUpdating = False
Try
prps = DirectCast( _
ThisWorkbook.BuiltinDocumentProperties, _
Office.DocumentProperties)
' Set the Revision Number property:
prp = prps.Item("Revision Number")
prp.Value = CType(prp.Value, Integer) + 1
' Dump contents of the collection:
DumpPropertyCollection(prps, rng, i)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
' Work with custom properties:
Try
prps = DirectCast( _
ThisWorkbook.CustomDocumentProperties, _
Office.DocumentProperties)
DumpPropertyCollection(prps, rng, i)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
' Add a custom property:
Try
' Delete the property, if it exists.
prp = prps.Item("Project Name")
prp.Delete()
Catch
' Do nothing if you get an exception.
End Try
Try
' Add a new property.
prp = prps.Add("Project Name", False, _
Office.MsoDocProperties.msoPropertyTypeString, _
"White Papers")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Finally
ThisApplication.ScreenUpdating = True
End Try
End Sub
Private Sub DumpPropertyCollection( _
ByVal prps As Office.DocumentProperties, _
ByVal rng As Excel.Range, ByRef i As Integer)
Dim prp As Office.DocumentProperty
For Each prp In prps
rng.Offset(i, 0).Value = prp.Name
Try
If Not prp.Value Is Nothing Then
rng.Offset(i, 1).Value = _
prp.Value.ToString
End If
Catch
' Do nothing at all.
End Try
i += 1
Next
End Sub
// C#
private void DisplayDocumentProperties()
{
Office.DocumentProperty prp = null;
Office.DocumentProperties prps =
(Office.DocumentProperties)
ThisWorkbook.BuiltinDocumentProperties;
Excel.Range rng = ThisApplication.
get_Range("DocumentProperties", Type.Missing);
int i = 0;
try
{
ThisApplication.ScreenUpdating = false;
try
{
// Set the Revision Number property:
prp = prps["Revision Number"];
prp.Value = Convert.ToInt32(prp.Value) + 1;
// Dump contents of the collection:
i = DumpPropertyCollection(prps, rng, i);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, ThisApplication.Name);
}
// Work with custom properties:
try
{
prps = (Office.DocumentProperties)
ThisWorkbook.CustomDocumentProperties;
DumpPropertyCollection(prps, rng, i);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, ThisApplication.Name);
}
// Add a custom property:
try
{
// Delete the property, if it exists.
prp = prps["Project Name"];
prp.Delete();
}
catch
{
// Do nothing if you get an exception.
}
try
{
// Add a new property.
prp = prps.Add("Project Name", false,
Office.MsoDocProperties.msoPropertyTypeString,
"White Papers", Type.Missing);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, ThisApplication.Name);
}
}
finally
{
ThisApplication.ScreenUpdating = true;
}
}
private int DumpPropertyCollection(
Office.DocumentProperties prps, Excel.Range rng, int i)
{
foreach (Office.DocumentProperty prp in prps)
{
rng.get_Offset(i, 0).Value2 = prp.Name;
try
{
if (prp.Value != null )
{
rng.get_Offset(i, 1).Value2 =
prp.Value.ToString();
}
}
catch
{
// Do nothing at all.
}
i += 1;
}
return i;
}

提示 前面的代码示例 DisplayDocumentProperties 使用了 Microsoft.Office.Core 程序集中的几个枚举和类型。示例代码包含一个 Imports/using 语句，它将文本“Office”设置成这个命名空间的缩写，就像设置“Excel”缩写一样。项目模板会自动设置“Excel”缩写。而您需要自己添加“Office”语句。

图 8. 内置的文档属性

注 尽管在这里您使用的是 Excel 及其对象，但是实际上是 Office 提供了可用的内置文档属性列表，并且 Excel 没必要实现所有的属性 — 如果试图访问一个未定义属性的 Value 属性，就会触发一个异常。示例过程包含应付这种情况（如果会出现的话）的简单异常处理。

使用样式

和 Word 文档很相似，Excel 工作簿允许您将指定的样式应用于工作簿内的区域，并且 Excel 提供了许多预定义的（尽管并不非常引人注目）样式。使用“格式|样式”菜单项，会显示一个对话框，它允许您交互式地修改样式，如图 9 所示。

图 9. 利用此对话框交互式地修改样式。

单击“样式”对话框中的 Modify 会显示“单元格格式”对话框，如图 10 所示。

图 10. 使用“单元格格式”对话框修改样式。

“单元格格式”对话框显示了您在格式化单元格时可以使用的所有选项，该对话框中可用的所有选项同样可以在代码中使用。您可以使用 Workbook 对象的 Styles 属性来与工作簿交互，并对工作簿内的范围应用样式。

通过使用 Workbook 对象的 Styles 属性，您可以创建、删除和修改样式。单击示例工作簿中的 Apply Style 来运行以下过程，它创建了一个新的样式（如果您已经运行了这段代码，则使用已有的样式），设置该样式的各个方面，并将其应用到一个区域：

' Visual Basic
Private Sub ApplyStyle()
Const STYLE_NAME As String = "PropertyBorder"
Dim rng As Excel.Range
' Get the range containing all the document properties.
rng = GetDocPropRange()
Dim sty As Excel.Style
Try
sty = ThisWorkbook.Styles(STYLE_NAME)
Catch
sty = ThisWorkbook.Styles.Add(STYLE_NAME)
End Try
sty.Font.Name = "Verdana"
sty.Font.Size = 12
sty.Font.Color = ColorTranslator.ToOle(Color.Blue)
sty.Interior.Color = ColorTranslator.ToOle(Color.LightGray)
sty.Interior.Pattern = XlPattern.xlPatternSolid
rng.Style = STYLE_NAME
rng.Columns.AutoFit()
End Sub
// C#
private void ApplyStyle()
{
const String STYLE_NAME = "PropertyBorder";
// Get the range containing all the document properties.
Excel.Range rng = GetDocPropRange();
Excel.Style sty;
try
{
sty = ThisWorkbook.Styles[STYLE_NAME];
}
catch
{
sty = ThisWorkbook.Styles.Add(STYLE_NAME, Type.Missing);
}
sty.Font.Name = "Verdana";
sty.Font.Size = 12;
sty.Font.Color = ColorTranslator.ToOle(Color.Blue);
sty.Interior.Color = ColorTranslator.ToOle(Color.LightGray);
sty.Interior.Pattern = Excel.XlPattern.xlPatternSolid;
rng.Style = STYLE_NAME;
rng.Columns.AutoFit();
}

GetDocPropRange 方法返回一个由文档属性填充的范围。这个过程使用 Range.End 方法来查找由文档属性填充的范围的结尾，并且基于这个范围的左上角和右下角创建一个新的范围：

' Visual Basic
Private Function GetDocPropRange() As Excel.Range
Dim rng As Excel.Range = _
ThisApplication.Range("DocumentProperties")
Dim rngStart As Excel.Range = _
DirectCast(rng.Cells(1, 1), Excel.Range)
Dim rngEnd As Excel.Range = _
rng.End(Excel.XlDirection.xlDown).Offset(0, 1)
Return ThisApplication.Range(rngStart, rngEnd)
End Function
// C#
private Excel.Range GetDocPropRange()
{
Excel.Range rng =
ThisApplication.get_Range("DocumentProperties", Type.Missing);
Excel.Range rngStart =
(Excel.Range) rng.Cells[1, 1];
Excel.Range rngEnd =
rng.get_End(Excel.XlDirection.xlDown).get_Offset(0, 1);
return ThisApplication.get_Range(rngStart, rngEnd);
}

提示 要想知道关于检索和使用 Range 对象的更多信息，请参看本文后面标题为“使用 Range”的章节。

一旦您运行了这段代码，在示例工作簿中包含文档属性的区域会改变底纹和字体，如图 11 所示。

图 11. 应用自定义样式之后

单击 Clear Style 运行以下过程，它清除同一区域的样式：

' Visual Basic
Private Sub ClearStyle()
' Get the range containing all the document properties, and
' clear the style.
GetDocPropRange().Style = "Normal"
End Sub
// C#
private void ClearStyle()
{
// Get the range containing all the document properties, and
// clear the style.
GetDocPropRange().Style = "Normal";
}

使用表

Workbook 类提供了一个 Sheets 属性，它返回一个 Sheets 对象。这个对象包含 Sheet 对象集合，其中每个对象既可以是 Worksheet 对象，也可以是 Chart 对象。单击示例工作簿的 List Sheets 链接来运行下面的过程，它列出工作簿中的所有现有的表：

' Visual Basic
Private Sub ListSheets()
Dim sh As Excel.Worksheet
Dim rng As Excel.Range
Dim i As Integer
rng = ThisApplication.Range("Sheets")
For Each sh In ThisWorkbook.Sheets
rng.Offset(i, 0).Value = sh.Name
i = i + 1
Next sh
End Sub
// C#
private void ListSheets()
{
int i = 0;
Excel.Range rng =
ThisApplication.get_Range("Sheets", Type.Missing);
foreach (Excel.Worksheet sh in ThisWorkbook.Sheets)
{
rng.get_Offset(i, 0).Value2 = sh.Name;
i = i + 1;
}
}

您可能还会发现下面的 Sheets 类的成员会很有用。

•	Visible 属性可以让您在不删除和重建表的情况下显示或隐藏一个现有的表。可将 Visibility 属性设置成 XlSheetVisibility 枚举值（XlSheetHidden、XlSheetVeryHidden、xlSheetVisible）中的一个值。使用 XlSheetHidden 可以让用户通过 Excel 界面隐藏表；使用 XlSheetVeryHidden，则要求您运行代码来取消隐藏表： ' Visual Basic DirectCast(ThisWorkbook.Sheets(1), Excel.Worksheet).Visible = _ Excel.XlSheetVisibility.xlSheetVeryHidden // C# ((Excel.Worksheet) ThisWorkbook.Sheets[1]).Visible = Excel.XlSheetVisibility.xlSheetVeryHidden;
•	Add 方法允许您将一个新表添加到工作簿中的表集合中，并且可以接受四个可选参数，这些参数可以指明表的位置、要添加的表数和表的类型（工作表、图表等）： ' Visual Basic Dim sh As Excel.Sheet = ThisWorkbook.Sheets.Add() // C# Excel.Sheet sh = ThisWorkbook.Sheets.Add( Type.Missing, Type.Missing, Type.Missing, Type.Missing);
•	Copy 方法创建一个表的副本，并且将表插入到指定的位置。您可以随意指定将新表插入到现有表的前面或者后面。如果您不指定位置，Excel 会创建一个新的工作簿来存放这个新表。下面的代码片段复制当前工作簿中的第一个表，并且将副本放在第三个表的后面： ' Visual Basic DirectCast(ThisWorkbook.Sheets(1), Excel.Worksheet). _ Copy(After:=ThisWorkbook.Sheets((3))) // C# ((Excel.Worksheet) ThisWorkbook.Sheets[1]). Copy(Type.Missing, ThisWorkbook.Sheets[3]);.
•	Delete 方法删除一个指定的表： ' Visual Basic DirectCast(ThisWorkbook.Sheets(1), Excel.Worksheet).Delete // C# ((Excel.Worksheet) ThisWorkbook.Sheets[1]).Delete();
•	FillAcrossSheets 方法将工作簿内一个表的范围中的数据复制到所有其他表。您需要指定一个范围，以及是否要复制数据、进行格式化，或全部，剩下的工作 Excel 会去处理。下面的代码片段在工作簿中，将一个表中名称为 Data 的范围的数据和复制到所有表的同一区域中，并对这些数据进行格式化： ' Visual Basic ThisWorkbook.Sheets.FillAcrossSheets( _ ThisApplication.Range("Data"), Excel.XlFillWith.xlFillWithAll) // C# ThisWorkbook.Sheets.FillAcrossSheets( ThisApplication.get_Range("Data", Type.Missing), Excel.XlFillWith.xlFillWithAll);
•	Move 方法和 Copy 方法很类似，只不过最终您得到的是表的一个实例。您可以指定将表放到您的表的前面，或者放到后面（但不可以同时指定）。同样的，如果您没有为移动的表指定一个位置，Excel 会创建一个新的工作簿来包含它。下面的代码片段将第一个工作表移到最后： ' Visual Basic Dim shts As Excel.Sheets = ThisWorkbook.Sheets DirectCast(shts(1), Excel.Worksheet).Move(After:=shts(shts.Count)) // C# Excel.Sheets shts = ThisWorkbook.Sheets; ((Excel.Worksheet)shts[1]).Move(Type.Missing, shts[shts.Count]); 提示 如果出于某种原因您要对工作簿中的表列表进行排序，您可以使用 Move 方法来进行一个低效的冒泡排序。当然，您不可能有太多的表，所以排序速度不是个问题。
•	PrintOut 方法允许您打印选择的对象（这个方法适用于多个不同的对象）。您可以指定许多可选的参数，包括：要打印的页数（起始页和终止页）、副本数量、打印前是否进行预览、要使用的打印机的名称、是否打印到一个文件、是否进行逐份打印以及您要打印到的文件名。下面的例子使用默认的打印机打印指定的表、只打印第一页、打印两份副本，并且在打印前预览文档： ' Visual Basic DirectCast(ThisWorkbook.Sheets(1), Excel.Worksheet). _ PrintOut(From:=1, To:=1, Copies:=2, Preview:=True) // C# ((Excel.Worksheet)ThisApplication.Sheets[1]). PrintOut(1, 1, 2, true, Type.Missing, Type.Missing, Type.Missing, Type.Missing);
•	PrintPreview 方法允许您在 PrintPreview 窗口显示指定的对象，并且可以选择禁止更改页面布局： ' Visual Basic DirectCast(ThisWorkbook.Sheets(1), Excel.Worksheet). _ PrintPreview(False) // C# ((Excel.Worksheet)ThisApplication.Sheets[1]).PrintPreview(false);
•	Select 方法选择指定的对象，并且改变用户的选择（可使用 Activate 方法使对象获得焦点，而不需改变用户的选择。）您可以有选择地提供一个被当前选择取代的对象的引用。下面的代码片段选择第一个工作表： ' Visual Basic ActiveWorkbook.Sheets(1).Select() // C# ((Excel.Worksheet)ThisApplication.Sheets[1]).Select(Type.Missing); 提示 在这一部分中列出的许多方法也适用于其他的类。例如，PrintOut 方法是由以下类提供的：Chart、Charts、Range、Sheets、 Window、Workbook、Worksheet 和 Worksheets。这些方法的具体使用是相同的，只不过是作用在不同的对象上而已。Select 方法几乎适用于任何一种可选择的对象（并且这样的对象有很多）。

Workbook 类的方法

Workbook 类提供了大量的方法，其中有许多方法处理一些非常特殊的情况。这一部分探讨一些在每个应用程序中您都可能会用到的方法，而不是详细介绍各种方法，并将一些难理解的方法放在后面的章节中介绍，下面的列表描述了一些您最可能使用的方法：

•	Activate 方法激活一个工作簿，并且选择工作簿中的第一个工作表： ' Visual Basic ThisApplication.Workbooks(1).Activate // C# ThisApplication.Workbooks[1].Activate;
•	Close 方法关闭一个指定的工作簿，并且（可选）指定是否保存修改。如果工作簿从未保存过，则可以指定一个文件名。此外，如果您要将工作簿发送给其他用户，您可以指定您是否想将工作簿发送给下一个用户。下面的代码片段关闭工作簿，并且不保存修改： ' Visual Basic ThisApplication.Workbooks(1).Close(SaveChanges:=False) // C# ThisApplication.Workbooks(1).Close(false, Type.Missing, Type.Missing);
•	Protect 和 Unprotect 方法允许您保护一个工作簿，从而不能添加或者删除工作表，以及再次取消保护工作簿。您可以指定一个密码（可选），并且指明是否保护工作簿的结构（这样用户就不能移动工作表）以及工作簿的窗口（可选）。保护工作簿用户仍可以编辑单元格。要想保护数据，您必须保护工作表。调用 Unprotect 方法（如果需要，还要传递一个密码）可以取消保护工作簿。以下示例假定一个名称为 GetPasswordFromUser 的过程，它要求用户输入密码，并且会返回输入的值： ' Visual Basic ThisApplication.Workbooks(1).Protect(GetPasswordFromUser()) // C# ThisApplication.Workbooks[1].Protect( GetPasswordFromUser(), Type.Missing, Type.Missing);
•	正如您所认为的，Save 方法保存工作簿。如果您还未保存过工作簿，则应该调用 SaveAs 方法，这样您可以指定一个路径（如果还未保存过工作簿，Excel 会将其保存在当前文件夹中，并以创建工作簿时所给的名称命名）： ' Visual Basic ' Save all open workbooks. Dim wb As Excel.Workbook For Each wb in ThisApplication.Workbooks wb.Save Next wb // C# // Save all open workbooks. foreach (Excel.Workbook wb in ThisApplication.Workbooks) { wb.Save(); }
•	SaveAs 方法要比 Save 方法复杂的多。这个方法允许您保存指定的工作簿，并且指定名称、文件格式、密码、访问模式和其他更多的选项（可选）。查看联机帮助可以获得所有选项列表。下面的代码片段将当前工作簿保存到一个指定位置，并且存成 XML 格式： ' Visual Basic ThisApplication.ActiveWorkbook.SaveAs("C:/MyWorkbook.xml", _ FileFormat:=Excel.XlFileFormat.xlXMLSpreadsheet) // C# ThisApplication.ActiveWorkbook.SaveAs("C://MyWorkbook.xml", Excel.XlFileFormat.xlXMLSpreadsheet, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Excel.XlSaveAsAccessMode.xlNoChange, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing); 提示 由于保存成某些格式需要一些交互，您也许想在调用 SaveAs 方法之前将 Application.DisplayAlerts 属性设置成 False。例如，在将一个工作表保存成 XML 格式时，Excel 会提醒您不能随工作簿保存 VBA 项目。如果将 DisplayAlerts 属性设置成 False，就不会出现这种警告。
•	SaveCopyAs 方法将工作簿的一个副本保存到文件中，但不会修改在内存中打开的工作簿。当您想创建工作簿的备份，同时不修改工作簿的位置时，这个方法非常有用： ' Visual Basic ThisApplication.ActiveWorkbook.SaveCopyAs("C:/Test.xls") // C# ThisApplication.ActiveWorkbook.SaveCopyAs("C://Test.xls"); 警告 交互式地取消任何保存或者复制工作簿的方法会在您的代码中触发一个运行时异常。例如，如果您的过程调用 SaveAs 方法，但是没有禁用 Excel 的提示功能，并且您的用户在提示后单击“取消”，则 Excel 会将运行时错误返回给代码。