Excel VBA活动Windows目录路径并重命名文件

Question

我正在制作一个脚本，可以从Internet下载文件。 我将其工作到可以下载文件并在Windows目录中打开它的部分。

我需要知道该目录的位置，以便可以更改名称并将其保存到其他位置。

ie.document.getElementByID("FactuurnummerTextBox").Value = Decl


ie.document.getElementByID("zoekenOpDeclaratiedetailsButton").Click

Do While .busy
    DoEvents
Loop

Do While .readystate <> 4
    DoEvents
Loop

ie.document.getElementByID("btnSelectDeclaratie").Click

Do While .busy
    DoEvents
Loop

Do While .readystate <> 4
    DoEvents
Loop

ie.document.getElementByID("DownloadImage").Click

Do While .busy
    DoEvents
Loop

ie.document.Focus

Application.Wait (Now() + TimeValue("0:00:01"))

ie.document.Focus


ie.findWindowEx(ie.document, 0, "View Downloads - Internet Explorer",       vbNullString).Click

SendKeys "{TAB}", True
SendKeys "~", True

然后出现另存为窗口。

（对发送键感到抱歉。...下载程序的通知栏有问题）