Automation | 真有意思

Javascript(Js) 浏览器端操作 excel 文件

2008年12月10日

Javascript 浏览器端操作excel文件，是属于客户端操作，利用 ie 的 automation 功能，但此项操作，需要降低IE的安全级别或者加入信任站点。

<script language="javascript" type="text/javascript">
function Export2Excel(table_id)
{
    var tbl = document.getElementById(table_id);
    try
    {
        var xls = new ActiveXObject("Excel.Application");
....

[

阅读全文 ]

Javascript activeXObject, automation, excel.application, Javascript, 导出EXCEL

Asp + Excel 操作大全

2008年12月10日

没有评论

一. OLEDB方式

<%@Language="VBSCRIPT" CodePage="936"%>
<%Option Explicit%>
<html>
<head>
<title>EXCEL Speed Test</title>
<style>
  body,p{font-family:"Tahoma";font-size:"8pt"}
</style>
</head>
<body>
<%
    Dim time_start, time_end
    Dim xls, conStr
    time_start = timer()
    Set xls = Server.CreateObject("ADODB.Connection")
    xls.Provider = "Microsoft.JET.OLEDB.4.0"
    xls.CursorLocation = 3
    conStr = "Data Source=" & Server.MapPath("test.xls") & ";Extended Properties=Excel 8.0;"
    On Error Resume Next
    xls.Open conStr
    If Err.Number <> 0 Then
      response.Write(Err.Description)
      Err.Clear
      response.End
    End If
    Dim rs, i
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM ['sheet1$']", xls, 1, 1, 1
    If rs.Eof And rs.Bof Then
    Else
      Dim fc
      fc = rs.Fields.Count
      For i = 0 To fc - 1
        response.Write(rs.Fields(i).Name)
        response.Write("|")
      Next
      response.Write("<BR><BR>")
      Do While Not rs.Eof
        If request.IsClientConnected Then
          For i = 0 To fc - 1
            response.Write(rs(i).Value)
            response.Write("|")
          Next
          response.Write("<BR>")
          rs.MoveNext
        Else
          Exit Do
        End If
      Loop
    End If
    rs.Close
    xls.Close
    Set rs = nothing
    Set xls = nothing
    response.Write("<BR>")
    response.Write("<hr>")
    response.Write("<p align='center'>")
    time_end = timer()
    response.Write("页面执行时间: ")
    response.Write(FormatNumber((time_end - time_start)*1000, 2))
    response.Write(" 毫秒</p>")
%>
</body>
</html>
<%  response.End %>