Javascript Excel VBA登录网站并获取一些文件

我想登录到Simatic面板的Webinterface。 下一步应该获取Errorarchiv.csv文件 我想打开它们并获取错误日志。 使用另一个宏，我将对它们进行排序-->这很有效

<form style="padding:0px; margin:0px; border:0px; background:#b8b8ff"
method="POST"
id="LoginForm"
name="LoginForm"
action="/FormLogin"><table width="116" border="0" cellspacing="0" cellpadding="0"><tr><td width="52" height="13" align="right" valign="bottom" style="font-size:10px;">Name</td>
<td width="52"><input name="Login" type="text" style="width:52px;height:13px;margin: 6px 6px 0 6px; padding:0px; border:0px;font-size:10px;"></td></tr>
<tr><td width="52" height="13" align="right" valign="bottom" style="font-size:10px;">Passwort</td><td width="52">
<input name="Token" type="hidden" value="%=Token">
<input name="Redirection" type="hidden">
<input name="Password" type="password" style="width:52px;height:13px;margin:6px 6px 0 6px; padding:0px; border:0px;font-size:10px;"></td></tr>
<tr><td colspan="2" align="right"><input type="submit" value="Login" style="margin:3px 6px 6px 6px; padding:0px; border:0px; font-size:10px; color: #000080; background-color:#b8b8ff;text-decoration:underline;"></td></tr></table></form><script type="text/javascript">
LoginForm.Login.focus();LoginForm.Redirection.value=location.href.split("?Redirection=").pop();
</script>  

---

Adresse&“/Logs/Meldearchiv_20.csv”您能将其传递给吗？它与Application.InternetExplorer一起工作。对于HTTpRequest，它不起作用！我不知道如何调试和发现错误。

Adresse = "http://10.100.200.31/"
 'Explorer auf seite öfnen
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Visible = True
 Ie.navigate Adresse & "StorageCardSD/Logs?UP=TRUE&FORCEBROWSE"
Do While Ie.readyState <> 4
    DoEvents
Loop
On Error GoTo Eingeloggt
 Ie.document.forms(0).elements("Login").Value = "Administrator"
 Ie.document.forms(0).elements("Password").Value = "4311"
 Ie.document.forms(0).submit
Eingeloggt:
'Mehrere Fensterwechsel
Do: Loop Until Ie.Busy = False
Do: Loop Until Ie.Busy = False
Do: Loop Until Ie.Busy = False
Do: Loop Until Ie.Busy = False

<td><img onclick='Open("/StorageCardSD/Logs/Meldearchiv_20.csv")' src="/Images/File.gif"></td>
<td><a href="/StorageCardSD/Logs/Meldearchiv_20.csv?UP=TRUE&amp;FORCEBROWSE">Meldearchiv_20.csv</a></td>
<td>1136 K</td>
<td>-R--A--</td>
<td>Tue May 19 12:13:52 2020</td>
<td><img onclick='Delete("/StorageCardSD/Logs/Meldearchiv_20.csv")' src="/Images/Trash.gif"></td>
</tr>

LoginTxt = "Login=Administrator&Password=4311&submit=true"

Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")

Adresse = "http://10.100.200.31/"
strLogin = Adresse & "StorageCardSD/Logs?UP=TRUE&FORCEBROWSE"

XMLHTTP.Open "Post", strLogin, False
XMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLHTTP.send LoginTxt
XMLHTTP.Open "GET", strLogin, False
XMLHTTP.send