Dim app_excel As Excel.Application
    Dim book_excel As Excel.Workbook
    
    
 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檔案

     Dim app_excel As Excel.Application
    Dim book_excel As Excel.Workbook
   
   
    Set app_excel = New Excel.Application                               '申請一個Excel.Application記憶體空間
   
   
   
    '''''''''''''''''''新建一個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
   

下面為SAVEAS 的用法

SaveAs   方法  
  參閱應用於示例特性應用於   Chart   和   Worksheet   物件的   SaveAs   方法。  
   
  儲存對不同的檔案中的圖表或工作表的更改。  
   
  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  
  Do  
          fName   =   Application.GetSaveAsFilename  
  Loop   Until   fName   <>   False  
  NewBook.SaveAs   Filename:=fName