<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>VBA 语言参考</title>
<base target="_self">
<style>.title_1 { text-align: left; line-height: 100%; color: #000080; font-weight: bold;
margin-top: 14; margin-bottom: 14 }
.title_2 { font-weight: bold }
.Cross_ref{ font-weight: bold; margin-left: 18 }
</style>
</head>
<body background="images/backcuse.gif">
<p class="title_1"><a name="Save 方法">Save 方法</a></p>
<p class="title_2">适用于</p>
<p>Workbook 对象</p>
<p class="title_2">描述</p>
<p>保存指定工作簿所作的改动。</p>
<p class="title_2">句法</p>
<p>expression.Save</p>
<p>expression</p>
<p>必选。该表达式返回一个 Workbook 对象。</p>
<p class="title_2">说明</p>
<p>要打开一个工作簿文件,可使用 Open 方法。</p>
<p>要将一个工作簿标记为已保存,而无须真正写入磁盘,可将该工作簿的Saved 属性设为 True。</p>
<p>如果是第一次保存工作簿,可使用 SaveAs 方法为该文件指定文件名。</p>
<p class="Cross_ref">另见</p>
<p class="Cross_ref"><a href="Course_no.htm#Open方法">Open 方法</a>, <a href="Course_s.htm#SaveAs 方法">SaveAs
方法</a>, <a href="Course_s.htm#SaveCopyAs 方法">SaveCopyAs 方法</a>, <a href="Course_s.htm#Saved 属性">Saved
属性</a> </p>
<p class="title_2">示例</p>
<pre>本示例保存活动工作簿。</pre>
<pre>ActiveWorkbook.Save</pre>
<pre>本示例保存所有打开的工作簿,并关闭 Microsoft Excel。</pre>
<pre>For Each w In Application.Workbooks</pre>
<pre>w.Save</pre>
<pre>Next w</pre>
<pre>Application.Quit</pre>
<hr>
<p class="title_1"><a name="SaveAs 方法">SaveAs 方法</a></p>
<p class="title_2">适用于</p>
<p>Chart 对象,Workbook 对象,Worksheet 对象</p>
<p class="title_2">描述</p>
<p>将工作表的更改(句法 1)或工作簿的更改(句法 2)保存到另一个不同的文件。</p>
<p>句法 1</p>
<p>expression.SaveAs(Filename,FileFormat,Password,WriteResPassword,ReadOnlyRecommended, CreateBackup, AddToMru, TextCodePage, TextVisualLayout)</p>
<p>句法 2</p>
<p>expression.SaveAs(Filename,FileFormat,Password,WriteResPassword,ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru,TextCodePage, TextVisualLayout)</p>
<p>Expression</p>
<p>必选。该表达式返回一个 Chart 对象或 Worksheet 对象(句法 1)或者一个 Workbook 对象(句法 2)。</p>
<p>FilenameVariant 类型,可选。该字符串表示要保存的文件名。可包含完整路径。如果不指定路径, Microsoft Excel 将文件保存到当前文件夹。</p>
<p>FileFormat</p>
<p>Variant 类型,可选。文件的保存格式。有关的有效格式列表另见 FileFormat属性。对于已存在的文件,缺省文件或是最后文件指定格式;对于新建文件,缺省是所使用的Excel版格式。</p>
<p>Password</p>
<p>Variant 类型,可选。为一个区分大小写的字符串(不超过 15 个字符),用于指定文件的保护密码。</p>
<p>WriteResPassword</p>
<p>Variant 类型,可选。该字符串表示文件的写保护密码。如果文件保存时带有密码,但打开文件时不输入密码,则该文件以只读模式打开。</p>
<p>ReadOnlyRecommended</p>
<p>Variant 类型,可选。如果为 True 则在打开文件时显示一条信息,提示该文件以只读模式打开。</p>
<p>CreateBackup</p>
<p>Variant 类型,可选。如果为 True 则创建备份文件。</p>
<p>AccessMode</p>
<p>Variant 类型,可选。工作簿的访问模式。可为下列 XlSaveAsAccessMode常量之一: xlShared(共享清单)、 xlExclusive(独占访问)或 xlNoChange(不更改访问模式)。如果省略本参数,则不更改访问模式。如果保存共享清单时不更改文件名则忽略该参数。要更改访问模式可使用 ExclusiveAccess方法。</p>
<p>ConflictResolution</p>
<p>Variant 类型,可选。指定当工作簿为共享清单时更改冲突的处理方式。可为下列 XlSaveConflictResolution 常量之一: xlUserResolution(显示冲突处理对话框)、 xlLocalSessionChanges(自动接受本地用户的更改)或xlOtherSessionChanges(接受其他用户的更改)。如果省略本参数,则显示冲突处理对话框。</p>
<p>AddToMru</p>
<p>Variant 类型,可选。如果为 True 则将该工作簿添加到最近使用文件的列表中。默认值为 False。</p>
<p>TextCodePage</p>
<p>Variant 类型,可选。不在美国英语版的 Microsoft Excel 中使用。</p>
<p>TextVisualLayoutVariant</p>
<p> 类型,可选。不在美国英语版的 Microsoft Excel 中使用。</p>
<p class="Cross_ref">另见</p>
<p class="Cross_ref"><a href="Course_a.htm#AutoUpdateFrequency属性">AutoUpdateFrequency
属性</a>, <a href="Course_fg.htm#FileFormat 属性">FileFormat 属性</a>, <a href="Course_j_m.htm#MultiUserEditing属性">MultiUserEditing
属性</a>, <a href="Course_pq.htm#PersonalViewListSettings属性">PersonalViewListSettings
属性</a>,<a href="Course_s.htm#Save 方法">Save 方法</a>, <a href="Course_s.htm#SaveCopyAs 方法">SaveCopyAs
方法</a>, <a href="Course_s.htm#Saved 属性">Saved 属性</a> </p>
<p class="title_2">示例</p>
<pre>本示例新建一个工作簿,提示用户输入文件名,然后保存该工作簿。</pre>
<pre>Set NewBook = Workbooks.Add</pre>
<pre>DofName = Application.GetSaveAsFilename</pre>
<pre>Loop Until fName <> False</pre>
<pre>NewBook.SaveAs Filename:=fName</pre>
<hr>
<p class="title_1"><a name="SaveCopyAs 方法">SaveCopyAs 方法</a></p>
<p class="title_2">适用于</p>
<p>Workbook 对象</p>
<p class="title_2">描述</p>
<p>将指定工作簿的副本保存到文件,但不更改内存中的打开工作簿。</p>
<p class="title_2">句法</p>
<p>expression.SaveCopyAs(Filename)</p>
<p>expression</p>
<p>必选。该表达式返回一个 Workbook 对象。</p>
<p>Filename</p>
<p>必选。指定副本的文件名。</p>
<p class="Cross_ref">另见</p>
<p class="Cross_ref"><a href="Course_s.htm#Save 方法">Save 方法</a>, <a href="Course_s.htm#SaveAs 方法">SaveAs
方法</a> </p>
<p class="title_2">示例</p>
<pre>本示例保存活动工作簿的副本。</pre>
<pre>ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"</pre>
<hr>
<p class="title_1"><a name="Saved 属性">Saved 属性</a></p>
<p class="title_2">适用于</p>
<p>Workbook 对象</p>
<p class="title_2">描述</p>
<p>如果指定工作簿从上次保存至今未发生过更改则为 True。Boolean 类型,</p>
<p>可读写。</p>
<p class="title_2">说明</p>
<p>如果工作簿从未进行保存,则其 Path 属性将返回一空字符串("")。</p>
<p>如果要关闭某个已更改的工作簿,但又不想保存它或者不想出现保存提示,</p>
<p>可将此属性设为 True。</p>
<p class="Cross_ref">另见</p>
<p class="Cross_ref"><a href="Course_s.htm#Save 方法">Save 方法</a>, <a href="Course_s.htm#SaveAs 方法">SaveAs
方法</a>, <a href="Course_s.htm#SaveCopyAs 方法">SaveCopyAs 方法</a> </p>
<p class="title_2">示例</p>
<pre>本示例检查当前工作簿是否有未保存的修改,如果有则显示一条信息。</pre>
<pre>If Not ActiveWorkbook.Saved Then</pre>
<pre>MsgBox "This workbook contains unsaved changes."</pre>
<pre>End If</pre>
<pre>本示例将 Saved 属性设为 True,关闭它所在的工作簿,并放弃所有对该工作簿的修改。</pre>
<pre>ThisWorkbook.Saved = True</pre>
<pre>ThisWorkbook.Close</pre>
<hr>
<p class="title_1"><a name="SaveData 属性">SaveData 属性</a></p>
<p class="title_2">适用于</p>
<p>PivotTable对象,QueryTable 对象</p>
<p class="title_2">描述</p>
<p>如果数据透视表的数据随工作簿一起保存,本属性为 True。如果仅保存数据透视表的定义,本属性为 False。Boolean 类型,可读写。</p>
<p>对于OLAP数据源,本属性总设为False。</p>
<p class="title_2">示例</p>
<pre>本示例使数据透视表的数据随工作簿一起保存。</pre>
<pre>Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable</pre>
<pre>pvtTable.SaveData = True</pre>
<hr>
<p class="title_1"><a name="SaveHiddenData 属性">SaveHiddenData 属性</a></p>
<p class="title_2">适用于</p>
<p>DefaultWebOptions 对象</p>
<p class="title_2">描述</p>
<p>当以 Web 页保存文档时,如果也保存指定区域之外的数据,则其值为True。此数据对于维护公式是很有必要的。如果指定区域之外的数据并不与 Web 页一起保存,则其值为 False。默认值为 True。可读写。Boolean 类型。</p>
<p class="title_2">说明</p>
<p>如果选择不保存指定区域之外的数据,则公式中对这些数据的引用都将变为静态值。如果数据位于另外的工作表或工作簿中,则公式结果将以静态值保存。</p>
<p class="title_2">示例</p>
<pre>本示例使数据透视表报表的数据随工作簿一起保存。</pre>
<pre>Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTablepvtTable.</pre>
<pre>SaveData = True</pre>
<hr>
<p cla