Opdatering af URL i macro?

Beklager. URL på nuværende tidspunkt er:

conString = "URL;http://finance.yahoo.com/q/is?s=" & x & "+Income+Statement&annual"
       
conName = "is?s=" & x & "+Income+Statement&annual"

Hvis det kun er URL der skal rettes, så prøv at rette linjen med conString til :

conString = "URL;https://finance.yahoo.com/quote/" & x & "/?p=" & x

Så tror jeg du er på plads.

Hvis der er brug for yderligere assistance, så assisterer jeg gerne. Se evt. her: https://www.sanocast.dk/excel-udvikler/

Med venlig hilsen
Karsten Olsen

Hej Karsten

Tak for dit svar.

Desværre virkede det ikke :/ Har du et andet forslag?

Hej Josvto.

Jeg har lige afprøvet koden med rettelsen. Hvis du husker at sætte X til hvilken aktie det drejer sig om, så virker det!
Jeg får ihvertfald data fra yahoo ind i mit ark. Om de så er opstillet på samme måde som du tidligere har set det, det aner jeg ikke. Det kan godt tænkes at Yahoo ikke blot har ændret URL, men også har ændret strukturen på siden, hvilket vil bevirke at tallene vil stå anderledes i excel.

Når jeg kører nedenstående kode i min excel, så hentes data ind på Vestas aktien. Jeg kan f.eks. finde omsætning for de seneste 4 år i række 96.

Sub getdata()

    x = "VWS.CO"
  'Income Statement
        conString = "URL;https://finance.yahoo.com/quote/" & x & "/financials?p=" & x & ""
        'conName = "is?s=" & x & "+Income+Statement&annual"
                                                               
        With ActiveSheet.QueryTables.Add(Connection:=conString, Destination:=Range("$B$2"))
            .Name = conName
            .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 = """yfncsubtit"",8,10,11,13,15,17,19,21,23"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
           

End Sub

Hvis du har brug for yderligere assistance så giv mig et prej.

Mvh Karsten Olsen / Sanocast
https://www.sanocast.dk/excel-udvikler/

Hej Karsten

Jeg har forsøgt kun at kopier koden ind, men jeg får absolut intet i mit regneark.

Hvad kan der være galt? :(

Josvto

??? Karsten?? :)