Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1
Wyślij wiadomość do admina

Przewiń wpisy ↓

Kopiowanie losowań z internetu do excela

2012-03-02 (10:19)

status keriusz
Data rejestracji: 2009-10-21
Ilość postów: 147

12224
wpis nr 502 766
[ CZCIONKA MONOSPACE ]

Witam



Od jakiegoś czasu pojawił mi się problem z kopiwaniem danych z internetu do excela. Otóż zaznaczone losowania ze strony internetowej wklejałem do jednej komórki excela, a następnie przy pomocy funkcji "Tekst jako kolumny" dzieliłem te dane na odpowiednią ilość komórek.

Teraz nie wiem dlaczego, dane z jednego losowania są wklejane do czterech komórek w jednej kolumnie i już nie można tego za jednym zamachem rozbić na poszczególne komórki w jednym wierszu. Nie mam pojęcia co się mogło stać z excelem? Może koś wie jak usunąć tę usterkę excel'a?



Pozdrawiam

Keriusz
2012-03-02 (11:30)

status slawek001
Data rejestracji: 2005-02-24
Ilość postów: 6116

721
wpis nr 502 780
[ CZCIONKA MONOSPACE ]

w wybranej komórce arkusz tu na przykładzie jest C3 jako teks wklej ze strony

losowań losowanie i w każdej komórce wpisz jak masz na przykładzie przesunięcie co 3



czyli 1,4,7,10,13,16,19,22,25,28,31,34,37,40,43,46,49,52,55,58



w ten sposób będziesz miał rozpisane 20 liczb osobno w komórce





=FRAGMENT.TEKSTU($C$3;1;2) , =FRAGMENT.TEKSTU($C$3;4;2) , =FRAGMENT.TEKSTU($C$3;7;2)
2012-03-02 (12:35)

status KERIUSZ
Data rejestracji: 2009-10-21
Ilość postów: 147

12224
wpis nr 502 803
[ CZCIONKA MONOSPACE ]

Sławek,

dziękuję za odpowiedź. Ale z funkcjami jest dodatkowa robota, której chciałbym uniknąć. Pszypuszczam, że jest gdzieś w excelu jakaś opcja, która odpowiada za taki sposób kopiowania i została zmieniona podczas aktualizacji excela, od tej aktualizacji zaczęło się tak dziać z tym kopiowaniem i wklejaniem. Przeszukałem wszystkie ustawienia, ale niestety nic nie znalazłem. Myślę nawet o usunięciu tej akualizacji - ale też nie wiem jak to zrobić. Dodam że jest to excel 2007.
2012-03-02 (13:11)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 502 819
[ CZCIONKA MONOSPACE ]

losowania Multi z bazy lotto

---------------------------------------

Sub NET_DANE_MULTILOTEK()

Dim x As long

Dim tablos() As Variant





Arkusz4.Activate ' arkusz do którego pobierane sa dane z sieci

Arkusz4.Cells.ClearContents



Cells(1, 1).Select

Application.ScreenUpdating = false



V = Application.WorksheetFunction.CountA(Arkusz2.Range("a:a")) 'arkusz gdzie trzymasz bazę losowań



With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://serwis5.lotto.pl/183-41fa1fbe222f2.htm?id_gra=2&data=18-03-1996&sortuj=on&numer=" & V _

, Destination:=Cells(1, 1))

.Name = "183-41fa1fbe222f2.htm?id_gra=2&data=18-03-1996&sortuj=on&numer=" & V

.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

Columns("B:B").Select

Selection.NumberFormat = "yyyy/mm/dd;@"

Rows(1).Delete

Range("C1:C10").Select

Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _

Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _

Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _

, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array _

(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1)) _

, TrailingMinusNumbers:=True





Cells(1, 1).Select

Application.ScreenUpdating = True

For nr = 1 To 10

vn = Cells(nr, 1).Value

If V < Cells(nr, 1) Then Range(Arkusz2.Cells(vn, 3), Arkusz2.Cells(vn, 22)) = Range(Arkusz4.Cells(nr, 10), Arkusz4.Cells(nr, 29)).Value

If V < Cells(nr, 1) Then Arkusz2.Cells(vn, 2) = Cells(nr, 2)

If V < Cells(nr, 1) Then Arkusz2.Cells(vn, 1) = vn

Next nr

Arkusz2.Select

'UserForm3.Hide

DOOSTATNIEGOLOSOWANIA

End Sub
2012-03-02 (13:12)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 502 820
[ CZCIONKA MONOSPACE ]

Sub NET_DANE_MULTILOTEK()

Dim x As long

Dim tablos() As Variant





Arkusz4.Activate ' arkusz do którego pobierane sa dane z sieci

Arkusz4.Cells.ClearContents



Cells(1, 1).Select

Application.ScreenUpdating = false



V = Application.WorksheetFunction.CountA(Arkusz2.Range("a:a")) 'arkusz gdzie trzymasz bazę losowań



With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://serwis5.lotto.pl/183-41fa1fbe222f2.htm?id_gra=2&data=18-03-1996&sortuj=on&numer=" & V _

, Destination:=Cells(1, 1))

.Name = "183-41fa1fbe222f2.htm?id_gra=2&data=18-03-1996&sortuj=on&numer=" & V

.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

Columns("B:B").Select

Selection.NumberFormat = "yyyy/mm/dd;@"

Rows(1).Delete

Range("C1:C10").Select

Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _

Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _

Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _

, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array _

(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1)) _

, TrailingMinusNumbers:=True





Cells(1, 1).Select

Application.ScreenUpdating = True

For nr = 1 To 10

vn = Cells(nr, 1).Value

If V < Cells(nr, 1) Then Range(Arkusz2.Cells(vn, 3), Arkusz2.Cells(vn, 22)) = Range(Arkusz4.Cells(nr, 10), Arkusz4.Cells(nr, 29)).Value

If V < Cells(nr, 1) Then Arkusz2.Cells(vn, 2) = Cells(nr, 2)

If V < Cells(nr, 1) Then Arkusz2.Cells(vn, 1) = vn

Next nr

Arkusz2.Select



End Sub
2012-03-02 (13:15)

status slawek001
Data rejestracji: 2005-02-24
Ilość postów: 6116

721
wpis nr 502 821
[ CZCIONKA MONOSPACE ]

wiec inaczej ............. wyniki losowania zapisz w pliku tekstowym i po zapisaniu tego pliku otwórz Go arkuszem .... możesz tak zapisać w arkuszu na raz całą bazę losowań
2012-03-02 (13:18)

status slawek001
Data rejestracji: 2005-02-24
Ilość postów: 6116

721
wpis nr 502 823
[ CZCIONKA MONOSPACE ]

to Ja tak męczyłem się z tym Makrem a Leszek dopiero teraz Go podaje .... Leszek dzięki
2012-03-02 (13:23)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 502 825
[ CZCIONKA MONOSPACE ]

Ściaga po 10 z archiwum ,dopisze tylko te których nr. losowań brak

można zacząć od pustego ,to samo dla expresa czy dużego.

-----------

Trochę inaczej będzie dla 49s ale podobnie.





patrz nr arkusza do którego ściągaja się dane,u mnie Arkusz nr.4

patrz nr arkusza bazy losowań u mnie to Arkusz nr.2



dylong już nie pomoże ,to chyba muszę ja



2012-03-02 (21:07)

status slawek001
Data rejestracji: 2005-02-24
Ilość postów: 6116

721
wpis nr 502 973
[ CZCIONKA MONOSPACE ]

Leszek .... przecież leniwi jesteśmy z wpisywaniem wyników losowań do arkusza ... więc niech arkusz sam sobie wpisuje



Przyzwyczajony jestem do wersji Excela 2000 a podane makra na niej nie działają ..... ale kto ma 2007 ten pobierać automatycznie wylosowane liczby może ..... szkoda ze nie można pobrać wylosowanych liczb przed losowaniem



wesołego wieczoru
2012-03-03 (19:51)

status KERIUSZ
Data rejestracji: 2009-10-21
Ilość postów: 147

12224
wpis nr 503 309
[ CZCIONKA MONOSPACE ]

Leszku,



fantastyczna sprawa z tym makrem - nie spodziewałem się, że aż tak można sobie ułatwić życie

Bardzo dziękuję za to makro.



Sławku doszedłem do tego co wywołuje ten problem w excelu z kopiowaniem - okazuje się, że winny tu jest system operacyjny Vista. To nie excel, a właśnie wista po którejś aktualizacji spowodował takie zmiany.

Próbowalem tak jak radziłeś skopiować wyniki do notatnika i okazuje się, że są skopiwane w taki sam sposób jak do excela, w czterech wierszach z odstepem jednego wiesza pomiedzy nimi.



Serdeczne dzięki.
2012-03-03 (22:18)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 503 369
[ CZCIONKA MONOSPACE ]

KERIUSZ> nie ma sprawy .
2012-03-04 (11:09)

status slawek001
Data rejestracji: 2005-02-24
Ilość postów: 6116

721
wpis nr 503 454
[ CZCIONKA MONOSPACE ]

KERIUSZ Ja mam system XP i Office 2000 .... lubię po prostu starsze programy na nich się uczyłem
2012-06-30 (17:39)

status geniu7
Data rejestracji: 2011-08-16
Ilość postów: 795

13148
wpis nr 537 878
[ CZCIONKA MONOSPACE ]

Wtam. Mam takie makro do aktualizacji:

Sub NET_DANE_MULTILOTEK()

Dim x As long

Dim tablos() As Variant





Arkusz4.Activate ' arkusz do którego pobierane sa dane z sieci

Arkusz4.Cells.ClearContents



Cells(1, 1).Select

Application.ScreenUpdating = false



V = Application.WorksheetFunction.CountA(Arkusz2.Range("a:a")) 'arkusz gdzie trzymasz bazę losowań



With ActiveSheet.QueryTables.Add(Connection:= _

"URL;http://serwis5.lotto.pl/183-41fa1fbe222f2.htm?id_gra=2&data=18-03-1996&sortuj=on&numer=" & V _

, Destination:=Cells(1, 1))

.Name = "183-41fa1fbe222f2.htm?id_gra=2&data=18-03-1996&sortuj=on&numer=" & V

.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

Columns("B:B").Select

Selection.NumberFormat = "yyyy/mm/dd;@"

Rows(1).Delete

Range("C1:C10").Select

Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _

Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _

Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _

, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array _

(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1)) _

, TrailingMinusNumbers:=True





Cells(1, 1).Select

Application.ScreenUpdating = True

For nr = 1 To 10

vn = Cells(nr, 1).Value

If V < Cells(nr, 1) Then Range(Arkusz2.Cells(vn, 3), Arkusz2.Cells(vn, 22)) = Range(Arkusz4.Cells(nr, 10), Arkusz4.Cells(nr, 29)).Value

If V < Cells(nr, 1) Then Arkusz2.Cells(vn, 2) = Cells(nr, 2)

If V < Cells(nr, 1) Then Arkusz2.Cells(vn, 1) = vn

Next nr

Arkusz2.Select



End Sub



Od pewnwgo czasu wywala błąd:



.Refresh BackgroundQuery:=False



Może jest to związane z nową szatą strony Lotto.

Proszę o pomoc, co z tym zrobić
2012-06-30 (20:05)

status keriusz
Data rejestracji: 2009-10-21
Ilość postów: 147

12224
wpis nr 537 898
[ CZCIONKA MONOSPACE ]

Witam



Niestety makro nie działa, również to podane przez Leszka.

Adres internetowy do którego odwołuje się makro nie istnieje!

Panowie z totalizatora sportowego wprowadzili "ulepszenia" zmienili wygląd strony i teraz wyniki trzeba wklepywać ręcznie.

No cóż "ułatwiają" życie "zawodowym" graczom.



Pozdrawiam
2012-07-03 (22:28)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 538 709
[ CZCIONKA MONOSPACE ]

witam

napiszemy nowe ,trzeba będzie zrobić inaczej ,może jutro może później,zobaczę co się da wykombinować albo w delphi albo w excelu

pozdrawiam
2012-07-04 (19:40)

status geniu7
Data rejestracji: 2011-08-16
Ilość postów: 795

13148
wpis nr 538 868
[ CZCIONKA MONOSPACE ]

Dzięki "leo" że spojrzałeś na ten temat. Czekamy na nowe (piszę "czekamy" bo myślę, że nie tylko ja czekam) propozycje jak aktualizować ze strony Lotto
2012-07-04 (20:03)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 22656

1386
wpis nr 538 875
[ CZCIONKA MONOSPACE ]

Jestem chwilowo w Polsce i odpoczywam ,ale jak na razie codziennie parę browarów , a po paru .. już mi się nie chce nic.....no i ostatnio słońce grzeje , ale jak dla siebie machnę,to wstawię potem tu,

pozdrówka dla fanów excela.



leszek
2012-07-04 (21:49)

status mat09
Data rejestracji: 2010-12-06
Ilość postów: 1250

12778
wpis nr 538 911
[ CZCIONKA MONOSPACE ]

777ch,



pozdrowienia od grupy Mini, a uważaj z tym piwem bo jak pójdziesz do



lekarza, to gdzie Cie dotknie będziesz miał wątrobę. Pozdr. mat09





| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1
Wyślij wiadomość do admina