vba - 使用 VBA 在 url 中保留空格

Question

我正在编写一个 Excel 宏来从我们公司使用的网页中抓取数据。我让它工作了，它会把我带到一个 URL，但我需要把 GET 数据放在 URL 中，它必须有空格。我不知道如何在不将它们转换为 %20 的情况下保留这些空间。

我尝试使用的 GET 数据格式如下:2018 年 8 月 23 日(星期四)

theURL = theBeginning & "?startDate=" & chosenMonth & " " & chosenDay & ", 2018 (" & chosenDate & ")"

截至目前，这将作为 Aug%2023,%202018%20(Thu) 进入浏览器，并在他们的网站上引发错误。

Answer 1

我确信可能有更简单的方法可以做到这一点，但我创建了这个 JavaScript

<form name = "myForm" method = "POST" action = "">
<input type = "text" name = "myURL" id = "myURL" />
</form>
<script>
t1 = window.setTimeout(function redirURL() { window.location = document.getElementById("myURL").value; },1000);
</script>

然后在 VBA 中将我的 URL 传递给它

Dim ieApp As InternetExplorer
Dim ieDoc As Object
Set ieApp = New InternetExplorer
ieApp.Navigate "myJavaScriptPage.htm"
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Set ieDoc = ieApp.Document
With ieDoc.forms(0)
.myURL.Value = theURL
End With
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
With ieDoc.forms(0)
.myURL.Value = theURL

我必须在 JavaScript 中设置至少 1 秒的超时，否则它会在 VBA 填充输入框之前尝试重定向。我将尝试将 URL 复制到剪贴板并粘贴到 IE 的地址栏，但现在这对我有用。