100分急求asp导出到excel的有关问题！

2012-02-28

100分急求asp导出到excel的问题！！服务器是公司的服务器，可以自己设置，但是网管那里不同意安装excel，所以我

100分急求asp导出到excel的问题！！
服务器是公司的服务器，可以自己设置，但是网管那里不同意安装excel，所以我从office里面找来了组件：MSOWC.DLL（2.94M），以前我曾经安装过这个组件，就可以用了，但是现在不行了：
提示：
Microsoft VBScript 运行时错误错误 '800a01ad '

ActiveX 部件不能创建对象: 'Excel.Application '

/hr/out.asp，行16
------------------------------------------------
程序代码：
set objExcelApp =CreateObject( "Excel.Application ")

哪位能帮解决下，谢谢了，分不够可以再补。我QQ：123451234，验证：88888

我已经搜索了许多文章，还是不能解决。用aspcheck也检测不到Excel.Application，但是确实已经在服务器注册成功了这个组件。

[解决办法]
导出成.csv文件的行不，如果行的话你可以试试下面这段代码,我现在用来备份网站日志用的，可以正常使用,Message_clear过程可以再优化一下，因为我发现导出时因为一些特殊符号会造成结构出错

Response.AddHeader "Content-Disposition ", "attachment; filename=此处是文件名.csv "
Response.CharSet = "UTF-8 "
Response.ContentType = "application/octet-stream "
dim i,m
m=0
set rs = conn.Execute( "select * From [表名] order by id desc ")
Response.Write "字段1 "
Response.Write ", " & "字段2 "
Response.Write ", " & "字段3 "
Response.Write ", " & "字段4 "
Response.Write ", " & "字段5 "
Response.Flush()
do while not rs.eof
Response.Write vbCrLf & Message_clear(RemoveHTML(rs(0)))
for i=1 to rs.fields.count-1
Response.Write ", " & Message_clear(RemoveHTML(rs(i)))
next
Response.Flush()
rs.Movenext
loop
rs.Close
set rs = nothing

function Message_clear(body)
if trim(body)= " " then exit function
Message_clear = replace(body, ", ", "， ")
Message_clear = replace(Message_clear, "; ", "； ")
Message_clear = replace(Message_clear, " ' ", " ")
Message_clear = replace(Message_clear, "% ", "％ ")
Message_clear = replace(Message_clear,chr(13)&chr(10), " ")
end function
[解决办法]
在服务器注册表中查找excel.appliction先.如果没就运行不了.

*****************************************************************************

用功譬若掘井，与其多掘数井而皆不及泉，何若老守一井，力求及泉而用之不竭乎?

[解决办法]
应该是权限问题，你的服务器是ntfs格式吧？
[解决办法]
我顶
[解决办法]
把读出的数据用＜table＞格式，在网页中显示出来，同时，加上下一句即可把EXCEL表在客客户端显示。

＜%response.ContentType = "application/vnd.ms-excel "%＞

　　注意：显示的页面中，只把＜table＞输出，最好不要输出其他表格以外的信息。

[解决办法]
把客户的模板用Excel打开，然后“文件”-“另存为网页”。保存好之后是一个扩展名为.htm的文件。
接着用文本编辑器打开，你会看到Excel的每一行数据其实对应这一个表格的 <tr> </tr> 。你要做的就是把数据添加到新的 <tr> </tr> 里就可以了。
[解决办法]
<![if !supportAnnotations]> <style id= "dynCom " type= "text/css ">  </style>

<script language= "JavaScript "> <!--

function msoCommentShow(com_id,anchor_id) {
if(msoBrowserCheck()) {
c = document.all(com_id);
a = document.all(anchor_id);
if (null != c) {
var cw = c.offsetWidth;
var ch = c.offsetHeight;
var aw = a.offsetWidth;

<x:WorksheetOptions>
<x:DefaultRowHeight> 240 </x:DefaultRowHeight>
<x:Print>
<x:ValidPrinterInfo/>
<x:PaperSizeIndex> 9 </x:PaperSizeIndex>
<x:HorizontalResolution> 600 </x:HorizontalResolution>
<x:VerticalResolution> 600 </x:VerticalResolution>
</x:Print>
<x:Selected/>
<x:LeftColumnVisible> 2 </x:LeftColumnVisible>
<x:Panes>
<x:Pane>
<x:Number> 3 </x:Number>
<x:ActiveRow> 17 </x:ActiveRow>
<x:ActiveCol> 4 </x:ActiveCol>
</x:Pane>
</x:Panes>
<x:ProtectContents> False </x:ProtectContents>
<x:ProtectObjects> False </x:ProtectObjects>
<x:ProtectScenarios> False </x:ProtectScenarios>
</x:WorksheetOptions>
</x:ExcelWorksheet>
</x:ExcelWorksheets>
<x:WindowHeight> 10830 </x:WindowHeight>
<x:WindowWidth> 15480 </x:WindowWidth>
<x:WindowTopX> 360 </x:WindowTopX>
<x:WindowTopY> 75 </x:WindowTopY>
<x:AcceptLabelsInFormulas/>
<x:ProtectStructure> False </x:ProtectStructure>
<x:ProtectWindows> False </x:ProtectWindows>
</x:ExcelWorkbook>
<x:ExcelName>
<x:Name> v_Export </x:Name>
<x:Formula> =v_Export!$A$1:$J$1 </x:Formula>
</x:ExcelName>
</xml> <![endif]-->  
</head>

<body link=blue vlink=fuchsia>

[解决办法]
都挺牛的
[解决办法]
<table x:str border=0 cellpadding=0 cellspacing=0 width=989 style= 'border-collapse:
collapse;table-layout:fixed;width:743pt '>
<col width=144 style= 'mso-width-source:userset;mso-width-alt:5266;width:108pt '>
<col width=150 style= 'mso-width-source:userset;mso-width-alt:5485;width:113pt '>
<col width=136 style= 'mso-width-source:userset;mso-width-alt:4973;width:102pt '>
<col width=64 style= 'width:48pt '>
<col width=93 style= 'mso-width-source:userset;mso-width-alt:3401;width:70pt '>
<col width=64 style= 'width:48pt '>
<col width=73 style= 'mso-width-source:userset;mso-width-alt:2669;width:55pt '>
<col width=74 style= 'mso-width-source:userset;mso-width-alt:2706;width:56pt '>
<col width=79 style= 'mso-width-source:userset;mso-width-alt:2889;width:59pt '>
<col width=112 style= 'mso-width-source:userset;mso-width-alt:4096;width:84pt '>
<tr class=xl25 height=16 style= 'height:12.0pt '>
<td height=16 class=xl25 width=144 style= 'height:12.0pt;width:108pt '
x:str= " '铃音编号 "> <a name= "v_Export "> 铃音编号 </a> </td>
<td class=xl25 width=150 style= 'width:113pt ' x:str= " '歌曲名称 "> 歌曲名称 </td>
<td class=xl25 width=136 style= 'width:102pt ' x:str= " '歌手 "> 歌手 </td>

<div style= 'mso-element:comment '> <![if !supportAnnotations]>

<div id= "_com_1 " class=msocomtxt
onmouseover= "msoCommentShow( '_com_1 ', '_anchor_1 ') "
onmouseout= "msoCommentHide( '_com_1 ') " language=JavaScript> <![endif]>

<div> <![if !supportAnnotations]> <a class=msocomhide href= "#_msoanchor_1 "
name= "_msocom_1 "> [1] </a> <![endif]>  <![if !vml]> <span style= 'mso-ignore:vglayout '> <![endif]>

<div v:shape= "_x0000_s1025 " style= 'padding:.75pt 0pt 0pt .75pt;text-align:left '
class=shape> <font class= "font7 "> pisces: </font> <font class= "font6 "> <br>
1900-1-1表示已经过期 </font> </div>

<![if !vml]> </span> <![endif]> </div>

<![if !supportAnnotations]> </div>

<![endif]> </div>

</div>

</body>

</html>
[解决办法]
拷贝上面代码，保存为.asp文件，运行即可得到一个excel文件。

PS：就连Excel里的批注，也同样可以生成为，html+javascript格式。

热点排行

ASP

100分急求asp导出到excel的有关问题！