Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70477 Skopiuj do schowka Makro do importowania ceny aukcji
Autor Wiadomość
scoorpo 
Świeżak


Wersja: Win Office 2019
Posty: 2
  Wysłany: 21-03-2021, 23:13   Makro do importowania ceny aukcji

Mam problem z importowaniem danych z sieci web. Chciałbym importować aktualną cenę pojazdów do excela ze strony xxxx://fahrzeuge.dorotheum.com/de/a/75718/. Jak to zrobić?
ID posta: 402478 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 797 razy
Posty: 4311
Wysłany: 22-03-2021, 01:24   

Witamy na Forum.

Nie podawaj linków do obcych stron - a przynajmniej nie w formie jawnej - Regulamin.
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 402479 Skopiuj do schowka
 
 
caelian
ExcelGaduła 500+


Wersja: Win Office 365
Pomógł: 61 razy
Posty: 563
Wysłany: 22-03-2021, 06:02   

Teoretycznie
Data-> From web podając url jaki Cię interesuje.

niestety ja nie potrafię obejść w widoku web tych przeklętych cookiessow
ID posta: 402482 Skopiuj do schowka
 
 
scoorpo 
Świeżak


Wersja: Win Office 2019
Posty: 2
Wysłany: 27-03-2021, 15:38   

W ten sposób niestety nie działa. Jakieś inne pomysły?
ID posta: 402835 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 797 razy
Posty: 4311
Wysłany: 27-03-2021, 17:43   

Kod:
Option Explicit

Private Sub CommandButton2_Click()

With ActiveSheet.QueryTables.Add(Connection:="url;https://fahrzeuge.dorotheum.com/de/a/75718/", _
    Destination:=Range("$A$1"))
    '.Name =
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With

End Sub

A dalej: albo sam sobie poradzisz albo pokażesz jaki układ danych chcesz uzyskać - coś "pomyślimy" :mrgreen: .
Np. po "Lot Nr.".
.

Z_WEB.xlsm
Pobierz Plik ściągnięto 4 raz(y) 56.36 KB

_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 402842 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2530 razy
Posty: 8431
Wysłany: 27-03-2021, 18:31   

umiejead, tyle razy ile razy odpalisz kod, to tak będą rosnąć zapisane połączenia w skoroszycie.
Należy do kodu przed End With dodać
Kod:
.delete


caelian napisał/a:
tych przeklętych cookiessow
Dla jednych przeklęte, dla innych dobrodziejstwo. ;-)

scoorpo, testuj:
Kod:
Sub test()
Dim oHtml As Object
Dim xmlHttp As Object
Dim obj As Object
Dim el1, el2, tmp
Dim i&, k&

    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    Set oHtml = CreateObject("HtmlFile")

    With xmlHttp
        .Open "Get", "https://fahrzeuge.dorotheum.com/de/a/75718/"
        .Send
        oHtml.body.innerHtml = .Responsetext
    End With

    Set obj = oHtml.getElementsByClassName("lot-info")

    For Each el1 In obj
        tmp = Split(el1.innertext, vbCrLf)
        i = i + 1
        For Each el2 In tmp
            If VBA.Len(el2) > 0 Then
                k = k + 1
                Cells(i, k).Value = el2
            End If
        Next el2
        k = 0
    Next el1

End Sub
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 402845 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 797 razy
Posty: 4311
Wysłany: 27-03-2021, 19:45   

Nie jestem "alfą i omegą". Wskazałem sposób (nie mój - T.K. - dla wyjadaczy nie będzie problemu z rozszyfrowaniem inicjałów).
Pewnie jest inny: lepszy / prostszy /szybszy / dokładniejszy / ...?
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 402847 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2530 razy
Posty: 8431
Wysłany: 27-03-2021, 19:55   

Cytat:
Nie jestem "alfą i omegą".
umiejead, napisałem o połączeniach, nie po to by Ci "umniejszyć" w jakikolwiek sposób.
Napisałem o tym abyś Ty, czy inny użytkownik wiedział, czym skutkuje wywołanie takiego zapytania.
Wszyscy się tutaj czegoś uczymy, i tylko taki miałem cel.
3maj się.
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 402848 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 797 razy
Posty: 4311
Wysłany: 27-03-2021, 21:15   

Mam dokładnie takie samo podejście / sposób myślenia / ...

Dzięki! (czegoś się nauczyłem).
:-)
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 402851 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe