📄 asp中如何在客户端调用execl文件模板进行打印和文件保存.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.51base.com/article/view_article.asp?id=59447 -->
<HTML lang=zh-cn><HEAD><TITLE>NB联盟</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="NB联盟21.files/style.css" rel=stylesheet>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY><!-- start page body -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=td id=position
width=773>
<TBODY>
<TR>
<TD class=shadow colSpan=2 height=20 width=262> <A
href="http://www.51base.com/"><IMG border=0
src="NB联盟21.files/logo1.gif"></A> </TD>
<TD align=right width=505>
<P align=left></P></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=main width=770>
<TBODY>
<TR>
<TD class=tdlbr vAlign=top>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=welcome
style="TABLE-LAYOUT: fixed" width="98%">
<TBODY>
<TR>
<TD style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all"
vAlign=top><FONT color=red><B>文章标题</B></FONT><FONT color=red><B>:
ASP中如何在客户端调用EXECL文件模板进行打印和文件保存！ </B></FONT>
<HR noShade SIZE=1>
<BR>小弟初学ASP，现需在后台通过SQL取得数据然后在客户端按照指定的EXECL格式进行
<BR>打印，并可以对EXCEL文件进行保存！，最好有实例（分值可再加，急！！！）
<BR>---------------------------------------------------------------
<BR> <BR>你将EXCEL嵌到你的网页中,打印和保存的时候你可以调用你的宏!
<BR>如果有不明白的地方可以发mail:zycheng@zhitong.com.cn
<BR>---------------------------------------------------------------
<BR> <BR>
<% <BR>
Response.ContentType = "application/msexcel"
<BR>
response.AddHeader "content-disposition",
"inline; filename=Book1.xls" <BR>
%>
<BR> <BR>filename后面应该跟随你模板文件的位置。
<BR>---------------------------------------------------------------
<BR> <BR>就是生成客户端Excel文件是吧，留下你的email，我给你发代码。
<BR> <BR>你也可以搜索Excel关键字，可以得到不少信息的。
<BR>---------------------------------------------------------------
<BR> <BR>' Save to Excel
<BR> On Error Resume Next
<BR> Set oXL=
Server.CreateObject("Excel.Application") <BR>
Set fs=Server.CreateObject("Scripting.filesystemobject")
<BR> strAppPath =
Request.ServerVariables("PATH_TRANSLATED") <BR>
strSAppPath = Left(strAppPath,
InstrRev(strAppPath, "\"))&"conn\" <BR>
strTAppPath = Left(strAppPath,
InstrRev(strAppPath, "\"))&"tempfiles\"
<BR> <BR>
'''''''''''''''''''''''修改部分(文件模板名同生成文件名Begin) <BR>
strFileName="mn.xls" <BR>
fileroute=strFileName <BR> SFullPath =
strSAppPath &"module.xls" <BR>
TFullPath = strTAppPath&strFileName
<BR> '''''''''''''''''''''''(文件模板名同生成文件名End)
<BR> <BR> fs.copyfile
SFullPath,TFullPath <BR> set oWB
= oXL.Workbooks.Open(TFullPath) <BR>
set oSheet1 = oWB.Worksheets(1)
<BR> <BR>
'''''''''''''''''''''''填充數據Begin) <BR>
<BR> <BR> oSheet1.range("d2").value=qmodel
<BR> oSheet1.range("d3").value=qline <BR> for
j=23 to 30 <BR>
For i=1 To 24'rstcount
<BR>
oSheet1.range(chr(i+66)&cstr(j)).value =
temparray(j-23,i-1) <BR> Next
<BR> For i=1 to rstcount-23
<BR>
oSheet1.range("a"&chr(i+64)&cstr(j)).value =
temparray(j-23,i+23) <BR> next
<BR> next <BR>
<BR> <BR> <BR> for j=32 to 33
<BR> For i=1 To
24'rstcount <BR>
oSheet1.range(chr(i+66)&cstr(j)).value=temparray(j-24,i-1)
<BR> Next <BR> 'For i=1
to rstcount-23 <BR>
'oSheet1.range("A"&chr(i+64)&cstr(j)).value=temparrayy(j-24,i+23)
<BR> <BR>
'response.Write
temparray(j-24,i+23)&"----"&"A"&chr(i+64)&cstr(j)&"-----"&i&"<br>"
<BR> 'next <BR>next
<BR>oSheet1.Range("AA32").value=temparray(8,24)
<BR>oSheet1.Range("AB32").value=temparray(8,25)
<BR>oSheet1.Range("AC32").value=temparray(8,26)
<BR>oSheet1.Range("AD32").value=temparray(8,27)
<BR>oSheet1.Range("AE32").value=temparray(8,28)
<BR>oSheet1.Range("AF32").value=temparray(8,29)
<BR>oSheet1.Range("AA33").value=temparray(9,24)
<BR>oSheet1.Range("AB33").value=temparray(9,25)
<BR>oSheet1.Range("AC33").value=temparray(9,26)
<BR>oSheet1.Range("AD33").value=temparray(9,27)
<BR>oSheet1.Range("AE33").value=temparray(9,28)
<BR>oSheet1.Range("AF33").value=temparray(9,29)
<BR> <BR>
'''''''''''''''''''''''(填充數據End) <BR>
oWB.Save() <BR> oSheet1.Application.Quit
<BR> oXL.Quit <BR> Set
oSheet1 = Nothing <BR> Set
oWB = Nothing <BR> Set oXL
= Nothing
<BR>%><BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=2 cellSpacing=0 id=footer width=770>
<TBODY>
<TR>
<TD align=middle class=tdt>
<P align=center></P></TD></TR></TBODY></TABLE><BR></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -