asp导出到excel时如何不使用activeX控件

aliren 2006-05-15 11:32:39

我用Excel.Application方法导出asp表格内容时使用了ActiveX控件，如果用户禁用了该控件将无法实现导出操作。

现在我想问一下有没有方法不使用到ActiveX控件的，比如用.dll组件

Excel.Application具体实现代码如下：
<SCRIPT LANGUAGE="javascript">
//指定页面区域内容导入Excel
function AllAreaExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel=document.body.createTextRange();
//PrintA是table的id
sel.moveToElementText(PrintA);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}
</SCRIPT>

现在我想问一下有没有方法不使用到ActiveX控件的，比如用.dll组件

...全文

305 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

aliren 2006-05-16

打赏
举报

感谢大家的关注,我现在用OWC方式,只是觉得没有Excel.Application好。Excel.Application的话可以通过页面排版制作excel表格，OWC是直接读数据库的记录。不过不知道有没有人可以帮我修改一下。

<%
Option Explicit

Class ExcelGen
Private objSpreadsheet
Private iColOffset
Private iRowOffset

Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iColOffset = 2
End Sub

Sub Class_Terminate()
Set objSpreadsheet = Nothing 'Clean up
End Sub

Public Property Let ColumnOffset(iColOff)
If iColOff > 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property

Public Property Let RowOffset(iRowOff)
If iRowOff > 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property

Sub GenerateWorksheet(objRS)
'Populates the Excel worksheet based on a Recordset's contents
'Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
objSpreadsheet.Columns(iCol).AutoFitColumns
'设置Excel表里的字体
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '居中
iCol = iCol + 1
Next 'objField
'Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
End If
iCol = iCol + 1
Next 'objField
objRS.MoveNext
Loop
End Sub

Function SaveWorksheet(strFileName)
'Save the worksheet to a specified filename
On Error Resume Next
Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)
SaveWorksheet = (Err.Number = 0)
End Function
End Class

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM admin", conn,1,1'conn自己写一个
Dim SaveName
SaveName = "aaa1"'Request.Cookies("savename")("name")

Dim objExcel
Dim ExcelPath
ExcelPath =SaveName & ".xls" ' "Excel\" & SaveName & ".xls"
Set objExcel = New ExcelGen
objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
objExcel.GenerateWorksheet(objRS)
If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then
Response.Write "<html><body bgcolor='gainsboro' text='#000000'>已保存为Excel文件. <a href='" & server.URLEncode(ExcelPath) & "'>下载</a></body></html>"
Else
Response.Write "在保存过程中有错误!"
End If
Set objExcel = Nothing
objRS.Close
Set objRS = Nothing
%>

xxuu503 2006-05-16

打赏
举报

估计服务器段直接放一个excel文件，他也下载不了的

你这样子试一下，如果纯粹下载excel文件都不能成功

那就更不用说生成了

xxuu503 2006-05-16

打赏
举报

我的方法根activex无关

你是不是装了3721（或者其他的工具条）？

就是那个家伙的问题

估计服务器段直接放一个excel文件，他也下载不了的

aliren 2006-05-15

打赏
举报

服务器端怎么做?给个方案方法阿,

Peter_Wang 2006-05-15

打赏
举报

必须在客户端实现么？我倒是做过服务端的

king2003 2006-05-15

打赏
举报

可以这个可以在服务器端进行操作的.不过你服务器端得注册OWC才行.

aliren 2006-05-15

打赏
举报

用 xxuu503(我爱郭芙蓉！) 方法也会有提示：

某些文件可能会损害你的计算机.如果下面的文件信息看起来可疑,或者您不完全相信它的来源,不要打开或保存此文件.

可能是被一些防火墙或者杀毒软件检测到的,或者本来就是微软设置的,所以感觉也不是很好.而且这种方法是在页面中嵌入.xls表格

xxuu503 2006-05-15

打赏
举报

xls.asp：

<%
Response.ContentType="application/vnd.ms-excel"
%>
<table><tr><td>数据放在这儿</td></tr><td>
<table><tr><td>数据放在这儿</td></tr><td>

保存为asp，从iis看看

xxuu503 2006-05-15