Extraer datos de una hoja a VB

03/11/2005 - 17:41 por Angel O. | Informe spam
Hola amigos. Necesito ayuda, ya que tengo muy poca idea de VB, El siguiente
código me funcionaba en Excel 2000, pero al pasarme a 2003 me da el error
"se ha producido un error '1004' en tiempo de ejecución : error de sintaxis
en SQL". Tengo XP Prof y Office 2003.

Tengo una macro que necesita extraer datos de un programa externo en un
rango de fechas determinado, el cual lo introduzco en la celda D5 y D6 en
una hoja llamada config en el siguiente formato 2005-09-01 00:00:00

El código que me funcionaba (es mas largo, pero solo pongo la parte que
recoge el dato de la celda) es este :

"SELECT ""Mov_ TPV"".""Nº TPV"", ""Mov_ TPV"".Fecha, ""Mov_ TPV"".""Valor
Ventas""" & Chr(13) & "" & Chr(10) & "FROM ""Mov_ TPV"" ""Mov_ TPV""" &
Chr(13) & "" & Chr(10) & "WHERE (""Mov_ TPV"".""Nº TPV""='03') AND (""Mov_
TPV"".Fecha>={ts '" + Range("CONFIG!d5") + "'})AND (""Mov_ TPV"".F" _

, _

"echa<={ts '" + Range("CONFIG!d6") + "'}) or (""Mov_ TPV"".""Nº TPV""='04')
AND (""Mov_ TPV"".Fecha>={ts '" + Range("CONFIG!d5") + "'})AND (""Mov_
TPV"".F" _

, _

"echa<={ts '" + Range("CONFIG!d6") + "'})" & Chr(13) & "" & Chr(10) & "ORDER
BY ""Mov_ TPV"".""Nº TPV"", ""Mov_" _

, " TPV"".Fecha")



¿Alguno de vosotros, sabe el porqué esta parte de código funciona en excel
2000 y no en excel 2003?

De todas formas si alguna sabe alguna otra forma de hacerlo, os agradeceré
me lo indiqueis.

Muchas gracias.



Angel O.
 

Leer las respuestas

#1 Angel O.
03/11/2005 - 18:14 | Informe spam
Hola a todos. Ya he hallado la solucion. El problema esta en el formato de
la celda donde está la fecha. Si en lugar del formato 2005-09-01 00:00:00,
aplico solo 2005-09-01, y en luguar del codifo VB, <={ts '" + pongo <={d '"
+ me funciona. Imagino que tiene que ver con el formato que lee de la celda.
Lamento si alguien ha perdido tiempo en buscarme una solución.


"Angel O." escribió en el mensaje
news:%
Hola amigos. Necesito ayuda, ya que tengo muy poca idea de VB, El
siguiente código me funcionaba en Excel 2000, pero al pasarme a 2003 me da
el error "se ha producido un error '1004' en tiempo de ejecución : error
de sintaxis en SQL". Tengo XP Prof y Office 2003.

Tengo una macro que necesita extraer datos de un programa externo en un
rango de fechas determinado, el cual lo introduzco en la celda D5 y D6 en
una hoja llamada config en el siguiente formato 2005-09-01 00:00:00

El código que me funcionaba (es mas largo, pero solo pongo la parte que
recoge el dato de la celda) es este :

"SELECT ""Mov_ TPV"".""Nº TPV"", ""Mov_ TPV"".Fecha, ""Mov_ TPV"".""Valor
Ventas""" & Chr(13) & "" & Chr(10) & "FROM ""Mov_ TPV"" ""Mov_ TPV""" &
Chr(13) & "" & Chr(10) & "WHERE (""Mov_ TPV"".""Nº TPV""='03') AND (""Mov_
TPV"".Fecha>={ts '" + Range("CONFIG!d5") + "'})AND (""Mov_ TPV"".F" _

, _

"echa<={ts '" + Range("CONFIG!d6") + "'}) or (""Mov_ TPV"".""Nº
TPV""='04') AND (""Mov_ TPV"".Fecha>={ts '" + Range("CONFIG!d5") + "'})AND
(""Mov_ TPV"".F" _

, _

"echa<={ts '" + Range("CONFIG!d6") + "'})" & Chr(13) & "" & Chr(10) &
"ORDER BY ""Mov_ TPV"".""Nº TPV"", ""Mov_" _

, " TPV"".Fecha")



¿Alguno de vosotros, sabe el porqué esta parte de código funciona en excel
2000 y no en excel 2003?

De todas formas si alguna sabe alguna otra forma de hacerlo, os agradeceré
me lo indiqueis.

Muchas gracias.



Angel O.

Preguntas similares