Extract data from web

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

charlesdh · #2 06-28-2014, 05:54 PM

See if this works.

Code:

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 & ""

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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