AndersonMari014

Olá Gostaria de saber como eu faço para extrair os dados direto da internet até uma determinada página e quando acabar os dados parar de copiar consigo fazer com macro mais quando não existe a página ele copia a ultima página por exemplo: O site que estou tentando extrair os dados tem 11 páginas mais pode ser adicionada mais páginas ou retirada páginas como faço para fazer apenas das páginas que existem mesmo eu colocando que o site possua 20 páginas. O código que estou usando é este aqui ActiveWindow.SmallScroll Down:=18 Range("A221").Select With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://eol.prefeitura.sp.gov.br/escola/se1426_asp/frequencia_aluno/bf00Lista.asp?offset=200" _ , Destination:=Range("$A$221")) ' PÁGINA 11 .Name = "bf00Lista.asp?offset=200" .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 = "3" .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With