在VBA Excel 2003中获取“我的文档”文件夹的独立语言方法

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (31)

我需要一种独立于语言的方法来获取VBAExcel 2003中的“我的文档”文件夹。

我所拥有的:

Public Function MyDocsPath() As String
    MyDocsPath = Environ$("USERPROFILE") & "\My Documents\"
End Function

因为该程序将在至少2个LANG MS Windows中使用,并且“My Document”的名称对每种语言都有更改。

有没有办法,或者我应该尝试找出系统朗,并变得具体?

提问于
用户回答回答于

这可能适合:

Set WshShell = CreateObject("WScript.Shell")
strDocuments = WshShell.SpecialFolders("MyDocuments")

虽然特殊文件夹名是MyDocuments,但它引用了Windows的几个版本的Documents文件夹。

扫码关注云+社区