谁能解答一下通过asp页面打开excel表格的问题

[Abo]

通过一些示例如：
set xlApp =CreateObject("Excel.Application")
xlApp.Visible = false
set myWorksheet = myWorkbook.Worksheets(1)等等，我已能够新建excel表格，现在问题是如何打开一个存在的表格。我试过以下几种方法：
（1）
set xlApp =CreateObject("Excel.Application")
xlApp.Visible = false
set myexcel = xlApp.workbooks.open(server.mappath("test.xls"))
...
在浏览器中打开此页，会出进度条极慢，打开任务管理器，会看到excel.exe在内存中运行，必须用preview软件KIll掉才行。在事件管理器中会看到四个错误日志：
其中两个是：
1 连接到服务器失败。错误: 0x80070005
2 检测到产品 {00000804-78E1-11D2-B60F-006097C998E7}，功能 OfficeUserData，组件 {C9AF9050-C8BE-11D1-9C67-0000F81F1B38} 失败。资源 HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserData 不存在。
（2）用Getobject方法
set myexcel=getobject("test.xls",excel.application)
则浏览器显示不支持getobject方法。
（3）我用vb建了个组件其中用到（1）的一部分。即
set myexcel = xlApp.workbooks.open(server.mappath("test.xls"))
注册后，运行浏览器显示找不到test.xls，请确认是否存在等等，即便我手写test.xls的绝对路径也不行，由于我对vb知道较少，也不知该怎样修改。
以上问题是在打开excel表格中出现的症状，请高手作参考，我的运作环境为win2k server+excel200+iis，也不知和这环境是否有关。

[zhenhao]

呵呵，学习。

[extract]

你要确定是否安装了Office,还有他的版本，再到注册表中检查是否有这个键。
下面的程序我测试过了，可以，你试试！环境：win2000+IIS+Office2000

<%@language=vbscript%>
<%
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
strsource = server.Mappath("test.xls")
Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Range ( "J10" ).Value = "Account"
xlbook.Saveas "D:\Inetpub\wwwroot\test1.xls"
set xlsheet = nothing
set xlbook = nothing
xlApp.quit
%>

[Abo]

我觉的八九不离十很可能与检测到的错误日志有关:
(1)连接到服务器失败。错误: 0x80070005
(2)检测到产品 {00000804-78E1-11D2-B60F-006097C998E7}，功能 OfficeUserData，组件 {C9AF9050-C8BE-11D1-9C67-0000F81F1B38} 失败。资源 HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserData 不存在。
我发现在\comman\下的确不存在userdata,到底下面有啥东西?

[MeXP]

把连接对象贴出来
1。为什么连接失败？思考一下，硬件？代码？十有八九是软件代码错误
2。你的程序是在客户端执行还是服务器端，服务器端当然要用server.createobject

[Abo]

用server.createobject？不会吧？excel是进程外组件，server不支持，而且我生成excel表格就是用createobject，不能用server.createobject，我觉得extract(苛刻)代码应当可以实现的，只不过我的office在装的时候注册表中少了一些就象日志所提示的那样。缺少一些键值，请能实现的高手将缺少的键值补上怎么样？

[leagenary]

干吗写的那么复杂呢，用超链接一个Excel文件名（写上路径）不就可以打开Excel了吗？
另外，excel.exe在内存中一直执行该是因为没有关掉Excel文件的原因。

[MeXP]

to ado
Sorry,我说错了，不能用server.createobject
为什么不用组件，附上一篇文章,也许你已经有了

一个用组件动态创建Excel文件的实例
1.新建一个DLL工程．工程名为p_excel,类名为c_excel
2.在"project"->"references"中选中"Microsoft Excel 9 Object Library".
3.代码
Option Explicit

Dim oExcel As Excel.Application
Dim oSheet As Excel.Worksheet
Dim oTitle As Excel.Range

Public Sub CreateExcel()
Set oExcel = New Excel.Application
oExcel.Visible = False
oExcel.Workbooks.Add
Set oSheet = oExcel.Workbooks(1).Worksheets("Sheet1")
oSheet.Activate
Set oTitle = oSheet.Range("A1")
oTitle.Value = "Excel Title"
oTitle.Font.Bold = -1
oTitle.Font.Size = 18
oTitle.Font.Name = "Arial"
oSheet.SaveAs "allen.xls"
oExcel.Quit
Set oExcel = Nothing
End Sub
4.编译生成p_excel.dll
5.使用MTS注册p_excel.dll
6.ASP文件代码并在IIS中设置要生成excel文件的虚拟目录对用户有写的权限.
excel.asp
<%
set myExcel=server.createobject("p_excel.c_excel")
myExcel.CreateExcel
set myExcel=nothing
%>
7.运行excel.asp，在相关目录下我们就可以找到生成的Excel文件.

改进的建议:
1.在p_excel.dll中增加(range,value)的属性就可以利用从数据库中查询返回的记录动态生成Excel文档.
2.增加Email功能自动将生成的Excel文件发送给相关用户.

[Abo]

各位老大啊!哎呀呀!
我通过vba打开excel表格是为了让表格内的数据自动更新,然后再存盘,这样以后可以通过ado通过表格了,客户根本不必安office组件,一切通过服务端完成。也就是说打开excel表格是有用意的，让它完成与数据库一样的事务操作，大家明白了吗？
另外mexp(秦汉风)的方法我已模仿了好几遍了，上面是新建excel，麻烦有人能作一个打开，然后再保存的简单vb组件，我没学过vb ,虽然照上面的摸索了一下，但仍不能完成，也就是一开始我说的通过组件仍不能完成。

[Abo]

各位，我按大家所说的试过了，还是不行，特别是extract的，错误日志和我说的（1）一样，实际上我已安office2000了，是不是重新安一下office2000才行？
以前我安上office2000时进行createobject需要用server.createobject才行，虽然说是进程外组件不能用server.createobject。大家想想还有什么办法吗？

[leagenary]

我现在连新建一个Excel都没成功，为什么？
Set xlApp = CreateObject("Excel.Application")
Set xlbooks = xlApp.Workbooks
Set xlbook = xlbooks.Add
Set xlsheet = xlbook.Worksheets(1)
xlApp.Visible = True

[leagenary]

产生的错误是：错误：Active元件无法产生物件："Excel.Application"
我的是IE5.0
与IE有关系吗？

[Abo]

新建一个excel都没成功？
试一下将createobject换成server.createobject。虽然excel是进程外组件，但有时用createobject不能成功，用server.createobject则可以，我以前是这样的。现在重新装系统后，反过来了。

[Abo]

大家再给我想想办法，100分一定奉上。
我不要新建，只要用vba打开，然后再保存，应当很简单的。要不看看
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\UserData 有啥东西。

[leagenary]

还是不行，错误：此处需要Server物件。
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common下也没有UserData啊！
我没招了。

[Abo]

我也没办法了。
现在还是等高手tripofdream(梦之旅)吧！他是这方面的专家。

[extract]

这个问题还没有解决呀？
1、在HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common下建立
键：UserData REG_DWORD 1(十六进制)
2、确定你在浏览该网页的时候，是否打开了excel，如果打开了excel，有时候会出现该问题。
3、xlApp.Visible = True 改为False试试，但应该效果不大！
4、建议office修复！

[tripofdream]

根据以前几个关于在ASP中使用VBA的贴子中"微软全球技术支持"的回复,好象微软并不保证能在ASP中使用VBA,原因是由于安全性(这个理由并不是很好,觉得是微软的借口,既然是出于安全性考虑就不应该出现有时能用有时不能用的现象,真正的原因恐怕是技术原因),所以比较可靠的用法还是使用组件.

Option Explicit
public function VBAOpen(ByVal FileName as String) as Integer
Dim oExcel As New Excel.Application
Dim oBook As New Excel.Workbook
On Error GoTo handle
oExcel.Visible=false
set oBook=oExcel.Workbooks.Open(FileName)
oBook.Save
oExcel.quit
set oBook=nothing
set oExcel=nothing
VBAOpen=1
handle:
VBAOpen=-1
end function

注意组件要在组件服务中注册,而不是用regedit注册,因为仍会存在权限的问题.

[Abo]

我明白了。马上试试。
而且我还找了一篇微软关于这方面的专题。
http://support.microsoft.com/default.aspx?scid=kb;ZH-CN;q2577

[Abo]

好！好了！感谢梦之旅的回答！
我的msdtc服务不能正常运行，也无法进行注册，但一说到涉及权限的问题，我在iis中对目录权限问题进行了改动，由匿名改为一域用户，结果用前面vba就作到了，虽然过程较长。
最后我想请梦之旅就像我这样改的话会出现什么情况，能简单讲一下，怎么样？我试了一下，在别的电脑上（局域网内）用不同的用户试一下，结果还是能看的，而且也能使其自动更新。
我的主要目的就是能在局域内的用户能对excel更改，并其自动更新，更改的excel数据库面向internet 用户。

[tripofdream]

这样改主要问题是要注意权限的控制