1

私はここに初めて来ました。これが私の問題を投稿する適切な領域であることを願っています。ASP ページから XLS ファイルを作成しようとしていますが、Excel ファイルをダウンロードしようとすると、ASP ページが生成します。次のページが表示されます。エラー

XML ページを表示できません

スタイル シートを使用して XML 入力を表示できません。エラーを修正してから [更新] ボタンをクリックするか、後でもう一度やり直してください。

ドキュメントのトップ レベルでは無効です。リソース '_http:../victoria/FW91/BarrilesRandom/Escan... の処理中にエラーが発生しました...

Mov NumeroParte Planta Sloc1 Sloc2 Descuento UoM ^

この問題は、ローカル ネットワークのすべてのコンピューターで発生するわけではありません。つまり、一部のコンピューターでは問題なくファイルをダウンロードしますが、他のコンピューターではエラーが発生します。Excel バージョンがコンピューターにインストールされている可能性があります( 2007年と2010年を使用していますが、よくわかりません。コードは次のとおりです。助けていただければ幸いです。ご挨拶

%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"

html xmlns="http://www.w3.org/1999/xhtml"

head

meta http-equiv="Content-Type" content="text/html; charset=utf-8"

titleDocumento sin título/title

/head

body

Dim Conexion,SQL

set Conexion = Server.CreateObject("ADODB.Connection")

Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & 

Server.MapPath("/database/Transferencias.mdb")

set rs = Conexion.execute("SELECT Mov,NumeroParte,Planta,Sloc1,Sloc2,Descuento,UoM FROM Transferencia")

    if rs.EOF then
        Response.Write("<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>")
        Response.Write("alert(""NO se ha escanneado ningun NP."");")
        Response.Write("</SCRIPT>")
        Response.Write("Ingrese datos al sistema")
    else
        Archivo = "Escanner.xls"
        PathXLS = Server.MapPath(Archivo)
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
        Fila = "Mov NumeroParte Planta  Sloc1   Sloc2   Descuento   UoM"
        Arch_Excel.writeline Fila

        'Inserta los datos del RecordSet en el Archivo de Excel
        Do while Not rs.EOF
            Fila = ""
            For each x in rs.fields
                Fila = Fila & x.value & chr(9)
            Next
            Arch_Excel.writeline Fila
            rs.MoveNext
        Loop

        Arch_Excel.Close
        Set Arch_Excel = Nothing
        Set fso = Nothing
        Response.Write("<table><a href="&Archivo&"><img border=0 width=""70"" height=""70"" src=""img\excel.jpg""></a>")
    end if
    SQL= "DELETE * FROM Transferencia"
    Conexion.Execute(SQL)
    SQL = "UPDATE Contador SET Contador = 0"
    Conexion.Execute(SQL)
    rs.Close
    Set rs = Nothing
    Conexion.Close
    Set Conexion = Nothing
%>

/body

/html
4

1 に答える 1

0

タブ区切りではなく、表形式でファイルに書き込んでみてください。

Archivo = "Escanner.xls"
    PathXLS = Server.MapPath(Archivo)
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
    Fila = "<table><tr><td>Mov</td><td>NumeroParte</td><td>Planta</td><td>Sloc1</td><td>Sloc2</td><td>Descuento</td><td>UoM</td></tr>"
    Arch_Excel.writeline Fila

'Inserta los datos del RecordSet en el Archivo de Excel
Do while Not rs.EOF
    Fila = "<tr>"
    For each x in rs.fields
        Fila = Fila &"<td>" & x.value & "</td>"
    Next
    Fila = Fila &"</tr>"
    Arch_Excel.writeline Fila
    rs.MoveNext
Loop
Arch_Excel.writeline "</table>"
Arch_Excel.Close
Set Arch_Excel = Nothing
Set fso = Nothing
Response.Write("<table><a href="&Archivo&"><img border=0 width=""70"" height=""70"" src=""img\excel.jpg""></a>")
于 2012-11-29T06:51:20.820 に答える