<script language="vbscript">

set objExcelApp=CreateObject("Excel.Application")
objExcelApp.DisplayAlerts=true

objExcelApp.WorkBooks.Open("http://XXX.XXX.XXX/XXX.xls")
'完整網(wǎng)路地址的xls文件,這個(gè)文件已經(jīng)設(shè)置好格式及打印樣式,保存在服務(wù)器上
set objExcelBook=objExcelApp.ActiveWorkBook
set objExcelSheets=objExcelBook.Worksheets
set objExcelSheet=objExcelBook.Sheets(1)
'====此處為對(duì)excel單元格進(jìn)行填寫(xiě)數(shù)據(jù)的語(yǔ)句,如果是從數(shù)據(jù)庫(kù)提取數(shù)據(jù),可由后臺(tái)程序生成這些語(yǔ)句,ASP中的示列:
'如:response.write "objExcelSheet.Range(""B2"").Value="""&rs("XXX")&""""
'或 objExcelSheet.Range("B2").Value="<%=rs("XXX")%>"

objExcelSheet.Range("B2:k2").Value=Array("Week1","Week2","Week3","Week4","Week5","Week6","Week7")
objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10")
objExcelSheet.Range("B4:k4").Value=Array("10","10","8","27","33","37","50","54","10","10")
objExcelSheet.Range("B5:k5").Value=Array("23","3","86","64","60","18","5","1","36","80")
objExcelSheet.Cells(3,1).Value="InternetExplorer"
objExcelSheet.Cells(4,1).Value="Netscape"
objExcelSheet.Cells(5,1).Value="Other"
'==================

'objExcelApp.Quit
'set objExcelApp=Nothing

</script>