html - 确定浏览器将下载文件、excel 和 VBA 的位置

Question

首先，我承认这应该很容易，但我只是没有看到答案。

我从一个我无法控制的网站获取信息。该网站在页面上选择一些选项后，将下载一个 CSV 文件。我已经准备好下载。

dim IE as InternetExplorer

dim doc as HTMLDoc

' setup the page

' get page to generate CSV

' now i need to go find the file and read it in

' Where is it?

我知道我可以创建一个对话框并要求用户导航到该文件。但是，我正在与不具备计算机知识的人打交道，并要求他们查找文件效果不佳。

我知道 %homedir %homepath\downloads 应该是正确的，但我忘记了如何根据这些变量创建路径。另外，我并不肯定这总是正确的，所以我想要一种方法来询问浏览器它将在哪里存储文件。

Answer 1

接受的答案不正确。
只有在 IE(7,9,11)->Settings->View Downloads->Options->Default Download Location 中没有更改默认下载位置时才会正确。
接受的答案甚至不提供 Windows 下载位置或
浏览器下载位置(根据主题标题中的要求。)
HomeDrive 和用户 Home Drive 也可能不是一回事
正如您从下面的输出中看到的那样，Windows 下载文件夹与 IE 下载文件夹不同，并且主驱动器不同
从用户的家庭驱动器(配置文件):
先预定义这个函数:

    Public Function RegKeyRead(s_RegKey As String) As String
      Dim myWS As Object
        On Error Resume Next
        Set myWS = CreateObject("WScript.Shell")   'access Windows scripting
        RegKeyRead = myWS.RegRead(s_RegKey)        'read key from registry
    End Function

在 VBA 中立即测试 (Ctrl + G)

    print Environ("HomeDrive")    
    'C:

    print Environ("UserProfile")   
    'C:\Users\UserName

    print RegKeyRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Default Download Directory")
   'D:\TmpStorage\IEDownLoads

    print RegKeyRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\{374DE290-123F-4565-9164-39C4925E467B}")
    '%UserProfile%\Downloads