Excel VBA自动化汇率更新及自动上传系统开发技术求助

我正尝试开发一套可自动更新汇率并完成上传的自动化系统，目前已编写以下VBA代码：

Dim i As Long
Dim ie As Object
website = "https://www.citycurrencyexchange.co.uk/control/login.php?accesscheck=%2Fcontrol%2Findex.php"
Set ie = CreateObject("InternetExplorer.Application")
With ie
    .Visible = True
    .navigate website
    .resizable = True
End With
While ie.readyState <> 4 Or ie.Busy: DoEvents: Wend
On Error Resume Next
ie.document.getElementById("username").Va...

内容的提问来源于stack exchange，提问作者Xenox Dissanayake