Поместите текстовое содержимое сайта в переменную vba Excel

Эта функция неверна:

Function UUID() As String
    UUID = Workbooks.OpenText("https://www.uuidgenerator.net/api/version1") 'Compile Error: Expected Function Or Variable
End Function

Какой правильный синтаксис?

Источник

2 ответа

Решение

Во-первых, вам нужно добавить ссылку на ваш проект в VBA, чтобы предоставить вам доступ к MSXML:

  1. Microsoft XML, v 3.0.
  2. Microsoft XML, v 4.0 (если вы установили MSXML 4.0 отдельно).
  3. Microsoft XML v 5.0 (если вы установили Office 2003 - 2007, который предоставляет MSXML 5.0 для приложений Microsoft Office).

  4. Microsoft XML, v 6.0 для последних версий MS Office.

    Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String

myurl = "http://requestb.in/15oxrjh1" //replace with your URL

xmlhttp.Open "GET", myurl, False

xmlhttp.Send

MsgBox(xmlhttp.responseText)
Источник

Спасибо ttaylor1218:

Function UUID(Version As Integer) As String
    Dim HTTP As Object
    Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    HTTP.Open "GET", "https://www.uuidgenerator.net/api/version" & Version, False
    HTTP.Send
    UUID = Replace(HTTP.ResponseText, vbCrLf, "")
End Function
Источник
Другие вопросы по тегам