Makro til lottotal

kan du ikke bare køre en ny web forespørgsel, finde det du søger
og så importere

kan gøres via menuen data/importer eksterne data/ny webforespørgsel

når du har gjort det med held, så starter du makro optager
og kører hele proceduren igen - så får du din vindertal-henter-makro

kan man ikke også sætte tidsbestemt opdatering på sin query, således man slet ikke behøver en makro...

Jeg vil hente historiske data ind i excel dvs. alle udtrækninger fra 719 til 822.

har aldrig prøvet det før, men jeg tror du har ret flemming
en makro er måske ikke nødvendig, fordi man kan højreklikke
på cellen, og vælge rediger forespørgsel
gad vide om den ikke automatisk selv opdaterer
har ingen eraring med dette overhovedet

hvad med egenskaber for dataområde (fås ved højreklik på celle)

men først skal du jo finde de nye data du mangler

hvor finder man de udtrækninger (719-822) ?

hvis i får lavet et godt eksempel, så smider jeg det gerne på min hjemmeside under tips og tricks/download - jeg skal i byen nu, men kan deltage i aften, hvis det ikke er lykkedes jer.

Hvis du i forespørgslen ændrer draw=822 til 821 så henter du lottotal fra 11.marts.2006
http://www.tips.dk/spil/lotto/indhold/resultater.php?draw=822",

hvis du kunne fotælle mig hvor jeg finder de data du søger, kan jeg
prøve at lave en import på det

du skal kigge på min makro:
Sub Lotto()
'
' Lotto Makro
' Makro indspillet 19-03-2006 af ghj
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.tips.dk/spil/lotto/indhold/resultater.php?draw=822", _
        Destination:=Range("A5"))
        .Name = "resultater.php?draw=820"
        .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 = "3"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

med denne rettelse hentes 719, og vises i celle A10 i dit ark

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.tips.dk/spil/lotto/indhold/resultater.php?draw=822", _
        Destination:=Range("A10"))
        .Name = "resultater.php?draw=719"
        .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 = "3"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

ja men jeg vil hente alle fra 719 til 822 på en gang

man kan sikket lave en smart løkke som lister alle fra 719-822 i dit ark
men jeg skal ud at cykle nu, så prøv dig frem

prøv evt også den anvisning jeg skrev tidligere, det er faktisk let
at importere fra nettet via data/importer eksterne data/ny webforespørgsel.

jeg har lavet denne makro som henter data fra udtrækning 815 til 822, men problemmet er at resultater hentes i en række og jeg vil hente dem i en kolonne.
Private Sub CommandButton2_Click()
For data = 815 To 822

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.tips.dk/spil/lotto/indhold/resultater.php?draw=" & data, _
        Destination:=Range("A:A"))
        .Name = "resultater.php?draw=" & data
        .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 = "3"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
   
    End With
   
    Next
End Sub

Sub Lotto()
    Dim lRow As Long
    Dim lDraw As Long
   
    lRow = 5
    For lDraw = 719 To 822

        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;http://www.tips.dk/spil/lotto/indhold/resultater.php?draw=" & CStr(lDraw), _
            Destination:=Range("A" & CStr(lRow)))
            .Name = "resultater.php?draw=" & CStr(lDraw)
            .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 = "3"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
       
        lRow = lRow + 2
    Next lDraw
End Sub

sån ska det bare gøres flemming - well done

Ha-ha den kører bare derude. Takker mange gange. Kan du ikke forklare hvad "CStr" betyder.

Convert to String - tryk F1 når din markør står over CStr

jeg har prøvet at importerer uden at hoppe en række over:
men hvis jeg ændrer  lRow = lRow + 2 til  lRow = lRow + 1 så bliver importen forskudt og det forstår jeg ikke.

Jeg kan ikke helt huske hvorfor, men jeg mener det er noget med at query'en har første tomme række med. Du kan søge ekstra på nettet eller i hjælpen hvis du VIL vide.

Et kort input her efter lukketid...

Tabellen som importeres indeholder en tom række i toppen derfor lRow = lRow +2.

Du kan evt. fjerne rækken efter import af hver udtrækning:

Sub Lotto()
    Dim lRow As Long
    Dim lDraw As Long
   
    lRow = 5
    For lDraw = 719 To 822

        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;http://www.tips.dk/spil/lotto/indhold/resultater.php?draw=" & CStr(lDraw), _
            Destination:=Range("A" & CStr(lRow)))
            .Name = "resultater.php?draw=" & CStr(lDraw)
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = False
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "3"
            .WebPreFormattedTextToColumns = False
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
       
        Range("A" & CStr(lRow)).EntireRow.Delete
        lRow = lRow + 1
    Next lDraw
   
End Sub

smart løsning gibber :-)