Leer Excel

"Squiur" preguntó:

Mostrar la cita

Quisiera saber una manera de leer un excel, poque cuando
lee el campo fecha u hora de un excel me trae un numero
en formato double y no en formato Hora

Hola:

Que yo sepa, los valores de fecha y hora siempre se guardan en valores
Double. Otra cosa distinta es el formato que tú le quieras dar a ese valor
Double para que represente la correspondiente fecha y hora.

En lugar de utilizar la biblioteca de Excel, si tu hoja de cálculo tiene la
típica estructura de una tabla (campos y filas), puedes utilizar el ISAM de
Excel para leer los campos. Aquí te dejo un ejemplo que muestra todas las
filas de una hoja (Hoja1) de un campo con el tipo de dato Hora:

Dim cnn As New OleDbConnection

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Mis documentos\Libro1.xls;" & _
"Extended Properties='Excel 8.0;HRD=Yes'"

Try
' Construimos la consulta SQL de selección para consultar
' una hoja de cálculo llamada Hoja1.
'
Dim sql As String = _
"SELECT Fecha FROM [Hoja1$]"

' Creamos el comando para ejecutar la consulta
Dim cmd As New OleDbCommand(sql, cnn)

' Abrimos la conexión
cnn.Open()

' Ejecutamos el comando, abriendo un objeto DataReader
'
Dim dr As OleDbDataReader = _
cmd.ExecuteReader(CommandBehavior.CloseConnection)

' Leemos los registros
While dr.Read
Dim fecha As DateTime = dr.GetDateTime(0)
MessageBox.Show(fecha.ToShortTimeString)
End While

' Cerramos el objeto DataReader, e implícitamente
' la conexión
dr.Close()

Catch ex As OleDbException
MessageBox.Show(ex.Errors(0).Message)

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

Para más información sobre el ISAM de Excel, consulta el siguiente artículo
técnico:

Trabajar con ADO, DAO y Excel
http://mvp-access.com/softjaen/arti..._excel.htm

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.