Ylikerroin.com
Suomen suurin vedonlyöntisivusto
Tänään on 22.01.2018, 05:31

Kaikki ajat ovat UTC + 2 tuntia



Aloita uusi ketju Vastaa viestiin  [ 32 viestiä ]  Mene sivulle <1, 2
Kirjoittaja Viesti
 Viestin otsikko: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 14.07.2011, 07:08 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
Yritin tälläistä koodia foorumilta etsiskellä, mutta en löytänyt. Siispä postittelen pienen kesäviihdykkeen...

Omat Visual Basic -taidot on aika keskinkertaiset, mutta netissä törmäsin muutamaan
'siistiin' koodinpätkään. Pientä Leikkaa/Liimaa -näpräilyä ja sain kasaan toimivan makro-koodin.
Makro hakee betexplorer.com'in sivuilta eri liigojen ottelutulokset ja tulevan ohjelman ja
yhdistelee ne omille välilehdilleen. Tässä mukana ovat vain pohjoismaitten käynnissä olevat
liigat, mutta koodia on perustiedoillakin helppo laajentaa muihin sarjoihin.

Turvallisuus:
Makroja Excel-taulukoissa ei tietenkään yleisesti pidä sallia niihin sisältyvien turvariskien vuoksi.
Käytännöllinen tapa toimia makrojen suhteen on määritellä kansio, jossa luotettu
makrotiedosto sijaitsee 'Luotettavaksi sijainniksi' (Trusted Locations), eli

Office Button => Excel Options => Trust Center => Trust Center Settings => Trusted Locations
(mitä mahtavat olla suomeksi...?)

Latausosoite: (päivitettävänä)
Rar-password: ylikerroin.com

Kätevä ja välttämätön apuväline kaikille rajojen laskijoille. :wink:

Allekirjoittaneen luotettavuudesta en menisi takuuseen, mutta ehkä luotettavuutta vähän parantaa kun laitan lähdekoodin tähän loppuun:

Koodi:
Option Explicit

Sub Button1_Click()
Download (1)
End Sub
Sub Button2_Click()
Download (2)
End Sub
Sub Button3_Click()
Download (3)
End Sub
Sub Button4_Click()
Download (4)
End Sub
Sub Button5_Click()
Download (5)
End Sub
Sub Button6_Click()
Download (6)
End Sub
Sub Button7_Click()
Download (7)
End Sub
Sub Button8_Click()
Download (8)
End Sub
Sub Button9_Click()
Download (9)
End Sub
Sub Button10_Click()
Download (10)
End Sub
Sub Button11_Click()
Download (11)
End Sub
Sub Button12_Click()
Download (12)
End Sub
Private Sub Download(buttonnumber As Integer)

Application.ScreenUpdating = False

'DOWNLOAD DATA FROM BETEXPLORER

    Dim strResUrls(1 To 200) As String
    strResUrls(1) = "http://www.betexplorer.com/soccer/finland/finnish-1st-veikkausliiga-2011/results/"
    strResUrls(2) = "http://www.betexplorer.com/soccer/finland/finnish-2nd-league-2011/results/"
    strResUrls(3) = "http://www.betexplorer.com/soccer/sweden/swedish-1st-allsvenskan-2011/results/"
    strResUrls(4) = "http://www.betexplorer.com/soccer/sweden/swedish-2nd-superettan-2011/results/"
    strResUrls(5) = "http://www.betexplorer.com/soccer/norway/norwegian-1st-eliteserien-2011/results/"
    strResUrls(6) = "http://www.betexplorer.com/soccer/norway/norwegian-2nd-league-2011/results/"
   
    strResUrls(101) = "http://www.betexplorer.com/soccer/finland/finnish-1st-veikkausliiga-2011/fixtures/"
    strResUrls(102) = "http://www.betexplorer.com/soccer/finland/finnish-2nd-league-2011/fixtures/"
    strResUrls(103) = "http://www.betexplorer.com/soccer/sweden/swedish-1st-allsvenskan-2011/fixtures/"
    strResUrls(104) = "http://www.betexplorer.com/soccer/sweden/swedish-2nd-superettan-2011/fixtures/"
    strResUrls(105) = "http://www.betexplorer.com/soccer/norway/norwegian-1st-eliteserien-2011/fixtures/"
    strResUrls(106) = "http://www.betexplorer.com/soccer/norway/norwegian-2nd-league-2011/fixtures/"

    Dim URLValue As String
   
Sheets("DataRes").Activate
URLValue = strResUrls(buttonnumber)

Range("A:J").Select
Selection.Clear
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & URLValue, Destination:=Range("$A$1"))
        .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
   
Sheets("DataFix").Activate
URLValue = strResUrls(100 + buttonnumber)
Range("A:J").Select
Selection.Clear
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & URLValue, Destination:=Range("$A$1"))
        .Name = "TEMP2"
        .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
FormatData (buttonnumber)

End Sub

Private Sub FormatData(buttonnumber As Integer)
   
    'PREPARE LEAGUE SHEET
   
    Dim strLeagues(1 To 100) As String
    strLeagues(1) = "Fin1"
    strLeagues(2) = "Fin2"
    strLeagues(3) = "Swe1"
    strLeagues(4) = "Swe2"
    strLeagues(5) = "Nor1"
    strLeagues(6) = "Nor2"
   
    Dim FinalRow As Long
   
    Sheets(strLeagues(buttonnumber)).Activate
    Cells.Clear
    Range("A1:I1").Select
    With Selection
        .Font.Bold = True
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
    End With
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "RESULTS"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "HOME"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "AWAY"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "H"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "A"
   
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "FIXTURES"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "HOME"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "AWAY"

    'RESULT FORMULAS
   
    Sheets("DataRes").Activate
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=IF(IFERROR(FIND("". Round"",RC[-10]),"""")<>"""",1,"""")"
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]=1,1,IF(R[-1]C=1,1,""""))"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=IF(IFERROR(FIND(""postp."",RC[-11]),"""")="""",IF(RC[-7]<>"""",IF(RC[-1]=1,SUBSTITUTE(RC[-7],""."",""/"")*1,""""),""""),"""")"
    Range("N2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",LEFT(RC[-13],FIND("" - "",RC[-13])-1),"""")"
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>"""",RIGHT(RC[-14],(LEN(RC[-14])-FIND("" - "",RC[-14]))-2),"""")"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-3]<>"""",HOUR(RC[-14]),"""")"
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-4]<>"""",MINUTE(RC[-15]),"""")"
   
    Range("K2:Q2").Select
    Selection.Copy
    FinalRow = Range("A500000").End(xlUp).Row + 3
    Range("K2:Q" & FinalRow).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("M2:M" & FinalRow).Select
    Selection.NumberFormat = "dd/mm/yyyy;@"
    FinalRow = Range("A500000").End(xlUp).Row + 3
    ActiveSheet.Range("$M$2:$Q$" & FinalRow).AutoFilter Field:=1, Criteria1:="<>"
    Range("$M$2:$Q$" & FinalRow).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
   
    'COPY DATA TO LEAGUESHEET
   
    Sheets(strLeagues(buttonnumber)).Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
   
    'SORT
   
    FinalRow = Range("A500000").End(xlUp).Row
   
    ActiveWorkbook.Worksheets(strLeagues(buttonnumber)).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(strLeagues(buttonnumber)).Sort.SortFields.Add Key:=Range("A2:A" & FinalRow), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(strLeagues(buttonnumber)).Sort.SortFields.Add Key:=Range("B2:B" & FinalRow), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(strLeagues(buttonnumber)).Sort
        .SetRange Range("A1:E" & FinalRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    Range("A2:E" & FinalRow).Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlGeneral
    End With

    'FIXTURE FORMULAS
   
    Sheets("DataFix").Activate
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=IF(IFERROR(FIND("" - "",RC[-9]),"""")<>"""",1,"""")"
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(SUBSTITUTE(LEFT(RC[-11],10),""."",""/"")*1,"""")"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",R[-1]C,RC[-1])"
    Range("N2").Select
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-1]<>0,RC[-1]<>"""",RC[-3]=1),RC[-1],"""")"
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]<>"""",LEFT(RC[-13],FIND("" - "",RC[-13])-1),"""")"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>"""",RIGHT(RC[-14],LEN(RC[-14])-(FIND("" - "",RC[-14])+2)),"""")"
   
    Range("K2:P2").Select
    Selection.Copy
    FinalRow = Range("A500000").End(xlUp).Row + 3
    Range("K2:P" & FinalRow).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("N2:N" & FinalRow).Select
    Selection.NumberFormat = "dd/mm/yyyy;@"
    FinalRow = Range("A500000").End(xlUp).Row + 3
    ActiveSheet.Range("$N$2:$P$" & FinalRow).AutoFilter Field:=1, Criteria1:="<>"
    Range("$N$2:$P$" & FinalRow).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
   
    'COPY DATA TO LEAGUESHEET
   
    Sheets(strLeagues(buttonnumber)).Activate
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
   
    Cells.EntireColumn.AutoFit
    Range("A2").Select

    Sheets("DataRes").Activate
    Selection.AutoFilter
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
   
    Sheets("DataFix").Activate
    Selection.AutoFilter
   
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select

    Sheets(strLeagues(buttonnumber)).Activate
   
    Application.ScreenUpdating = True
   
End Sub
2

_________________
“There are two kinds of forecasters: those who don’t know, and those who don’t know they don’t know.”
(J K Galbraith)


Viimeksi muokannut S.Mäenala päivämäärä 18.11.2011, 15:34, muokattu yhteensä 1 kerran
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 19.07.2011, 23:44 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
tahdoin vähän leikkiä mutta ei se tahtonut :(
Errors were detected in file '....\Betex-resfix.xlsm'</summary>
- <removedParts summary="Following is a list of removed parts:">
<removedPart>Removed Part: /xl/vbaProject.bin part. (Visual Basic for Applications (VBA))
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 00:17 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
brainslicer kirjoitti:
tahdoin vähän leikkiä mutta ei se tahtonut :(
Errors were detected in file '....\Betex-resfix.xlsm'</summary>
- <removedParts summary="Following is a list of removed parts:">
<removedPart>Removed Part: /xl/vbaProject.bin part. (Visual Basic for Applications (VBA))

En nyt tuosta kuvauksestasi oikein ymmärtänyt mitä yritit 'leikkiä' (aikaansaada).
Jos sait makron koodin hajalle niin neuvoisin hakemaan uuden kappaleen ja ottamaan siitä varmuuskopsun.

Jos kerrot mikä oli ideasi, niin ehkä voisin yrittää neuvoskella... :wink:
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 00:33 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
S.Mäenala kirjoitti:
brainslicer kirjoitti:
tahdoin vähän leikkiä mutta ei se tahtonut :(
Errors were detected in file '....\Betex-resfix.xlsm'</summary>
- <removedParts summary="Following is a list of removed parts:">
<removedPart>Removed Part: /xl/vbaProject.bin part. (Visual Basic for Applications (VBA))

En nyt tuosta kuvauksestasi oikein ymmärtänyt mitä yritit 'leikkiä' (aikaansaada).
Jos sait makron koodin hajalle niin neuvoisin hakemaan uuden kappaleen ja ottamaan siitä varmuuskopsun.

Jos kerrot mikä oli ideasi, niin ehkä voisin yrittää neuvoskella... :wink:



Hehe , en oikeastaan mitään, ajattelin vaan katella pikkasen, varmaan mun asetuksissa jossain jotain vaikka ton Trusted Locationsin myös pistin.

ekaks herjaa tota:
Kuva

sitten unreadable poistetaan, ja ei mikään tietenkään sen jälkeen toimi, pari kertaa hakenut tiedoston
Kuva
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 00:56 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
Eipä ole muut tuota raportoineet vaikka jonkinverran tiedostoa on kuitenkin latailtu.
Googlailin ongelmaa ja huomasin että joillakin on samasta ongelmasta kysymyksiä eri foorumeilla, etenkin Office 2007 version kanssa.
Tärkeää tässä on huomata että kun tiedoston tallentaa, on valittava formaatiksi "Excel Macro-Enabled Workbook" (xlsm).

Omat asetukset ovat:
For macros in documents not in trusted location:
- Disable all macros without notification.

Kansio, jossa makrotiedosto sijaitsee, on määritelty "Trusted Locations" -osastossa luotetuksi kansioksi.

Siis:
Tiedosto on jo ensimmäisellä kerralla avattava luotetuksi määritellystä kansiosta! Eli ennenkuin avaat sen, siirrä se tälläiseen kansioon.
Varmista että kun tallennat tiedoston ( jos sen ylipäätään saat avattua), valitset tiedostomuodon oikein!

Toivotaan että saat sen pelaamaan. :!: :wink:
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 01:04 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
samat asetukset ja oli trusted kansiossa
Pitää myöhemmin tutkia, toi nyt tapahtuu heti kun yritän avata, siinä heti hajoaa
0


Viimeksi muokannut brainslicer päivämäärä 20.07.2011, 01:09, muokattu yhteensä 1 kerran
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 01:07 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
brainslicer kirjoitti:
Pitää myöhemmin tutkia, toi nyt tapahtuu heti kun yritän avata, siinä heti hajoaa

Vaikka avaat tiedoston luotetusta kansiosta?
0


Viimeksi muokannut S.Mäenala päivämäärä 20.07.2011, 01:10, muokattu yhteensä 1 kerran
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 01:10 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
S.Mäenala kirjoitti:
brainslicer kirjoitti:
Pitää myöhemmin tutkia, toi nyt tapahtuu heti kun yritän avata, siinä heti hajoaa


Vaikka avaat tiedoston luotetusta kansiosta?

jepp
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 01:12 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
Jos nyt allekirjoittaneeseen yhtään luotat, voisit yrittää sallia kaikki makro-tiedostot (väliaikaisesti!!) ja kokeilla saatko sen sitten toimimaan..
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 01:35 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
S.Mäenala kirjoitti:
Jos nyt allekirjoittaneeseen yhtään luotat, voisit yrittää sallia kaikki makro-tiedostot (väliaikaisesti!!) ja kokeilla saatko sen sitten toimimaan..



kokeilin, sama vika, heti kun yrittää avata: unreadable
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 01:56 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
Jupp, se on näiden makrojen kanssa tällästä... :(
Valtaosassa koneita ne on kokonaan estetty, ja ne harvat jotka niitä sitten käyttää eivät eri versioilla saa niitä toimimaan.

Lohduksesi voin kertoa että ei tuo työkalu sentään ihan välttämätön ole, vaikka kätevä onkin.

Netin keskusteluista voi päätellä että tätäkin nimenomaista ongelmaa joillakin Office-versioillla on.

Sortui allekirjoittanutkin hätäpäissään antamaan huonon neuvon (salli makrot)! Juuri tuollaisiin tuntemattomien antamiin 'vinkkeihin' ei pidä sortua! Pahoitteluni! Laitetaan väsymyksen piikkiin...
Muista laittaa makroestot uudelleen päälle...
S.

Moderaattoreille: mun puolesta näitä vähän chattailun puolelle menneitä viestejä voi poistaa kun asianosaset on ehtineet ne lukaista.
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 02:16 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
joo niinhän se on, jaksoin kuitenkin ainakin ajaa sen tosta läpi http://www.virustotal.com/file-scan/rep ... 1311110115

tosin uusia malwareja samalla tavalla testataan ennen kuin päästetään :)
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 13:18 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
version vaihto auttoi, elikä tossa 2007 kyllä jotain häikkää
nyt toisaalta sitten on toi ongelma, hmmm

Kuva
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 15:32 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
brainslicer kirjoitti:
version vaihto auttoi, elikä tossa 2007 kyllä jotain häikkää
nyt toisaalta sitten on toi ongelma, hmmm

No Sinulla noita ongelmia riittää! :o

Mä annoin parin tutunkin testata tuon härvelin, eikä kellään mitään ongelmia.
Samoin täällä foorumilla ei kukaan ole ilmoittanut mistään ongelmista.

Mutta yritetään selvitellä...
Voisit alkajaisiksi katsoa, mistä tuo virheilmoitus tulee.

Otin screen capturen omalta koneelta ja tältä sen pitäisi näyttää esim. Veikkausliigan osalta:

Kuva
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 16:08 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
S.Mäenala kirjoitti:
brainslicer kirjoitti:
Mutta yritetään selvitellä...
Voisit alkajaisiksi katsoa, mistä tuo virheilmoitus tulee.


voi voi, ainoastaan ongelmia :D en kyllä muuta ilmoitusta näe kun toi #VALUE! kaikkialla kun nappia painaa
oliskohan joku regional-asetus tai jotain
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 20.07.2011, 18:59 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
brainslicer kirjoitti:
voi voi, ainoastaan ongelmia :D en kyllä muuta ilmoitusta näe kun toi #VALUE! kaikkialla kun nappia painaa
oliskohan joku regional-asetus tai jotain

Kun aktivoit (=klikkaa) yhden niistä #VALUE! -soluista, ilmestyy viereen pieni !-merkillä varustettu kuvake, josta voi katsoa mikä virhe on kyseessä.
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 21.07.2011, 03:19 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
S.Mäenala kirjoitti:
brainslicer kirjoitti:
voi voi, ainoastaan ongelmia :D en kyllä muuta ilmoitusta näe kun toi #VALUE! kaikkialla kun nappia painaa
oliskohan joku regional-asetus tai jotain

Kun aktivoit (=klikkaa) yhden niistä #VALUE! -soluista, ilmestyy viereen pieni !-merkillä varustettu kuvake, josta voi katsoa mikä virhe on kyseessä.

niinhän se yleensä ja se tulee muissa worksheeteissä, muttei tässä missään näy, ainoastaan ruudut täyttyy tolla VALUE! errorilla
Kuva
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 21.07.2011, 06:46 
Status: JäsenLiittynyt: 11.03.2008, 11:18Viestit: 269
Pisteitä: 83
Kassa: +155.06 yks. Palautus%: 112.87% Panosten ka: 5.82 yks. Vetoja: 207
Ootko koittanut venyttää noita soluja isommiksi? Mulla on on tuollaista excelissä joskus tullut eteen kun haettu teksti ei ole mahtunut soluun kokonaan.
0

_________________
Veikkausliigavihjeet kymmenportaisella asteikolla, max 2% kassasta eli 20 yks.
Ylös
  Profiili Seuranta
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 21.07.2011, 10:36 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
Reimat kirjoitti:
Ootko koittanut venyttää noita soluja isommiksi? Mulla on on tuollaista excelissä joskus tullut eteen kun haettu teksti ei ole mahtunut soluun kokonaan.

joo
Kuva
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 21.07.2011, 10:45 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
brainslicer kirjoitti:
niinhän se yleensä ja se tulee muissa worksheeteissä, muttei tässä missään näy, ainoastaan ruudut täyttyy tolla VALUE! errorilla

Kovin mystinen juttu.
Lähettämistäsi kuvista kuitenkin näkyy että osa makron koodista on suoritettu, koska nuo sarakeotsikot on kirjoitettu välilehdelle.

Jos olet vähänkään ohjelmointitaitoinen, voisit yrittää selvittää ongelmaa VBA:n debuggerilla. Trace'lla pitäisi pystyä löytämään se komento, johon koodin suoritus tyssää ja siitä sitten yrittää päätellä jumittumissyytä.
Oma arvaukseni kuitenkin on että kyseessä on yhteensopivuusongelma käyttämäsi Office -version kanssa.

Näin etänä on melko vaikea sitä selvitellä ja se menee jo aika paljon tämän foorumin aihepiirin rajoillekin.

Kuten sanottu, kyllä vedonlyönti ilman tälläisiä härpäkkeitäkin onnistuu ihan hyvin, nämähän ovat vain 'mother's little helper' -osastoa.
Samat tiedot saa sitäpaitsi manuaalisestikin haettua betexplorer.com'in Results ja Fixtures sivustoilta. :wink:

Ei ole ihme että Micro5oft haluaa opettaa Visual Basic'iä meille kaikille. Koodithan toimii ainoastaan omalla koneella ja omilla ohjelmistoversioilla! :?
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 21.07.2011, 12:10 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
Joo, niinhän se, saa kyllä mun puolesta poistaa nämä(tai siirtää johonkin offtopic paikkaan) kun ei tällä "chatilla" mitään pysyvää tulevaisuuden arvoa kumminkaan ole. :)

justiinsa katoin vähän debuggerilla, ja tuossa ongelma vissiin löyty:
Koodi:
Selection.NumberFormat = "dd/mm/yyyy;@"

Taitaa vain toimia Suomessa tuo formaatti, paljon muualla ei sitä taideta käyttää, poikkeaa myös ISO 8601 standardista jonka pitäis toimia kaikkialla.

Vaihtamalla käyttöjärjestelmän valuutat/ajat/päivämäärät Suomen standardiin niin sain toimimaan :D, nyt vaan pikkuhiljaa tutkimaan
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 21.07.2011, 12:55 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
brainslicer kirjoitti:
justiinsa katoin vähän debuggerilla, ja tuossa ongelma vissiin löyty:
Koodi:
Selection.NumberFormat = "dd/mm/yyyy;@"

Taitaa vain toimia Suomessa tuo formaatti, paljon muualla ei sitä taideta käyttää, poikkeaa myös ISO 8601 standardista jonka pitäis toimia kaikkialla.
Vaihtamalla käyttöjärjestelmän valuutat/ajat/päivämäärät Suomen standardiin niin sain toimimaan :D, nyt vaan pikkuhiljaa tutkimaan

Hyvää työtä brainslicer!
Tuon määrittelyn voi Suomessa korvata hyvin tällä muodolla:
Koodi:
Selection.NumberFormat = "dd.mm.yyyy;@"

Huomaa että määrittely esiintyy koodissa kahteen kertaan.

:D :wink:
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 21.07.2011, 16:20 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
hmm, ei kyllä tuo auttanut, pitäis varmaan olla vuosi ekana?

Lainaa:
Date and time expressed according to ISO 8601:
Date 2011-07-21
Separate date and time in UTC: 2011-07-21 06:13Z
Combined date and time in UTC: 2011-07-21T06:13Z
Date with week number: 2011-W29-4
Ordinal date: 2011-202
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 21.07.2011, 17:41 
Avatar
Status: JäsenLiittynyt: 18.01.2011, 19:17Viestit: 1109Paikkakunta: Kamppi
Pisteitä: 3377
brainslicer kirjoitti:
hmm, ei kyllä tuo auttanut, pitäis varmaan olla vuosi ekana?

Tuo välimerkin vaihtaminen tuli mieleen kun kirjoitit että

Lainaa:
Vaihtamalla käyttöjärjestelmän valuutat/ajat/päivämäärät Suomen standardiin niin sain toimimaan :D, nyt vaan pikkuhiljaa tutkimaan


Omalla koneella tuo muotoilu toimii millä tahansa erottimella (/, ., -) ja samoin riippumatta siitä käytetäänkö ISO 8601 -määritystä vai Suomessa tavallista päivä.kuukausi.vuosi -määritystä. Mulla koodi toimii itse asiassa vaikka kommentoin koko määrittelyn!
0
Ylös
  Profiili
 
 Viestin otsikko: Re: Otteludata Betexplorer.com'sta Excel'iin omalle koneelle
ViestiLähetetty: 21.07.2011, 22:19 
Status: JäsenLiittynyt: 09.11.2010, 11:11Viestit: 20
Pisteitä: 0
S.Mäenala kirjoitti:
brainslicer kirjoitti:
Omalla koneella tuo muotoilu toimii millä tahansa erottimella (/, ., -) ja samoin riippumatta siitä käytetäänkö ISO 8601 -määritystä vai Suomessa tavallista päivä.kuukausi.vuosi -määritystä. Mulla koodi toimii itse asiassa vaikka kommentoin koko määrittelyn!


kokeilin yksitelen astetuskia käyttöjärjestelmässä: aika, date jne eri muotoihin myös macron koodia muttei mitään tulosta syntynyt

ainut joka onnistui: "Regional and Language options" kokonaan Suomeks
kokeillin muutamia muita macroja, esim tuolta ilman ongelmia http://www.michaelwray.co.nz/sheets.html näköjään vaan tämä joka tuottaa ongelmia.

en tiädä mutta jotain ihmeelistä on jossakin ainakin, hehe
Mun arvaus on että jokin ei ole ISOn mukainen jossain, jos koodaus on non-ISO niin toimii vain niissä käyttöjärestelmissä mitkä tajuavat että on esim päivämäärä kyseessä.

esim FIN tajuaa FIN ja ISO ja SWE tajuaa SWE ja ISO, muttei tajua ollenkaan FIN päivämääristä joss ne ei alunperin oo jossakin kaikkien ymmärtämässä muodossa(ISO)
0
Ylös
  Profiili
 
Näytä viestit ajalta:  Järjestä  
Aloita uusi ketju Vastaa viestiin  [ 32 viestiä ]  Mene sivulle <1, 2

Kaikki ajat ovat UTC + 2 tuntia


Paikallaolijat

Käyttäjiä lukemassa tätä aluetta: Ei rekisteröityneitä käyttäjiä ja 3 vierailijaa


Et voi kirjoittaa uusia viestejä
Et voi vastata viestiketjuihin
Et voi muokata omia viestejäsi
Et voi poistaa omia viestejäsi
Et voi lähettää liitetiedostoja.

Hyppää:  


Powered by phpBB © 2008 phpBB Group | Käännös, Lurttinen, www.phpbbsuomi.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye