Анекдот в форме

[Demetros]

Добрый вечер всем! Сегодня нашел код для вставки случайного анекдота на вэб страничку:

<script type="text/javascript" src="http://www.anekdot.ru/rss/randomu.html" charset="utf-8"></script>

Можно ли как-то этот код прикрутить к форме VBA в экселе?
Игорь, если можно, то как?

[IgorGO]

1. нужно иметь список анекдотов (файл, вэб страницу, базу данных)
2. нужно из списка получить случайный анекдот

когда есть ответ на п.1, то п.2 - это как два байта отослать

[Demetros]

это все уже есть, этот код отображает случайный анекдот с адреса анекдот.ру
открой вложенный файл в браузере, обнови несколько раз.

[IgorGO]

http://www.anekdot.ru - вижу страницу с анекдотами
http://www.anekdot.ru/rss/randomu.html - вижу хрень какую-то

я могу решить конкретную задачу, и не готов решать ребусы типа
http://www.anekdot.ru/rss/randomu.html - а угадай-ка, где здесь анекдот

ребусы в другой ветке форума, пишите туда

[EducatedFool]

1) прогружаем исходный код веб-страницы по ссылке
http://excelvba.ru/code/GetHTTPResponse
(сразу с перекодировкой в UTF-8)

2) берем текст из результата

Function NewAnekdot() As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", "http://www.anekdot.ru/rss/randomu.html?rnd=" & Rnd() * 100000, False
        .Send
        With CreateObject("ADODB.Stream")
            Filename$ = Environ("tmp") & "\response.txt"
            .Charset = "utf-8": .Type = 1        ' adTypeBinary:
            .Open: .Write oXMLHTTP.ResponseBody
            .SaveToFile Filename$, 2
            .Type = 2        'adTypeText
            .LoadFromFile Filename$
            NewAnekdot = .ReadText
            .Close
        End With
    End With
    NewAnekdot = Split(NewAnekdot, "['")(1)
    NewAnekdot = Split(NewAnekdot, "']")(0)
    NewAnekdot = Replace(NewAnekdot, "<br>", vbNewLine)
    NewAnekdot = Replace(NewAnekdot, "','", vbNewLine & "==============" & vbNewLine)
    Set oXMLHTTP = Nothing
End Function

Sub test() ' запускайте этот макрос
    MsgBox NewAnekdot
End Sub

Пробуйте

[Demetros]

EducatedFool, все работает, спасибо!

[Demetros]

Сообщение от IgorGO

http://www.anekdot.ru - вижу страницу с анекдотами
http://www.anekdot.ru/rss/randomu.html - вижу хрень какую-то

я могу решить конкретную задачу, и не готов решать ребусы типа
http://www.anekdot.ru/rss/randomu.html - а угадай-ка, где здесь анекдот

ребусы в другой ветке форума, пишите туда

работает, однака...

[Demetros]

немного переделал