试图使跨项目的Verable

Question

美好的一天！ 我不确定是否有简单的方法可以做到这一点。我有一个加载其他VBA程序的VBA程序。

在每个程序中都有帮助保存文件的代码

myusnm = Environ("Username")
myusnm = Trim(myusnm)
usdir = "C:\Users\" & myusnm & "\Desktop\CDR"
MkDir usdir 'make directory in case it not there
ChDrive usdir 'chage drive
ChDir usdir 'chandge dirctory

现在我们要转到一个驱动器，我需要将其更改为

usdir = "C:\Users\" & myusnm & "\onedrive\Desktop\CDR"

我有36个程序使用此命令。我以为如果将其设置为全局变量，可以将其设置为一个全局变量，然后在加载apple.xlsb或orange.xlbs时，usdir将在brain.xlsb设置usdir后起作用。但事实并非如此。

现在看来，我将不得不手动更改每个程序，但我想知道将来是否有更好的方法来处理此问题。最好先改变一件事然后再改变38次。