Microsoft Office Forums - View Single Post - [Solved] Extract data from web

edneco · 06-27-2014, 12:20 PM

Hello... I have this file now and I think I´m in the right way, but there´s something that doesn´t work......

Code:

Private Sub Update_Click()
Dim Valor

Valor = Range("I4").Value

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.zerozero.pt/edition.php?id_edicao=69891&fase=70218&jornada_in=valor", Destination:=Range("$DO$13"))
        .Name = "edition.php?id_edicao=69891&fase=70218&jornada_in=valor"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "21"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False
    End With

I need that the word "valor" assume the value on the cell "I4", when I change it.

When I put the value "1" on the cell "I4", the link should be like this:

(http:........zerozero.pt/edition.php?id_edicao=69891&fase=70218&jornada_in= 1)

And When I put the value "10" on the cell "I4", the link should be like this:

(http:........zerozero.pt/edition.php?id_edicao=69891&fase=70218&jornada_in= 10)

I don´t know if you can help me on this, but I guess that something is missing.... Or is just impossible to do this???

Extract from web_1.xlsm