Environ功能不支持在D盤中的My Documents中動態保存文件？

Question

我有一些最適合我機器的代碼行，因爲我在C盤中有「我的文檔」目錄。現在我已經得到了一臺新的筆記本電腦，其中我的宏不起作用，因爲這裏的目錄在D盤。下面是我的代碼： 如果沒有，那麼ThisWorkbook.Saved

If MsgBox("Do you want to save the Output to My Documents?", vbYesNo, "Successful!!") = vbYes Then 

     ActiveWorkbook.SaveAs Environ$("UserProfile") & "\Documents\" & _ 
     "Abandoned Projects - Bridge Request" & " - " & Format(Date, "(DD-MMM-YY)") & ".xlsx", FileFormat:= _ 
     xlOpenXMLWorkbook, CreateBackup:=False 

     MsgBox "Output is saved to " & "My Documents!", vbInformation, "Finishing..." 
    End If 

End If 

我覺得「ENVIRON」功能採取默認的目錄爲C驅動器，它的問題。我該如何做這項工作？

請幫幫忙，我想這一點，因爲2天:(

最佳， Keyur帕雷克

Answer 1

您可以從WScript.Shell.SpecialFolders得到這樣的：

Dim docPath As String 
With CreateObject("WScript.Shell") 
    docPath = .SpecialFolders("MyDocuments") 
End With 

Debug.Print docPath