-2

サーバーにExcelファイルをアップロードする必要があります。しかし、問題は、これにMS Excel 12.0 オブジェクト ライブラリがあるかどうかを確認する必要があることです ?? 誰かがこれのための平均的な方法を提案できます..??

4

1 に答える 1

0

Excel ファイルがサーバーにアップロードされた後の従来の ASP コードを次に示します (ここからコピー)。

<% Option Explicit %>
<html>
<body>
<%
Dim objConn, objRS, strSQL
Dim x, curValue

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; "&_
    "Excel 8.0; DBQ=" & Server.MapPath("excelfile.xls") & "; "

'if using xslx (Excel 2007) use this instead:
'objConn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"&_
'   "DBQ=" & Server.MapPath("excelfile.xlsx") & ";"

strSQL = "SELECT * FROM A1:Q10000"
Set objRS=objConn.Execute(strSQL)
Response.Write("<table border=""1"">")
Response.Write("<tr>")
For x=0 To objRS.Fields.Count-1
   Response.Write("<th>" & objRS.Fields(x).Name & "</th>")
Next
Response.Write("</tr>")
Do Until objRS.EOF
    Response.Write("<tr>")
    For x=0 To objRS.Fields.Count-1
        curValue = objRS.Fields(x).Value
        If IsNull(curValue) Then
            curValue="N/A"
        End If
        curValue = CStr(curValue)
        Response.Write("<td>" & curValue & "</td>")
    Next
    Response.Write("</tr>")
    objRS.MoveNext
Loop
objRS.Close
Response.Write("</table>")
objConn.Close
Set objRS=Nothing
Set objConn=Nothing
%>
</body>
</html>
于 2012-06-25T07:11:30.947 に答える