Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Иван Иванов
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Спарсить первую цену на Binance P2P
 
#
12.03.2022 21:34:37
Всем привет!
Пытаюсь записать первую (по первому объявлению) цену в таблицу эксель по данной ссылке. Но мне половину кода страницы вписывает. Подскажите что я делаю не так?
Код
Sub kursy()

Dim n&, k&, i&
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    For i = 2 To 10 Step 1
               ' у меня там не одна ссылка , поэтому в цикле все стоит
    Url = ("https://p2p.binance.com/ru/trade/buy/USDT?fiat=RUB&payment=ТИНЬКОФФ")

    If Url <> "" Then
       XMLHTTP.Open "GET", Url
       XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/96.0.4664.45 Safari/537.36"
       XMLHTTP.SEND
       
           If XMLHTTP.Status = 200 Then
                
                txt = XMLHTTP.responseText
                n = InStr(1, txt, "css-1m1f8hn") + 11
                k = InStr(n, txt, "div>") - 6
                kurs = Replace(Mid(txt, n, k - n), " ", "")
                Cells(i, 2) = kurs
                
                End If
           End If
    Next i
End Sub
 
Перейти    
Перестал реагировать Private Sub на любые изменения
 
#
13.01.2022 00:55:37
Друзья, у меня просто перестал работать этот макрос. Он автоматически вставляет текущую дату если что-то вносят в ячейки а1-а100
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   
       If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  
            With cell.Offset(0, 1)        
               .Value = Now
               .EntireColumn.AutoFit 
            End With
       End If
    Next cell
End Sub
Подскажите в чем может быть дело?? Все перепроверял, и даже тупо копипаст делал в новый файл и ноль реакции. Какие настройки могли поехать? т.к. код точно верный
 
Перейти    
Пропустить ошибку в цикле при отсутствии одной переменной
 
#
09.01.2022 16:53:29
Здравствуйте, подскажите пожалуйста! Как написать цикл так, чтоб при отсутствии данных в переменной kurs (цена бывает отсутствует и тогда ориентира для kurs в виде "price-block__final-price" нет и цикл For останавливается). Подскажите как прописать так, чтоб в таких моментах писало в ячейке "Нет в продаже"  и цикл продолжился дальше, а не останавливался. Заранее благодарю Вас за помощь
Код
Sub цены()

Dim XMLHTTP As Object
Dim url, txt$, kurs$, namme$
Dim n&, k&, i&
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
    For i = 2 To 200 Step 1
    url = Cells(i, 9)
    If url <> "" Then
       XMLHTTP.Open "GET", url
       XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0
       XMLHTTP.SEND
           If XMLHTTP.Status = 200 Then
           
                txt = XMLHTTP.responseText
                n = InStr(1, txt, "text{:product^goodsName}") + 26
                k = InStr(n, txt, "</span>")
                namme = Replace(Mid(txt, n, k - n), " ", "")
                Cells(i, 10) = namme
                
                Txt2 = XMLHTTP.responseText
                n2 = InStr(1, txt, "ProdID") + 11
                k2 = InStr(n2, txt, "  ],")
                art = Replace(Mid(txt, n2, k2 - n2 - 1), " ", "")
                Cells(i, 8) = art
                
                txt = XMLHTTP.responseText
                n = InStr(1, txt, "price-block__final-price") + 27
                k = InStr(n, txt, " ")
                kurs = Replace(Mid(txt, n, k - n), " ", "")
                Cells(i, 7) = kurs
     
           End If
        End If
    Next i
End Sub
 
Перейти    
Пропустить пустые ячейки в цикле For
 
#
09.12.2021 08:39:58
Друзья, помогите!
Не могу никак сделать в макросе так , чтоб переменную url в цикле for пропускал если ячейка пустая или ошибочный url и переходил к следующей строке. Я самоучка, по разным видео и инструкциям сварганил этот код. Не судите строго.
Буду благодарен за помощь



Код
Sub Öåíà_àðòèêóë()
Dim XMLHTTP As Object
Dim url, txt
Dim n&, k&
 
For i = 1 To 200
    url = Cells(i, 21)
    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
 
    XMLHTTP.Open "GET", url
    XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0............" 
    XMLHTTP.SEND
        If XMLHTTP.Status <> 200 Then
                                
        Else
            txt = XMLHTTP.responseText
            n = InStr(1, txt, "price-block__final-price") + 27
            k = InStr(n, txt, " ")
            Price = Replace(Mid(txt, n, k - n), " ", "")
            Cells(i, 19) = Price
            Txt2 = XMLHTTP.responseText
            n2 = InStr(1, txt, "ProdID") + 11
            k2 = InStr(n2, txt, "  ],")
            art = Replace(Mid(txt, n2, k2 - n2 - 1), " ", "")
            Cells(i, 20) = art

        End If
        
        Next i

End Sub
Изменено: Иван Иванов - 09.12.2021 08:41:13
 
Перейти    
Страницы: 1
Наверх