Set app_excel = New Excel.Application                               '申请一个Excel.Application内存空间

Set book_excel = app_excel.Workbooks.Open("d:/net/vba/test.xls")    '打开EXCEL文件，然后把值返回赋给Workbook类型 book_excel

book_excel.Sheets("sheet1").Cells(2, 2) = "hello world"

book_excel.SaveAs ("d:/net/vba/aaaa.xls")                           '另存为aaaaa.xls

book_excel.Close 0                                                  '关闭test.xls，0为不保存修改，1为保存修改后的内容

'''''''''''''''''''新建一个EXCEL 文件''''''''''''''''''''''''''''''

Set book_excel = app_excel.Workbooks.Add

book_excel.SaveAs ("d:/net/vba/bbbb.xls")

book_excel.Sheets("sheet1").Cells(3, 3) = "this new workbook"

book_excel.Close 1

保存对不同的文件中的图表或工作表的更改。

expression.SaveAs(FileName,   FileFormat,   Password,   WriteResPassword,   ReadOnlyRecommended,   CreateBackup,   AddToMru,   TextCodepage,   TextVisualLayout,   Local)

expression             必需。该表达式返回上述对象之一。

Filename             Variant   类型，可选。该字符串表示要保存的文件名。可包含完整路径。如果不指定路径，Microsoft   Excel   将文件保存到当前文件夹中。

FileFormat             Variant   类型，可选。保存文件时使用的文件格式。要得到有效选项的列表，请参阅   FileFormat   属性。对于已有文件，其默认格式是上次指定的文件格式；对于新文件，默认格式为当前使用的   Excel   版本格式。

Password             Variant   类型，可选。一个区分大小写的字符串（最长不超过   15   个字符），用于指定文件的保护密码。

WriteResPassword             Variant   类型，可选。该字符串表示文件的写保护密码。如果文件保存时带有密码，但打开文件时不输入密码，则该文件以只读方式打开。

ReadOnlyRecommended             Variant   类型，可选。如果该值为   True，则在打开文件时显示一条信息，提示该文件以只读方式打开。

CreateBackup             Variant   类型，可选。如果该值为   True，则创建备份文件。

AddToMru           Variant   类型，可选。如果该值为   True   ，则将该工作簿添加到最近使用的文件列表中。默认值为   False。

TextCodePage             Variant   类型，可选。不在美国英语版的   Microsoft   Excel   中使用。

TextVisualLayout             Variant   类型，可选。不在美国英语版的   Microsoft   Excel   中使用。

Local             Variant   类型，可选。如果该值为   True，则以   Microsoft   Excel（包括控制面板设置）的语言保存文件。如果该值为   False（默认值），则以   Visual   Basic   for   Applications   (VBA)   的语言保存文件，其中   Visual   Basic   for   Applications   (VBA)   为典型安装的美国英语版本，除非   VBA   项目中的   Workbooks.Open   来自旧的国际化的   XL5/95   VBA   项目。

应用于   Workbook   对象的   SaveAs   方法。

保存对不同文件中的工作表的更改。

expression.SaveAs(FileName,   FileFormat,   Password,   WriteResPassword,   ReadOnlyRecommended,   CreateBackup,   AccessMode,   ConflictResolution,   AddToMru,   TextCodepage,   TextVisualLayout,   Local)

expression             必需。该表达式返回上述对象中一个对象。

Filename             Variant   类型，可选。该字符串表示要保存的文件名。可包含完整路径。如果不指定路径，Microsoft   Excel   将文件保存到当前文件夹中。

FileFormat             Variant   类型，可选。保存文件时使用的文件格式。要得到有效选项的列表，请参阅   FileFormat   属性。对于已有文件，其默认格式是上次指定的文件格式；对于新文件，默认格式为当前使用的   Excel   版本格式。

Password             Variant   类型，可选。它是一个区分大小写的字符串（最长不超过   15   个字符），用于指定文件的保护密码。

WriteResPassword             Variant   类型，可选。   该字符串表示文件的写保护密码。如果文件保存时带有密码，但打开文件时不输入密码，则该文件以只读方式打开。

ReadOnlyRecommended             Variant   类型，可选。如果该值为   True，则在打开文件时显示一条信息，提示该文件以只读方式打开。

CreateBackup             Variant   类型，可选。如果该值为   True，则创建备份文件。

AccessMode             XlSaveAsAccessMode   类型，可选。

XlSaveAsAccessMode   可为以下   XlSaveAsAccessMode   常量之一。

xlExclusive     （不含方式）

xlNoChange   default     （不更改访问方式）

xlShared     （共享列表）

如果省略此参数，则不会更改访问方式。如果在没有改变文件名的情况下保存共享列表，则可以忽略参数。若要改变访问方式，请使用   ExclusiveAccess   方法。

ConflictResolution               XlSaveConflictResolution   类型，可选。

XlSaveConflictResolution   可为以下   XlSaveConflictResolution   常量之一。

xlUserResolution     （显示冲突解决方案对话框）

xlLocalSessionChanges   （自动接受本地用户的修改）

xlOtherSessionChanges     （接受除本地用户之外的其他用户的更改）

如果忽略本参数，则显示冲突处理对话框。

AddToMru             Variant   类型，可选。如果该值为   True   ，则将该工作簿添加到最近使用的文件列表中。默认值为   False。

TextCodePage             Variant   类型，可选。不在美国英语版的   Microsoft   Excel   中使用。

TextVisualLayout             Variant   类型，可选。不在美国英语版的   Microsoft   Excel   中使用。

Local             Variant   类型，可选。如果该值为   True，则以   Microsoft   Excel（包括控制面板设置）的语言保存文件。如果该值为   False（默认值），则以   Visual   Basic   for   Applications   (VBA)   的语言保存文件，其中   Visual   Basic   for   Applications   (VBA)   为典型安装的美国英语版本，除非   VBA   项目中的   Workbooks.Open   来自旧的国际化的   XL5/95   VBA   项目。

本示例新建一个工作簿，提示用户输入文件名，然后保存该工作簿。

Set   NewBook   =   Workbooks.Add

fName   =   Application.GetSaveAsFilename

Loop   Until   fName   <>   False

NewBook.SaveAs   Filename:=fName