紧急求助

[quansg]

web服务器不安装excel文件的情况下，怎么访问服务器端的excel并且读取其中数据(是上传excel)??

下面这种方式服务器端是否必须需要安装excel?
Set xlApp = server.CreateObject("Excel.Application")

strsource = "c:\excel\book1.xls"

Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)

[tigerwen01]

不安装excel文件好象不行

[itzhiren]

当然需要安装才行哦

[jspadmin]

谁说不可以啊！不是自己的服务器，又没安装到Excel程序，可以先建一个空白的Excel文件，然后上传到服务器指定的目录中，每次要用的时候，用FSO对象copy过去就行了，接下来的操作就一般无二了：
<%
set fso=CreateObject("Scripting.FileSystemObject")
Randomize
newfile="output" & Int(Rnd * 9000 + 1000) & ".xls"
if fso.FileExists(server.MapPath(newfile)) then fso.DeleteFile server.MapPath(newfile)
fso.copyfile server.MapPath("model.xls"),server.MapPath(newfile)
set fso=nothing
sql="select 姓名,部门职位,年龄,文化程度,籍贯 into [sheet1$] In '" & server.MapPath(newfile) & "' 'EXCEL 5.0;' from 数据表a"
conn.execute sql
response.Redirect(newfile)
%>