asp写Excel的问题

chloe 2008-03-27 04:12:40
代码：
Set objExcelApp = CreateObject( "Excel.Application ")
objExcelApp.Quit
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
objExcelApp.WorkBooks.Open(ExeclFile)

问：
为什么执行到最后一句IE就跟死了似的，不动了，没有报错信息，也没任何出错！
确认ExcelFile路径文件名均是正确。
...全文
97 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
从代码看 没啥区别
那自己打开xls看看了 如果本地打开都有问题 服务器打开 估计也不行
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
我的是本地运行
你的是asp代码
我一会运行 先吃饭......
chloe 2008-03-27
  • 打赏
  • 举报
 回复
路径都不确认，俺哪好意思上来请教各位大侠！

不过问题已经找到了，是Excel文件本身的问题，换一个就没问题了，那个文件好象中间有Excel工作薄之间相互关联的比较多，具体也搞不清楚，总之我把它换了。
具体的原因也不想追究了，这个问题我已经整了大半天了，腻了，当然，欢迎有高人前来指点迷律。


再次谢谢楼上的各位，回头就结贴。
一把编程的菜刀 2008-03-27
  • 打赏
  • 举报
 回复
汗！路径确认是对的？
chloe 2008-03-27
  • 打赏
  • 举报
 回复
to slience2k:

我运行了你贴的程序，没有任何反应，返回一片空白，也没有报错，很是郁闷。
确认excel文件中是有东西的。

我把多余的删了,目前只剩下这些：

ExeclFile = Server.MapPath("Logi.xls")

Set objExcelApp=Server.CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
objExcelApp.WorkBooks.Open(ExeclFile)
set objExcelBook = objExcelApp.ActiveWorkBook
reDim arrSheets(objExcelBook.Sheets.Count)
For i=1 to objExcelBook.Sheets.Count
arrSheets(i) = objExcelBook.Sheets(i).Name
Next
objExcelApp.Quit
Set objExeclApp=nothing
Response.write err.description
chloe 2008-03-27
  • 打赏
  • 举报
 回复
UP一下。
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
也可以 打开的完整函数来看
你不发 我也没办法帮你了........

我发的刚才是可以正常运行的
chloe 2008-03-27
  • 打赏
  • 举报
 回复
这个我知道，每次运行我都会查看任务管理器里有没有多余的excel进程的。

先行谢过以上几位。
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
还一个 就是 如果你程序 没有安全退出 可能 excel进程 不会安全结束
然后多几次 任务管理器里面会有很多个 excel.exe
也可能造成 程序不能正常运行
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
文件是 c:
根目录下 abc.xls
crazy19850222 2008-03-27
  • 打赏
  • 举报
 回复
<HTML>
<HEAD>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<TITLE>生成EXCEL文件</TITLE>
</HEAD>
<body>
<!--a href="date_excel.asp?act=make">在线生成EXCEL</a-->
<!--hr size=1 align=left width=300px-->
<%
if Request("act") = "make" then
'Response.Write "生成EXCEL文件"
'else
dim conn,strconn
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./")& "\pdj.mdb;"
set conn=server.CreateObject("adodb.connection")
conn.Open strconn
dim rs,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("online.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
'--从数据库中把你想放到EXCEL中的数据查出来
sql = "select * from tVIP"
rs.Open sql,conn,1,1

if rs.EOF and rs.BOF then
else
dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine = strLine & x.name & chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine = strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
End If
%>
<font color="#FF0000">数据下载中......请稍后</font>
<meta http-equiv="Refresh" content="5; URL=../web/testone.asp">

</body>
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
我这个是显示 excel 几个sheet的 名字 你看能正常运行不 我测试的可以


<html>



<head>

<meta name="GENERATOR" content="Microsoft FrontPage 5.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>新建网页 3</title>

</head>



<body>

<script language="VBScript">

Set objExcelApp = CreateObject("Excel.Application")



objExcelApp.DisplayAlerts   =   false   '不显示警告    

objExcelApp.Application.Visible   =   false   '不显示界面    

objExcelApp.WorkBooks.Open "c:\\abc.xls"



set objExcelBook = objExcelApp.ActiveWorkBook  

reDim arrSheets(objExcelBook.Sheets.Count)  

For i=1 to objExcelBook.Sheets.Count  

arrSheets(i) = objExcelBook.Sheets(i).Name  

document.write arrSheets(i)

Next  

objExcelApp.Quit 

</script>

</body>



</html>
wpjwll 2008-03-27
  • 打赏
  • 举报
 回复
up
chloe 2008-03-27
  • 打赏
  • 举报
 回复
拜托，谢谢了。
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
等我自己写个试试
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
对了
Set objExcelApp = CreateObject( "Excel.Application ")
objExcelApp.Quit

好像不对吧 你刚创建 怎么就关闭哦?
chloe 2008-03-27
  • 打赏
  • 举报
 回复
首先谢谢楼上回复！

后续操作是有的，有后续操作的结果也是一样的，就是跟死了一样，不动了，就是因为发现这样，所以我逐行排错，看在哪里不动了，后来排到这里，就发现一到这句，就不动了。
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
set objExcelBook = objExcelApp.ActiveWorkBook
reDim arrSheets(objExcelBook.Sheets.Count)
For i=1 to objExcelBook.Sheets.Count
arrSheets(i) = objExcelBook.Sheets(i).Name
Next

你不设置工作页面 他估计都不知道该给你显示什么
你贴的内容只能表示你 启动了 excel 打开了文件句柄
但没进行其他操作 显示 读取都没
因为他不知道你想显示哪个页面
silence2k 2008-03-27
  • 打赏
  • 举报
 回复
后续的操作呢 设置活动页面呢?
Asp.net操作Excel的一个类库ExcelHelper
这个类库没有提供Excel样式设置的方法，建议使用模板，可以在模板中把格式控制好；ExcelHelper提供了实现Excel的基本操作的一些方法，包括： 1、将二维数组和DataTable的数据导入Excel，可以按指定每页的记录行数来分页，还可以将数据相同的行合并 2、WorkSheet的拷贝、隐藏方法，删除操作会出问题，不过对于WorkSheet这两个方法足够了 3、Excel行、列的拷贝、删除、插入、合并操作 4、Excel单元格的拷贝、删除、插入、合并操作，可以将单个文本值写入单元格，也可以将多个值及其对应Excel单元格的位置信息保存在Hashtable中写入单元格 5、Excel文本框赋值操作，一些Excel控件都没有提供访问文本框的方法，要不我也不用写这个类库了 6、将Excel文件导出多种格式 在开发的过程中发现的几个问题： 1、Exce进程结束问题，我目前使用的方法好像对专业版的OS没用，要用ntsd -c q -p pid命令才能结束掉 2、并发问题，如果有两个人同时操作Excel组件的时候就会出错，不知大家有没有好的解决方法，好像使用进程池可以解决这个问题 3、Excel组件访问权限的配置问题，见我以前写的随笔关于在ASP.NET中以DCOM方式操作Excel的几个问题 http://www.cnblogs.com/lingyun_k/archive/2005/08/01/205097.html
NPOI操作excel之读取、写入excel数据
这是我用C# asp.netasp.net写的关于NPOI操作excel之读取、写入excel数据的例子，简单易懂，希望对于有帮助。
Excel.dll
Excel.dll操作Excel
asp.net+extjs三层架构项目代码生成器(很适合快速开发)
最新最牛气的代码生成器，只需设计好数据库，直接生成可以用的BS项目，此代码生成器非常方便，做项目只需设计好数据库，然后按照生成提示一步步做，即可生成可直接使用的项目，从数据访问层到表示层，所有代码一气生成，生成后的功能有增、删、改、查、导出excel等等，只需作少许改动就可以完成多种常用项目，大大提高你的工作效率，而且是带ext功能的，大量用到了ajax技术。我接了十多个项目全是用它做的，客户非常满意。现免费给大家使用，欢迎大家试用，也欢迎大家多提意见，以便我改进。。 email:cqniit@126.com http://cqsoft.taobao.com
ASP 操作ADO 读写Excel文件
为了把数据库中的数据导出Excel，在网上找了N多的资料有直接服务器中创建excel的，也有用owc生成的，还有javascript输出的，每种方法开始是以为不错最后经过调试和试用都发现了这样和那样的问题。比如，CreateObject("Excel.Application") 此方法无法创建对象，服务器端有excel office；Response.ContentType = "application/vnd.ms-excel" ，此方法容易输入乱码并且操作excel的格式困难，数据量较大(试用生成的文件
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章