在Excel VBA 開關存檔

以下是花了很多時間嘗試的VBA 操控EXCEL
'建立Excel物件
Set ExcelObj = Server.CreateObject("Excel.Application") '建立Excel物件
ExcelObj.DisplayAlerts = false '不顯示警告訊息
ExcelObj.Application.Visible = true '顯示應用程式

'開啟Excel文件
Set ExcelApp = ExcelObj.WorkBooks.Open(ExcelTmp) '設定Excel物件開啟ExcelTmp這個檔案
Set ExcelBook = ExcelObj.ActiveWorkBook '指定ExcelBook為作用工作表
ExcelBook.Sheets("table6").Select '選擇作用工作表
Set ExcelSheets = ExcelBook.Worksheets("table6")
ExcelObj.Interactive = false
ExcelObj.Application.DisplayAlerts = false

'儲存檔案
ExcelSheets.Range("B6").Select '選取B6這個儲存格
With ExcelObj.ActiveWindow '對該Excel物件做分割於左方1 格下方5格的位置分割
.SplitColumn = 1
.SplitRow = 5
End With

ExcelObj.ActiveWindow.FreezePanes = True '凍結視窗

ExcelObj.activewindow.Zoom = 75 'Zoom 75%

SaveFileName = "abcde.xls" '設定檔名
ExcelApp.SaveAs Server.MapPath("./" & SaveFileName) '將檔案另存於本機目錄下的abcde.xls
Set Excelsheets = ExcelBook.Sheets(1) '將Excelsheets設為第一工作簿

'關閉程式
ExcelObj.Quit '離開Excel
Set ExcelObj = nothing '釋放Excel物件所使用的記憶體