En este grupo En todos

Foro de Excel



Poner fecha en busqueda web

carabobo
Las Palmas, España
Escrito por Carabobo
el 20/05/2009

Hola :
En una hoja excel tengo que poner una busqueda web , El problema es que en el enlace figuara la fecha , algo asi : https://paginadedatos/datosmensuales/stock/fecha=20/05/2009 .
¿Hay alguna manera de actualizar la fecha automaticamente?
gracias por anticipado

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 20/05/2009

Y que quieres decir con una "busqueda web"? Trata de explicarte un poco mejor para poder ayudarte

Abraham

Carabobo
Las Palmas, España
Escrito por Carabobo
el 20/05/2009
" y que quieres decir con una "busqueda web"? Trata de explicarte un poco mejor para poder ayudarte

Abraham
"

por Abraham :) (Mayo 2009)

Perdón quería decir consulta web ( datos->obtener datos externos-> nueva consulta web)

Es para importar datos de una pagina web , pero cambia la fecha cada dia

Saludos y gracias

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 20/05/2009

Suponiendo en A1 la fecha, y que a partir de A2 se depositarian los datos, algo asi, generado basicamente con la grabadora de macros, te serviria:

With ActiveSheet.QueryTables.Add(Connection:="URL; tp://paginadedatos/datosmensuales/stock/fecha= " & [A1], _
Destination:=Range("$A$2"))
. Name = "BlaBlaBla"
. FieldNames = True
. RowNumbers = False
. FillAdjacentFormulas = False
. PreserveFormatting = True
. RefreshOnFileOpen = False
. BackgroundQuery = True
. RefreshStyle = xlInsertDeleteCells
. SavePassword = False
. SaveData = True
. AdjustColumnWidth = True
. RefreshPeriod = 0
. WebSelectionType = xlEntirePage
. WebFormatting = xlWebFormattingNone
. WebPreFormattedTextToColumns = True
. WebConsecutiveDelimitersAsOne = True
. WebSingleBlockTextImport = False
. WebDisableDateRecognition = False
. WebDisableRedirections = False
. Refresh BackgroundQuery:=False
End With

Abraham

Carabobo
Las Palmas, España
Escrito por Carabobo
el 21/05/2009
"suponiendo en A1 la fecha, y que a partir de A2 se depositarian los datos, algo asi, generado basicamente con la grabadora de macros, te serviria:

With ActiveSheet.QueryTables.Add(Connection:="URL; tp://paginadedatos/datosmensuales/stock/fecha= " & [A1], _
Destination:=Range("$A$2"))
. Name = "BlaBlaBla"
. FieldNames = True
. RowNumbers = False
. FillAdjacentFormulas = False
. PreserveFormatting = True
. RefreshOnFileOpen = False
. BackgroundQuery = True
. RefreshStyle = xlInsertDeleteCells
. SavePassword = False
. SaveData = True
. AdjustColumnWidth = True
. RefreshPeriod = 0
. WebSelectionType = xlEntirePage
. WebFormatting = xlWebFormattingNone
. WebPreFormattedTextToColumns = True
. WebConsecutiveDelimitersAsOne = True
. WebSingleBlockTextImport = False
. WebDisableDateRecognition = False
. WebDisableRedirections = False
. Refresh BackgroundQuery:=False
End With

Abraham
"

por Abraham :) (Mayo 2009)

Gracias , lo probaré