Hente data og arbejd med disse tal fra ekstern side

Hvilken side skal tal hentes fra?
Lægges ind i Excel?

Ja, hvis man kan lægge det i excel vil det være super godt.

Men hvordan har jeg ingen anelse om

Fra bold.dk

Vi kan godt give tilbud på opgaven hvis det stadig er interesant?

Mvh
Mikkel Christensen, mc-solutions.dk

Hvis data fra bold.dk kan eksporteres til en csv-fil eller lignende, kan jeg lave det for dig. Jeg skal dog have penge for det.

For at begynde et sted - henter UEFA - Slutspil:

Kopier nedenstående kode til en Excel-fil - i VBA (Alt+F11) - ThisWorkbook. Gem & Luk
Ved åbning af filen overføres den nævnte Web-side til Ark1.

Eller send en mail til pb@supertekst-it.dk - så sender jeg min fil.


Private Sub workbook_activate()
Dim svar
    svar = MsgBox("Hent fra Bold.DK?", vbYesNo)
    If svar = 6 Then
        hentFraBold
    End If
End Sub
Private Sub hentFraBold()
    ActiveWorkbook.Sheets(1).Activate
    Range("A1:z1000").Select
    Selection.Clear
   
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://bold.dk/uefacup/index.php?side=slutspil" _
        , Destination:=Range("$A$1"))
        .Name = "miniweb.page?magic=(cc (level1 1) (level3 5))"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
   
    ActiveSheet.Columns.AutoFit
End Sub

Nogen afklaring?

Da det er tilfældet - lægges et svar

Tak for hjælpen du har hermed fået dine point