VBA Añadir registro de fecha y hora en access
Publicado por Manuel (2 intervenciones) el 26/04/2019 17:05:29
Buenas, resulta que tengo una tabla en excel que quiero almacenar en access
este es mi codigo:
Todo se almacena bien menos la fecha, la fecha está compuesta por 2 celdas de Excel, en la primera se almacena la fecha con el formato dd/mm/yyyy y en la segunda celda se almacena la hora con el formato hh:nn
Cuando intento guardar los datos me dice que los tipos no coinciden
Alguien tiene idea de como podría convertir al formato requerido para almacenar como fecha en access?
De antemano muchas gracias
este es mi codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
n = firstLine ' Reseteamos n para hacer el barrido
Set Rs = New ADODB.Recordset
Rs.Open "MolCon", cn, adOpenKeyset, adLockOptimistic, adCmdTable 'Seleccionar la tabla de Molienda y Concentración
'Iniciamos el Barrido
Do While Range(firstCol & n) <> Empty
With Rs
.AddNew.Fields("fecha") = "\#" & Range("D" & n).Value & Format(Range("E" & n).Value, "hh:nn:ss") & "\#"
.Fields("blaine") = Range("F" & n).Value
.Fields("m400M") = Range("G" & n).Value
.Fields("CaO") = Range("H" & n).Value
.Fields("SiO2") = Range("I" & n).Value
.Fields("S") = Range("J" & n).Value
.Fields("P") = Range("K" & n).Value
.Fields("FeT") = Range("L" & n).Value
End With
n = n + 1 'Incrementamos n
Loop
With Rs
.AddNew.Fields("fecha") = "\#" & Range("D" & n).Value & Format(Range("E" & n).Value, "hh:nn:ss") & "\#"
.Fields("blaine") = Range("F" & n).Value
.Fields("m400M") = Range("G" & n).Value
.Fields("CaO") = Range("H" & n).Value
.Fields("SiO2") = Range("I" & n).Value
.Fields("S") = Range("J" & n).Value
.Fields("P") = Range("K" & n).Value
.Fields("FeT") = Range("L" & n).Value
End With
Todo se almacena bien menos la fecha, la fecha está compuesta por 2 celdas de Excel, en la primera se almacena la fecha con el formato dd/mm/yyyy y en la segunda celda se almacena la hora con el formato hh:nn
Cuando intento guardar los datos me dice que los tipos no coinciden
Alguien tiene idea de como podría convertir al formato requerido para almacenar como fecha en access?
De antemano muchas gracias
Valora esta pregunta
0