vba excel 2010 Environ(“username”) ne fonctionne pas dans saveas filepath

Pour une raison que je peux obtenir la Boîte de Message pour me dire ce que le nom d'utilisateur est, mais il ne fonctionne pas de la même manière dans le enregistrer en tant que chemin d'accès. Je reçois un "Impossible de trouver le chemin d'erreur".

Pas sûr de la façon de résoudre ce problème. J'ai aussi regardé les références, et ils semblent comme ils sont corrects.

Si je change le chemin d'accès pour inclure le nom d'utilisateur existant par ordinateur, la macro fonctionne très bien. Mais j'ai besoin de ce global macro pour n'importe quel utilisateur de l'ordinateur. Toute aide serait grandement appréciée.

Voici ce que j'ai:

Sub SAVEAS_2010()
'
' SAVEAS_2010 Macro
MsgBox Environ("username")

Dim UserName As String
UserName = Environ("username")

ChDir "C:\Users\" & UserName & "\Dropbox\Open Machine Schedule"
ActiveWorkbook.SaveAs FileName:= _
    "C:\Users\" & UserName & "\Dropbox\Open Machine Schedule\Open Machine Schedule - Current_2.xlsx" _
    , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
J'ai aussi essayé de remettre le Environ("username") dans le chemin d'accès à pas de chance. Je reçois toujours le même message d'erreur, impossible de trouver le chemin.
Ce n' Debug.Print Dir("C:\Users\" & UserName & "\Dropbox\Open Machine Schedule", vbDirectory) vous donner?
Désolé, l'un de mes variable a été incompatibles. J'ai couru le Débogage.Imprimez à nouveau et il n'a pas d'imprimer quoi que ce soit. Je viens d'obtenir le même moment de l'exécution de 76 Chemin de l'erreur de ne pas trouvé. Puis il met en évidence la ChDir ligne lorsque je Debug. Même qu'avant.
Tout indique que ce répertoire n'existe pas...
Mais il existe. Comme je l'ai dit quand j'ai changer le "& nom d'utilisateur & "le véritable nom d'utilisateur de la personne connecté pour exemple ~\Users\John Smith\Dropbox\Ouvrir la Machine de l'Annexe" il fonctionne très bien. C'est ma toute confusion, ce fut une macro enregistrée, et la seule chose que j'ai changé, c'est la Environ("username") de la partie.

OriginalL'auteur cheapkid1 | 2014-01-13