Php VBA变量中包含HTML代码。我如何渲染这个？或者如何打开win.http.response文本

我有一个VBA脚本在outlook中运行。 它从电子邮件中获取数据，并将某些元素存储在变量中。 然后，该变量被发布到一个网站，该网站使用php获取变量，并将数据显示在一个表中，供用户检查和处理。 它当前与get请求一起工作。 我需要升级到一个职位，因为我击中了最大长度的一个得到

下面的post脚本将变量发送到服务器，如果我使用http.ResponseText执行MsgBox操作，则会显示网站的HTML以及在网站上呈现的post请求数据

    Dim http As WinHttp.WinHttpRequest
    Dim UrlToPostTo As String, UrlRedirectedTo As String
    UrlToPostTo = "http://removedManually/phpPostDir/index.php"
    Set http = New WinHttp.WinHttpRequest
    http.Open "POST", UrlToPostTo, False
    http.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    Dim data As String
    data = "name1=value1&name2=value2&name3=value3"
    http.Send (data)
    MsgBox http.ResponseText

网页上的PHP：

<?php
    print_r($_POST);
?>

我现在需要做的是在浏览器中打开此ResponseText，以便用户查看和交互

这里显示的数据是一个简单的例子

---

如果有人能想出一个更好的主意，如何将数据从VBA传递到用户使用的网站，那么我很乐意研究它。这是我能想到的最好的方法。

我用以下方法做到了：

    objIE.document.Write response
    Set xmlhttp = Nothing

---

任何人都需要完整的代码：

    Dim objIE As Object, xmlhttp As Object
    Dim response As String

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.navigate "about:blank"
    objIE.Visible = True

    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.Open "POST", "http://158.234.65.113/JSONForm/index.php", False
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.Send finalJSON

    response = xmlhttp.ResponseText
    objIE.document.Write response
    Set xmlhttp = Nothing

---

你的PHP在哪里？你试过什么？预期产量是多少？你现在得到了什么？这个问题目前还不清楚。对不起，php只是一个打印文件（$\u POST）。responseText中发布了数据，但返回到VBA。我需要知道如何呈现此HTML或在浏览器上查看网页，因为HTML代码当前保存在VBA变量中。如果您只是转储所获得的内容，它当然会返回相同的内容。不管怎样，您一直在说“呈现此HTML”。什么HTML？请求中没有HTML。你真的需要更新你的问题，并给我们一个预期输出的例子。您的问题在当前状态下毫无意义。您让PHP将HTML返回到VBA以在浏览器中呈现吗？为什么？怎么做？你能提供一些背景资料吗？这听起来像是有一些非常复杂的事情在这个过程中倒退了几步。请回答您的问题，以添加有关您正试图实现的目标的更多信息。@MagnusEriksson-我打赌是一个“。。。

    Dim objIE As Object, xmlhttp As Object
    Dim response As String

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.navigate "about:blank"
    objIE.Visible = True

    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.Open "POST", "http://158.234.65.113/JSONForm/index.php", False
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.Send finalJSON

    response = xmlhttp.ResponseText
    objIE.document.Write response
    Set xmlhttp = Nothing