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

Question

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

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

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

Answer 1

Во-первых, вам нужно добавить ссылку на ваш проект в 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)
   

Answer 2

Спасибо 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