Hola deseo estblecer una macro para que descargue datos de varias paginas que contienen informacion de un tema...pero deseo que al descargar el contenido de la siguiente pagina, continue en la ultima fila que descargo la informacion de la primera pagina....
utilizando este codigo, me descarga todas las paginas pero cada vez que descarga una pagina la ordena hacia el lado y no hacia abajo
Sub Macro1()
' Macro1 Macro
'
' Acceso directo: Ctrl+Mayús+E
'
For i = 0 To 6
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.pagina.com/ua11_" & i & ".html", Destination:= _
Range("A1"))
.Name = "ua11_0"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next i
End Sub
ayuda xfa
