Olen siis käyttänyt tuota Excelin "tiedot/internetistä" -komentoa saadakseni NHL:n joukkuekohtaiset viimeisimmät pelit viime kaudelta. Sivu esimerkiksi Anaheimin viimeisimpiin runkosarjapeleihin on: http://www.nhl.com/ice/gamestats.htm?se ... e=summary#S.Mäenala kirjoitti:Jos VBA:ssa QueryTables-objektilla hakee taulukkodataa niin ei sieltä kyllä pitäisi tulla muuta kuin se taulukko.Teppor kirjoitti:Millaisella koodinpätkällä saan VBA:han sellaisen komennon että kun haen Excelin omalla tietojen haulla netistä dataa, niin se poistaisi kaiken turhan datan sen varsinaisen kiinnostavan tiedon päältä? Ts. tietoja haettaessa sen taulukon jonka haluan, päällä voi olla vaihtuva määrä eri rivejä jne. joten en saa kaavojani toimimaan suoraan päivityksen jälkeen. Olen koettanut nauhoittaa makroa jossa käytän ctrl+f -toimintoa löytääkseni taulukon otsikon ja sitten olen koettanut poistaa päältä kaiken A1-soluun saakka mutta ei toimi jos rivimäärä muuttuu...
Jos käytät jotain muuta menetelmää ja ylimääräistä tavaraa tulee epämääräinen määrä ennen haluttua tietoa, joudutaan sitten etsiskelemään jotain avainsanaa tai tagia, josta data-alue voidaan tunnistaa.
Olisi vähän helpompi auttaa jos antaisit vähän tarkempia tietoja, esim. sivusto ja data, jonka tarvitset.
Kun esim. osoitteesta URLValue="http://www.betexplorer.com/soccer/engla ... e/results/"
haetaan taulukon #1 data seuraavalla koodilla:
, saadaan tämännäköinen tuotos:Koodi: Valitse kaikki
With ActiveSheet.QueryTables.Add(Connection:="URL;" & URLValue, Destination:=Range("$A$2")) .Name = "TEMP1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlOverwriteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = False .RefreshPeriod = 0 .WebSelectionType = xlSpecifiedTables .WebFormatting = xlWebFormattingNone .WebTables = "1" .WebPreFormattedTextToColumns = False .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = True .WebDisableRedirections = True .Refresh BackgroundQuery:=False End With
Tuolta olen ennen saanut noukittua tietyn taulukon mutta nykyään tuon sivun kun avaa Excelin komentoa käyttäen, on siellä vain vasemmassa yläkulmassa yksi mahdollinen nuoli jolla valitaan sitten koko sivun sälä. Mutta tuo VBA näyttää toki fiksummalta, puuttuuko tuosta alusta jotain määrityksiä?
Minikommentit