Como hago para q una consulta web me salve los datos

Hola ¿?:
Con una macro del estilo de esta que te pongo abajo puedes salvar los datos
a otra hoja. Como imagino que la consulta web la haras por codigo y
utilizando el evento del reloj yo pondria para que se registraran los datos
uno o dos minutos después de ejecutar la consulta
Comenta problemas si los tienes.
Un saludo.

Sub Registrar()
'del rango "A4:D4" obtenemos los valores que se guardaran
Cantidad = Sheets("HojaFormulario").Range("A4").Value
TipoDeMaterial = Sheets("HojaFormulario").Range("B4").Value
Proveedor = Sheets("HojaFormulario").Range("C4").Value
Fecha = Sheets("HojaFormulario").Range("D4").Value

'..y los guardamos en la primera linea en blanco de la base de datos.
Fila = Sheets("BaseDeDatos").Range("A65536").End(xlUp).Row + 1

Sheets("BaseDeDatos").Range("A" & Fila).Value = Cantidad
Sheets("BaseDeDatos").Range("B" & Fila).Value = TipoDeMaterial
Sheets("BaseDeDatos").Range("C" & Fila).Value = Proveedor
Sheets("BaseDeDatos").Range("D" & Fila).Value = Fecha

'Despues limpiamos nuestra hoja formulario.
Sheets("HojaFormulario").Range("A4:D4").ClearContents

End Sub

"lokeras" escribió en el mensaje
news:09e801c3d9cf$70830c00$
Haber tengo un problemilla con un consulta web resulta q
yo cojo datos de una web q se actualiza cada hora y quiero
q esos datos se guarden en la hoja de excel no q se borren
con cada actualización, como configuro eso, si no existe
alguna forma de hacer q se envien esos datos a otra hoja
de excel y hay se guraden y q haya filas repetidas??


Un Saludo:
Imanol Rivas

Haber el problema radica en q no lo he hecho con código he
generado el macro con excel sin programar yo nada y no se
como coño funciona exactamente. Por eso decía si se puede
configurar para q guarde solo, aunq estoy trabajando en un
programa en visual q me salve los datos, lo q no recuerdo
es como abrir una hoja de excel q ya existe en visual
basic.

Un Saludo:
Imanol Rivas

Hola ¿?:
Con una macro del estilo de esta que te pongo abajo

puedes salvar los datos

a otra hoja. Como imagino que la consulta web la haras

por codigo y

utilizando el evento del reloj yo pondria para que se

registraran los datos

uno o dos minutos después de ejecutar la consulta
Comenta problemas si los tienes.
Un saludo.

Sub Registrar()
'del rango "A4:D4" obtenemos los valores que se

guardaran

Cantidad = Sheets("HojaFormulario").Range("A4").Value
TipoDeMaterial = Sheets("HojaFormulario").Range

("B4").Value

Proveedor = Sheets("HojaFormulario").Range("C4").Value
Fecha = Sheets("HojaFormulario").Range("D4").Value

'..y los guardamos en la primera linea en blanco de

la base de datos.

Fila = Sheets("BaseDeDatos").Range("A65536").End

(xlUp).Row + 1

Sheets("BaseDeDatos").Range("A" & Fila).Value = Cantidad
Sheets("BaseDeDatos").Range("B" & Fila).Value =

TipoDeMaterial

Sheets("BaseDeDatos").Range("C" & Fila).Value = Proveedor
Sheets("BaseDeDatos").Range("D" & Fila).Value = Fecha

'Despues limpiamos nuestra hoja formulario.
Sheets("HojaFormulario").Range("A4:D4").ClearContents

End Sub

"lokeras" escribió

en el mensaje

news:09e801c3d9cf$70830c00$
Haber tengo un problemilla con un consulta web resulta q
yo cojo datos de una web q se actualiza cada hora y quiero
q esos datos se guarden en la hoja de excel no q se borren
con cada actualización, como configuro eso, si no existe
alguna forma de hacer q se envien esos datos a otra hoja
de excel y hay se guraden y q haya filas repetidas??


Un Saludo:
Imanol Rivas


.

Hola lokeras:
Si no he entendido mal lo que quieres conseguir es que cada vez que se
ejecute la consulta no te machaque los resultados de la consulta anterior.
Si es así, como la consulta se auto ejecuta sin necesidad de VBA puedes
crear una macro basada en la que te puse y otra en el evento OnTime para
que te guarden los datos en otra hoja del mismo libro que contiene la
consulta. Estas macros por supuesto también debería salvar el libro al
finalizar.
Mas o menos las macros serian así:

Sub CadaHora()
Application.OnTime Now + TimeValue("00:00:05"), "Registrar"
End Sub

Sub Registrar()
'del rango "A1" obtenemos los valores que se guardaran
ValorObtenidoDeLaConsulta = Sheets("HojaConsulta").Range("A1").Value
'..y los guardamos en la primera línea en blanco de la base de datos.
Fila = Sheets("BaseDeDatos").Range("A65536").End(xlUp).Row + 1
Sheets("BaseDeDatos").Range("A" & Fila).Value = ValorObtenidoDeLaConsulta
ActiveWorkbook.Save
CadaHora
End Sub
Si pegas esto en un modulo de un libro y renombras las hojas como
BaseDeDatos y HojaConsulta y lanzas cualquiera de las dos macros veras que
cada 5 segundos te salva los datos que tengas en la hoja consulta a la hoja
base de datos y guarda el libro.
Si tienes dudas o no he sido muy claro (me suele pasar) o no es esto lo que
buscas me lo comentas.
Un saludo.

PD: Si quieres saber la sintaxis para abrir un libro atraves de VBA solo
tienes que grabar una macro y echarle un vistazo.

"lokeras" escribió en el mensaje
news:088701c3da71$2188d100$
Haber el problema radica en q no lo he hecho con código he
generado el macro con excel sin programar yo nada y no se
como coño funciona exactamente. Por eso decía si se puede
configurar para q guarde solo, aunq estoy trabajando en un
programa en visual q me salve los datos, lo q no recuerdo
es como abrir una hoja de excel q ya existe en visual
basic.

Un Saludo:
Imanol Rivas

Hola ¿?:
Con una macro del estilo de esta que te pongo abajo

puedes salvar los datos

a otra hoja. Como imagino que la consulta web la haras

por codigo y

utilizando el evento del reloj yo pondria para que se

registraran los datos

uno o dos minutos después de ejecutar la consulta
Comenta problemas si los tienes.
Un saludo.

Sub Registrar()
'del rango "A4:D4" obtenemos los valores que se guardaran
Cantidad = Sheets("HojaFormulario").Range("A4").Value
TipoDeMaterial = Sheets("HojaFormulario").Range

("B4").Value

Proveedor = Sheets("HojaFormulario").Range("C4").Value
Fecha = Sheets("HojaFormulario").Range("D4").Value

'..y los guardamos en la primera linea en blanco de la base de datos.
Fila = Sheets("BaseDeDatos").Range("A65536").End(xlUp).Row + 1

Sheets("BaseDeDatos").Range("A" & Fila).Value = Cantidad
Sheets("BaseDeDatos").Range("B" & Fila).Value TipoDeMaterial
Sheets("BaseDeDatos").Range("C" & Fila).Value = Proveedor
Sheets("BaseDeDatos").Range("D" & Fila).Value = Fecha

'Despues limpiamos nuestra hoja formulario.
Sheets("HojaFormulario").Range("A4:D4").ClearContents

End Sub

"lokeras" escribió

en el mensaje

news:09e801c3d9cf$70830c00$
Haber tengo un problemilla con un consulta web resulta q
yo cojo datos de una web q se actualiza cada hora y quiero
q esos datos se guarden en la hoja de excel no q se borren
con cada actualización, como configuro eso, si no existe
alguna forma de hacer q se envien esos datos a otra hoja
de excel y hay se guraden y q haya filas repetidas??


Un Saludo:
Imanol Rivas


.