Mateus Balan

Ola sou novo programando em VBA e estou com um problema. A ideia do codigo é importar o relatorio que esta contido no popup que este link abre. http://www.ccee.org.br/cceeinterdsm/v/inde...p;x=11&y=10 - a ideia inicial era atravez do VBA selecionar os box mas como o string é padrão eu monto ele usando a data que quero. RESUMO preciso pegar o link do popup que abre atravez deste outro primeiro link estou usando este codigo: Sub getRelatorio() On Error Resume Next Dim ie As Object Dim ENDERECO_1 As String Dim ENDERECO_2 As String 'link previsivel ENDERECO_1 = "http://www.ccee.org.br/cceeinterdsm/v/index.jsp?qryRELATORIO-ANO=2011&qryRELATORIO-MES=02&cd_categoria=843ec04407867210VgnVCM1000005e01010a____&contentType=RELATORIO&vgnextoid=dc202d20f080b010VgnVCM1000005e01010aRCRD&x=11&y=10" Set ie = CreateObject("InternetExplorer.Application") ie.navigate (endereco) ie.Visible 'importacao da tabela atravez do link 2 que não sei obter ActiveWorkbook.Worksheets.Add With ActiveSheet.QueryTables.Add(Connection:= _ ENDERECO_2 _ , Destination:=Range("$A$1")) .Name = _ ENDERECO_2 .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 End Sub