小弟初学ASP，现需在后台通过SQL取得数据然后在客户端按照指定的EXECL格式进行
打印，并可以对EXCEL文件进行保存！，最好有实例（分值可再加，急！！！）
---------------------------------------------------------------
你将EXCEL嵌到你的网页中,打印和保存的时候你可以调用你的宏!
如果有不明白的地方可以发mail:[email protected]
---------------------------------------------------------------
1
2Response.ContentType = "application/msexcel"
3response.AddHeader "content-disposition", "inline; filename=Book1.xls"
filename后面应该跟随你模板文件的位置。
---------------------------------------------------------------
就是生成客户端Excel文件是吧，留下你的email，我给你发代码。
你也可以搜索Excel关键字，可以得到不少信息的。
---------------------------------------------------------------
' Save to Excel
On Error Resume Next
Set oXL= Server.CreateObject("Excel.Application")
Set fs=Server.CreateObject("Scripting.filesystemobject")
strAppPath = Request.ServerVariables("PATH_TRANSLATED")
strSAppPath = Left(strAppPath, InstrRev(strAppPath, ""))&"conn"
strTAppPath = Left(strAppPath, InstrRev(strAppPath, ""))&"tempfiles"
'''''''''''''''''''''''修改部分(文件模板名同生成文件名Begin)
strFileName="mn.xls"
fileroute=strFileName
SFullPath = strSAppPath &"module.xls"
TFullPath = strTAppPath&strFileName
'''''''''''''''''''''''(文件模板名同生成文件名End)
fs.copyfile SFullPath,TFullPath
set oWB = oXL.Workbooks.Open(TFullPath)
set oSheet1 = oWB.Worksheets(1)
'''''''''''''''''''''''填充數據Begin)
oSheet1.range("d2").value=qmodel
oSheet1.range("d3").value=qline
for j=23 to 30
For i=1 To 24'rstcount
oSheet1.range(chr(i+66)&cstr(j)).value = temparray(j-23,i-1)
Next
For i=1 to rstcount-23
oSheet1.range("a"&chr(i+64)&cstr(j)).value = temparray(j-23,i+23)
next
next
for j=32 to 33
For i=1 To 24'rstcount
oSheet1.range(chr(i+66)&cstr(j)).value=temparray(j-24,i-1)
Next
'For i=1 to rstcount-23
'oSheet1.range("A"&chr(i+64)&cstr(j)).value=temparrayy(j-24,i+23)
'response.Write temparray(j-24,i+23)&"----"&"A"&chr(i+64)&cstr(j)&"-----"&i&"
1<br/>
"
'next
next
oSheet1.Range("AA32").value=temparray(8,24)
oSheet1.Range("AB32").value=temparray(8,25)
oSheet1.Range("AC32").value=temparray(8,26)
oSheet1.Range("AD32").value=temparray(8,27)
oSheet1.Range("AE32").value=temparray(8,28)
oSheet1.Range("AF32").value=temparray(8,29)
oSheet1.Range("AA33").value=temparray(9,24)
oSheet1.Range("AB33").value=temparray(9,25)
oSheet1.Range("AC33").value=temparray(9,26)
oSheet1.Range("AD33").value=temparray(9,27)
oSheet1.Range("AE33").value=temparray(9,28)
oSheet1.Range("AF33").value=temparray(9,29)
'''''''''''''''''''''''(填充數據End)
oWB.Save()
oSheet1.Application.Quit
oXL.Quit
Set oSheet1 = Nothing
Set oWB = Nothing
Set oXL = Nothing
%>