Excel - VBA Añadir registro de fecha y hora en access

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 11 puestos en Excel (en relación al último mes)
Gráfica de Excel

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:
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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder