ChDir (Environ("USERPROFILE") & "\Desktop") 运行-时间错误'76'

Question

我收到运行时间错误“76”：在 VBA 中找不到路径。这曾经对我有用，我最近唯一改变的是将我的文件夹添加到 Onedrive（我觉得这可能是原因）。

ChDir (Environ("USERPROFILE") & "\Desktop")

当我使用 Immediate window 时，我可以在那里毫无问题地打印路径，但是我正在获取我的公司域，如下所示。我不明白为什么不被宏处理。有人可以帮我解决这个问题吗？

print(Environ("USERPROFILE") & "\Desktop")
C:\Users\myname.DOMAIN\Desktop

Answer 1

我无法在我的机器上重现该问题，但您可以尝试此解决方法，它会在 [first] 期间后删除任何内容...

Dim sProfile As String
Dim vSplit As Variant
sProfile = Environ("USERPROFILE")
vSplit = Split(sProfile, ".")
sProfile = vSplit(0)

MsgBox sProfile & "\Desktop"

ChDir (Environ("USERPROFILE") & "\Desktop") 运行-时间错误'76'

ChDir (Environ("USERPROFILE") & "\Desktop") Run-time error '76'

vba

onedrive