Yahoo Finance udtræk af data/webtable - svært spørgsmål
Hej eksperter,Jeg skal bruge finansiel data i et regneark. Jeg har fundet nedenstående VBA kode, hvor jeg kan udtrække data fra yahoo automatisk.
"Sub Macro2()
Dim conString As String
Dim conName As String
Dim txtSymbols(0, 2) As String
txtSymbols(0, 1) = "MSFT"
txtSymbols(0, 2) = "CSCO"
For i = 1 To 2
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = txtSymbols(0, i)
conString = "URL;http://finance.yahoo.com/q/ks?s=" & txtSymbols(0, i) & "+Key+Statistics"
conName = "ks?s=" & txtSymbols(0, i) & "+Key+Statistics"
With ActiveSheet.QueryTables.Add(Connection:=conString, Destination:=Range("$A$1"))
.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
Next i
End Sub"
I stedet for at hente fra "Key statistics" har jeg fået den til at hente fra "income statement", men den henter ikke alle tal og ikke alle kolonner. Den henter kun nogle tal og den seneste kolonne.
Jeg vil gerne have ALLE tal i regnskabet og alle 3 år.
Jeg tror det er ",8,10,11,13,15,17,19,21,23", som skal rettes til noget andet for at få alle regnskabstalene, men jeg ved ikke hvordan man får alle kolonner?
Jeg har fået at vide, at tallene referere til en webtable, hvilket jeg ikke ved hvordan man slår op i? Kan nogle hjælpe?
Mvh
Josvto