📄 asp中生成的报表倒入到word或excel中.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.51base.com/article/view_article.asp?id=61724 -->
<HTML lang=zh-cn><HEAD><TITLE>NB联盟</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="NB联盟22.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联盟22.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中生成的报表倒入到word或excel中吗。具体则么实现,谢谢 </B></FONT>
<HR noShade SIZE=1>
<BR>请问高手,可以把ASP中生成的报表倒入到word或excel中吗。具体则么实现,谢谢
<BR>---------------------------------------------------------------
<BR> <BR>sub Import2Xls() <BR>'把结果转存到Excel中
<BR>
<BR> dim
objXls <BR>
dim sSql <BR>
dim iCount <BR>
dim
iIndex,idir,istr,iend,count,ipage,userunit,line,str_text,
a, b, l_start, x, lc, acount
<BR> dim
ObjChk, userkey, groupkey <BR>
set
obj=CreateObject("Excel.Application") <BR>
obj.Visible=True
<BR>
obj.Workbooks.Add <BR>
if Err.number
<> 0 then <BR>
'出错 <BR>
obj.quit <BR>
set obj=Nothing
<BR>
msgbox
"本机没有安装Excel或者生成新文件时出错!",16,"输出到Excel" <BR>
else <BR>
.columns.columnwidth =3.75 '栏宽
<BR>
.Rows.RowHeight =
22 <BR>
.columns(1).columnwidth = 23.75
'栏宽 <BR>
.columns(1).HorizontalAlignment = -4131
'格式居左 <BR>
.rows(1).rowheight = 120
<BR>
.rows(1).VerticalAlignment=
-4160 <BR>
.rows(1).Orientation = -4166
<BR>
<BR>
<%If Request("ShowStyle")="PowerTop"
then%> <BR>
GroupList true, 2,
obj <BR>
UserList false, 2,
obj <BR>
PowerList true,
obj <BR>
<%Elseif
Request("ShowStyle")="UserTop" then%>
<BR>
GroupList false, 2, obj
<BR>
UserList true, 2, obj
<BR>
PowerList false, obj
<BR>
<%End if%>
<BR>
with .Range(.Cells(1,1),
.Cells(rowcount + 1, colcount +
1)).Borders(7) '画左边界 <BR>
.LineStyle = 1
<BR>
.Weight = -4138 <BR>
.ColorIndex
= -4105 <BR>
End with
<BR>
with .Range(.Cells(1,1),
.Cells(rowcount + 1, colcount +
1)).Borders(8) '画上边界 <BR>
.LineStyle = 1
<BR>
.Weight = -4138 <BR>
.ColorIndex
= -4105 <BR>
End with
<BR>
with .Range(.Cells(1,1),
.Cells(rowcount + 1, colcount +
1)).Borders(9) '画右边界 <BR>
.LineStyle = 1
<BR>
.Weight = -4138 <BR>
.ColorIndex
= -4105 <BR>
End with
<BR>
with .Range(.Cells(1,
1), .Cells(rowcount + 1, colcount
+ 1)).Borders(10) '画下边界 <BR>
.LineStyle
= 1 <BR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -