trcalgaro

Ola pessoal Preciso construir um code que "pegue" partes do link de pesquisa em algumas celulas da planilha Sub Consulta() Sheets("Plan1").Select Cells.Select Selection.Delete Shift:=xlUp With ActiveSheet.QueryTables.Add(Connection:="URL;http://celepar7.pr.gov.br/gta/febreaftosa/relatorio_MunFronteira.asp?cmbCampanhaVFA=25&cmbEspecieVFA=0&rdRelatorio=8&cmbMunFront=4118451", Destination:=Range("A1")) .Name = "Consulta Geral" .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 End Sub Em teoria seria a construção do link seria a seguinte: With ActiveSheet.QueryTables.Add(Connection:="URL;http://celepar7.pr.gov.br/gta/febreaftosa/relatorio_MunFronteira.asp?cmbCampanhaVFA="& Sheets("BD").Range("A2") & "&cmbEspecieVFA=0&rdRelatorio=8&cmbMunFront="& Sheets("BD").Range("A3"), Destination:=Range("A1")) Mas é claro que o Code esta errado alguém sabe como soluciono o problema? Desde já Agradeço

Ola pessoal Preciso construir um code que "pegue" partes do link de pesquisa em algumas celulas da planilha Sub Consulta() Sheets("Plan1").Select Cells.Select Selection.Delete Shift:=xlUp With ActiveSheet.QueryTables.Add(Connection:="URL;http://celepar7.pr.gov.br/gta/febreaftosa/relatorio_MunFronteira.asp?cmbCampanhaVFA=25&cmbEspecieVFA=0&rdRelatorio=8&cmbMunFront=4118451", Destination:=Range("A1")) .Name = "Consulta Geral" .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 End Sub Em teoria seria a construção do link seria a seguinte: With ActiveSheet.QueryTables.Add(Connection:="URL;http://celepar7.pr.gov.br/gta/febreaftosa/relatorio_MunFronteira.asp?cmbCampanhaVFA="& Sheets("BD").Range("A2") & "&cmbEspecieVFA=0&rdRelatorio=8&cmbMunFront="& Sheets("BD").Range("A3"), Destination:=Range("A1")) Mas é claro que o Code esta errado alguém sabe como soluciono o problema? Desde já Agradeço