Extract data from web

edneco · #11 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to Extract key data from word	iliauk	Word	3	11-08-2013 04:37 PM
Outlook taking a very long time to open emails that feature a background picture	Mr Davo	Outlook	0	07-03-2012 12:36 AM
formula taking long time to distinct word	gsrikanth	Excel	2	03-18-2012 03:30 AM
Adding a long column of time increments in seconds	klippert	Excel	1	09-18-2010 12:26 AM
How long does MS Outlook Calendar retain past data?	dillon	Outlook	1	08-09-2009 09:24 AM