Fügen Sie den Textinhalt einer Website in eine Variable vba Excel ein

999
Riccardo La Marca

Diese Funktion ist falsch:

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

Was ist die richtige Syntax?

-2
Wie lautet die genaue Fehlermeldung und was erwarten Sie davon? Jeff Zeitlin vor 6 Jahren 0
Kompilierungsfehler: Erwartete Funktion oder Variable Riccardo La Marca vor 6 Jahren 0
Das sagt Ihnen, dass `Workbooks.OpenText ()` keine Funktion oder Variable ist. Vermutlich soll es eine Funktion sein; wo ist es definiert? Diese Art von Frage wird in [also] wahrscheinlich besser gestellt, aber Sie müssen viel mehr Informationen und ein minimales, vollständiges und überprüfbares Beispiel angeben, da sie sonst geschlossen werden. Jeff Zeitlin vor 6 Jahren 1
Wenn ich in Stackoverflow auf "Fragen" klicke, erhalte ich eine Meldung mit der Nachricht: "Sie haben Ihr Fragelimit erreicht" Riccardo La Marca vor 6 Jahren 0
Beispiel dafür gibt es leider nicht, ich möchte einfach Textinhalt einer URL in eine Variable einfügen. Riccardo La Marca vor 6 Jahren 0
Woher hast du diesen Code? Ist das dein ganzer Code? Wenn ja, woher kommt `Workbooks.OpenText ()`? Sie müssen eine ganze Reihe weiterer Informationen bereitstellen, bevor Sie nützliche Unterstützung erhalten können - unabhängig davon, ob Sie sich hier oder auf StackOverflow befinden. Jeff Zeitlin vor 6 Jahren 1
Das ist mein vollständiger Code. Die Funktion wird von einer Zelle aufgerufen. Riccardo La Marca vor 6 Jahren 0
Was versuchen Sie auch mit OpenText () zu tun? Öffnen Sie die URL in einem Browser. Haben Sie eine Funktion namens "OpenText"? Das musst du posten. Wenn dies der * einzige * Code ist, wird eine Fehlermeldung angezeigt, weil "OpenText ()" nicht vorhanden ist. BruceWayne vor 6 Jahren 0
Ich versuche, den Inhalt einer Website in eine Variable zu bringen Riccardo La Marca vor 6 Jahren 0
Wenn Sie bei StackOverflow nicht fragen dürfen, weil Sie Ihr Fragenlimit erreicht haben, sollten Sie den [vollständigen Leitfaden zur Begrenzung der Rate] (https://meta.stackexchange.com/questions/164899/the-complete-rate) anzeigen -limiting-guide). Jeff Zeitlin vor 6 Jahren 0
Ich stelle schon lange ein paar Fragen. Ich habe in fast einem Jahr insgesamt 11 Fragen gestellt. Riccardo La Marca vor 6 Jahren 0
Dies scheint extrem breit zu sein. Was versuchst du genau zu bekommen. "Inhalt einer Website" können die darin enthaltenen Bilder, HTML, bestimmte Elemente usw. sein. FYI [`OpenText ()`] (https://msdn.microsoft.com/de-de/vba/excel- vba / articles / workbooks-opentext-method-excel) bezieht sich auf Dateien und nicht auf Websites. BruceWayne vor 6 Jahren 0
Ich versuche, den Textinhalt einer Website in eine Variable zu bringen Riccardo La Marca vor 6 Jahren 0
Ich habe den Titel der Frage geändert, ich hoffe, dass die Informationen ausreichen. Riccardo La Marca vor 6 Jahren 0

2 Antworten auf die Frage

1
ttaylor1218

Zunächst müssen Sie einen Verweis auf Ihr Projekt in VBA hinzufügen, um Zugriff auf MSXML zu erhalten:

  1. Microsoft XML, Version 3.0.
  2. Microsoft XML, Version 4.0 (wenn Sie MSXML 4.0 separat installiert haben).
  3. Microsoft XML, Version 5.0 (falls Sie Office 2003 - 2007 mit MSXML 5.0 für Microsoft Office-Anwendungen installiert haben).

  4. Microsoft XML, v 6.0 für neueste Versionen von 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)
0
Riccardo La Marca

Danke 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

Verwandte Probleme