03/06/2004, 04:22
|
| | | Fecha de Ingreso: mayo-2004 Ubicación: españa
Mensajes: 5
Antigüedad: 20 años, 9 meses Puntos: 0 | |
| No me funciona tu codigo
Hola, He cogido tu codigo y no me funciona he puesto:
<%@ LANGUAGE="VBScript" %>
<%
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet1 As Excel._Worksheet
Dim xlSheet2 As Excel._Worksheet
Dim xlSheet3 As Excel._Worksheet
Dim texto1 As String
Dim texto2 As String
Dim texto3 As String
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Open(Server.MapPath("prueba.xls"))
xlSheet1 = xlBook.Worksheets(1)
xlSheet2 = xlBook.Worksheets(2)
xlSheet3 = xlBook.Worksheets(3)
texto1 = xlSheet1.Range("A1").Value
texto2 = xlSheet2.Range("A1").Value
texto3 = xlSheet3.Range("A1").Value
Response.Write(texto1 + " " + texto2 + " " + texto3)
xlBook.Close()
End Sub
%>
<html>
<head>
<title>Untitled Document</title>.........y el resto.
lo he duardado como pag "...asp" y me da error en el "Excel.Application
".. si puedes hecharme una mano. Muchas gracias. |