20-oct-2003, 01:42
|
#1 (permalink) |
 Fecha de Ingreso: noviembre-2002
Mensajes: 161
|
Es posible coger datos de celdas Excel?
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, |
|
|
|
22-oct-2003, 09:47
|
#2 (permalink) |
|
Fecha de Ingreso: noviembre-2002
Mensajes: 161
|
un pasito más ...
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 |
|
|
|
|
23-oct-2003, 02:55
|
#3 (permalink) |
|
Fecha de Ingreso: noviembre-2002
Mensajes: 161
|
ya
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, |
|
|
|
|
03-jun-2004, 03:54
|
#4 (permalink) |
|
Fecha de Ingreso: mayo-2004
Ubicación: españa
Mensajes: 5
|
se puede hacer lo mismo con visualBasic...
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? |
|
|
|
|
03-jun-2004, 04:22
|
#5 (permalink) |
|
Fecha de Ingreso: mayo-2004
Ubicación: españa
Mensajes: 5
|
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. |
|
|
|
Mode Lineal
