找了半天的资料,终于解决了,关键是下面红色部分
<%
Set ExcelApp=server.CreateObject("Excel.Application")
ExcelApp.Application.Visible = True
Set ExcelBook=ExcelApp.Workbooks.Add
ExcelBook.WorkSheets(1).cells(1,1).value ="用户表"
ExcelBook.WorkSheets(1).cells(2,1).value = "用户编号"
ExcelBook.WorkSheets(1).cells(2,2).value = "登陆名"
ExcelBook.WorkSheets(1).cells(2,3).value = "真实姓名"
ExcelBook.WorkSheets(1).cells(2,4).value = "密码"
cnt=3
ExcelBook.WorkSheets(1).cells(cnt,1).value = "fd"
ExcelBook.WorkSheets(1).cells(cnt,2).value = "fg"
ExcelBook.WorkSheets(1).cells(cnt,3).value ="ff"
ExcelBook.WorkSheets(1).cells(cnt,4).value = "ff"
Excelbook.SaveAs "d:\yourfile.xls" '这个是数据导出完毕以后在D盘存成文件
ExcelApp.Application.Quit '导出以后退出Excel
Set ExcelApp = Nothing '注销Excel对象
%>
这个是经过调试成功的代码，成功创建了一个yourfile.xls文件
具体权限设置：
控制面版-->管理工具-->组件服务-->计算机-->我的电脑-->DCOM配置－－>Microsoft Excel
应用程序－－>属性－－>安全－－>编辑－－>添加－－>高级－－立即查找－－选择EVERYONE
－－确定－确定
把这3个全添加上去就可以执行了
