<%
'1、创建EXCEL对像
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
'2、 新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
'3、 读取已有Excel文件
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\excel\Report.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
'4、 另存Excel文件
SaveName = "交换机_"&year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())
objExcelBook.SaveAs strAddr & "\excel\"&SaveName&".xls"
' 5、 保存Excel文件
objExcelBook.Save '（测试时保存成功）
'6、 退出Excel操作
objExcelApp.Quit '一定要退出
set objExcelApp = Nothing
Response.Write "<html><body bgcolor='gainsboro' text='#000000'>已成功导出为Excel文件<a href=/excel/" & SaveName & ".xls>下载</a>"
%>
