时间戳

首页 > 解决方案 > ChDir (Environ("USERPROFILE") & "\Desktop") 运行时错误 '76'

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

问题描述

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

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

当我使用即时窗口时，我可以在那里毫无问题地打印路径，但是我得到了我的公司域，如下所示。我不明白为什么宏不处理。有人可以帮助指导我摆脱这种情况吗？

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

标签： vbaonedrive

解决方案

我无法在我的机器上复制该问题，但您可以尝试这种解决方法，在 [first] 期间之后删除任何内容......

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

MsgBox sProfile & "\Desktop"

推荐阅读