VBA-kode som henter tabel fra hjemmeside

Marker alle data i tabellen, start forneden det er det nemmeste.
Tryk Ctrl-C. Åben Excel. Sæt markøren i en celle. Tryk Ctrl-V

Så har du det hele inclusive links.

Børsen har rettighederne til data, så de vil sikkert ikke være
begejstrede for denne metode.

så har jeg ikke udtrykt mig klart nok!!

Excel skal gøre det automatisk, så jeg kan lave 'LOPSLAG' af kurser (der viser hvad deres aktier er værd denne dag).
Jeg kan godt finde ud af at få kurserne hentet med en macro som er tildelt en tastefunktion (Ctr+k):
Sub kurser()
'
' kurser Makro
'
' Genvejstast:Ctrl+k
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://trader.borsen.dk/borsendk/site/miniweb/miniweb.page?magic=(cc (level1 1) (level3 5))" _
        , 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
End Sub

Problemet med denne hentning er at arket ikke acceptere dette som en tabel hvor man kan lave fx LOPSLAG i!! LOPSLAG("Aab";A:G;5;FALSK) skulle hente kursen på Aab's aktie, men henter ingenting. Og så ville jeg gerne have kurserne hentet ved opstart, så eleverne ikke skal taste noget for at det skal lykkes!!

Kan det lade sig gøre?

Problemet er, at hver aktienavn slutter med en blank (mellemrum) - prøv at indtaste en blank efter aktienavnet.

Disse blanke kan fjernes via VBA....

Koden indsættes i ThisWorkbook:

Private Sub workbook_activate()
Dim svar
    svar = MsgBox("Opdatering af kurser?", vbYesNo)
    If svar = 6 Then
        hentKurser
        fjernBlanke
    End If
End Sub
Private Sub fjernBlanke()                          'I kolonne A
    For ræk = 2 To 1000
        If Cells(ræk, 1) = "" Then
            Exit Sub
        Else
            Cells(ræk, 1) = Left(Cells(ræk, 1), Len(Cells(ræk, 1)) - 1)
        End If
    Next ræk
End Sub
Private Sub hentKurser()
    ActiveWorkbook.Sheets(1).Activate
    Range("A1:G1000").Select
    Selection.Clear
   
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://trader.borsen.dk/borsendk/site/miniweb/miniweb.page?magic=(cc (level1 1) (level3 5))" _
        , 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

Virker perfekt.

Tak igen Supertekst.
Dine point

Så får du et svar

Det bliver først mine point, hvis du accepterer mit svar.

så er det vist gjort

Nej - desværre.

Du skal markere det svar, som du vil acceptere og derefter aktivere knappen "Accepter svar" - så vidt jeg ved - har aldrig prøvet..

hjalp det?

Ja - tak for det.

Vi kan jo så også få afsluttet "Automatisk dato til logbog"