23/10/2003, 02:55
|
| | | Fecha de Ingreso: marzo-2002
Mensajes: 188
Antigüedad: 23 años Puntos: 0 | |
| 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, |