Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Definir hora y fecha al consultar datos por query

Excel - Definir hora y fecha al consultar datos por query

Volver
Nuevo Tema
<<>>
   
Vista:
Mensajes realizados anteriormente (No estaban la última vez que entraste)Definir hora y fecha al consultar datos por query
Sebastian (16/07/2017 19:50:32)127 visitas
0 respuesta

Definir hora y fecha al consultar datos por query

Publicado por Sebastian (1 intervención) el 16/07/2017 19:50:32
Hola amigos tengo un problema respecto a una macro, espero puedan ayudarme:

Lo que sucede es que realizo una macro para consultar una obdc por query, para evitarme problemas utilice la opción grabar macro, pero al modificarla para ingresar manualmente hora y fecha, las cuales me las pide por separado, me arroja un error, intente cambiar el valor de la hora para ingresarla por inputbox o cualquier medio parecido y no me resulta, en la siguiente macro se puede observar, los valores que quiero ingresar son HISTORY.DATE ademas de HISTORY.TIME.

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
Private Sub CommandButton1_Click()
 
Range("A1:G100").Clear
 
  With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;Driver={OpenRDA};Server=OpenRDA;Database=oil;UID=engineer;PWD=engchuq;", _
        Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT HISTORY.myName, HISTORY.dpValue, HISTORY.TIME, HISTORY.DATE, HISTORY.H_INTERVAL, HISTORY.SAMPLES" & Chr(13) & "" & Chr(10) & "FROM OAUSER.HISTORY HISTORY" & Chr(13) & "" & Chr(10) & "WHERE (HISTORY.myName='A100_PCOMUN_Hz') AND (HISTORY.TIME=0100)  AN" _

        , _
        "D (HISTORY.DATE='11-jul-17') AND (HISTORY.H_INTERVAL='1s') AND (HISTORY.SAMPLES=60)" _

        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tabla_Consulta_desde_oil18"
        .Refresh BackgroundQuery:=False   ' EN ESTE PUNTO ME ARROJA EL ERROR 1004 POR LA APLICACION O EL OBJETO

    End With
 
End Sub



Eso seria amigos espero alguien me pueda ayudar, saludos.
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