Es posible coger datos de celdas Excel?

Albertron · #1 (**permalink**) 20/10/2003, 01:42

Hola qtal,
Pos eso. Es posible desde un aspx coger los datos de determinadas celdas de un documento excel?

Por ejemplo, tengo un excel con dos pestañas y quiero recuperar el valor de la celda "A1" de la primera pestaña y el valor de la celda "B1" de la segunda pestaña.

Se puede hacer?

Se que hay una manera de pasar todo el excel a un datagrid, pero eso no me sirve por ahora.

Gracias y saludos,

Albertron · #2 (**permalink**) 22/10/2003, 09:47

Hola qtal,
Pues respondiendo a mi propia pregunta, creo que si se puede.
El primer error que me daba a mi era porque no había agregado al proyecto la referencia al componente Microsoft Excel 9.0 Object Library, con lo cual no me reconocía el código que le ponía.
Luego me dió otro error que también he solucionado. Deducí que el error venía a decirme que necesitaba tener instalado el Excel en la máquina donde corrían mis aspx.
Ahora no me da ningún error pero tampoco me abre el fichero Excel para poder acceder a su contenido.
En visual basic había utilizado este mismo código y conseguía recuperar los datos.
Pongo aquí el código a ver si a alguien se le ocurre porque no me abre el fichero.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
Dim xlApp As Excel.Application
Dim mybook As Excel.Workbook
xlApp = New Excel.Application()
mybook = xlApp.Workbooks.Open(Server.MapPath("prueba.xls"))
xlApp.Visible = True
End Sub

Gracias y saludos

Albertron · #3 (**permalink**) 23/10/2003, 02:55

Hola qtal,
Al final ya está. Dejo el código aquí que utilizo para poder coger valores de celdas de un documento Excel.

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("prueba2.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()

Gracias,

Syba · #4 (**permalink**) 03/06/2004, 03:54

Yo lo que quiero hacer es:
tengo muchos ficheros excel ejmplo:100 ficheros.
quiero cargar en otro fichero los titulos de los ficheros separados por ";" y los tituolos de los campos por comas.
Ejemplo:

nombre_ficheros;
titulo1, titulo2, titulo3,...

Sabes como hacerlo?

Syba · #5 (**permalink**) 03/06/2004, 04:22

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.