VBA如何获取当前用户应用程序数据文件夹的路径？

Question

一般来说，

使用VBA，如何确定当前用户应用程序数据文件夹的位置？

FileSystemObjects特殊文件夹只知道3个文件夹

• WindowsFolder
• SystemFolder
• TemporaryFolder

具体来说，我需要一个Word宏来将文件复制到Application Data文件夹下的文件夹中。

e.g。在VB.Net中，我可以使用My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData来执行此操作

Answer 1

您可以使用Environ("AppData")来获取此路径。 Environ将提取任何系统变量，可以在DOS提示符下使用set命令找到它。

Answer 2

使用advapi32.dll，您可以通过

获取USERPROFILE

Environ("USERPROFILE")

将其与“Application Data”目录（具有标准的特定名称）连接以获得您想要的内容

CStr(Environ("USERPROFILE") & "\Application Data")

有关详细信息，请查看MSDN