SaveAs 方法

       

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

expression.SaveAs(FileName)

expression   必需。该表达式返回“应用于”列表中的对象之一。

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

示例

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

Set NewBook = Workbooks.Add
Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName