2016-12-27 66 views
0

我需要設置一個目錄,但我需要它是可變的。 在下面的例子中,我想創建一個名爲我的電子郵件主題的文件夾。然後將路徑設置爲創建的文件夾。
以下腳本它不會將我的電子郵件保存到我創建的文件夾。你能幫忙嗎?如何在vba中定義一個字符串作爲目錄

N1 = oMail.Subject 
On Error Resume Next 
MkDir "C:\Users\meti\Desktop\E" & N1 
On Error GoTo 0 

sPath = "C:\Users\meti\Desktop\E" & N1 
Debug.Print sPath & sName 
oMail.SaveAs sPath & sName, olMSG 
+0

歡迎來到Stack Overflow。你試圖做的事總會有問題,因爲你不能依賴一個電子郵件主題是'安全的' - 例如,如果它包含反斜槓字符或引用? – Mikkel

+0

是的,你可以,你可以展示更多的代碼或完整的代碼,請... – 0m3r

回答

0

感謝所有,我找到了一種方法。如果有更好的方法,請給我你的評論,我會很感激。

On Error Resume Next 
MkDir "C:\Users\mwx391225\Desktop\Email" & Format(Now, "dd-mmm-yy h-mm") 
On Error GoTo 0 

sPath = "C:\Users\mwx391225\Desktop\Email" & Format(Now, "dd-mmm-yy h-mm") & "\" 
Debug.Print sPath & sName 
oMail.SaveAs sPath & sName, olMSG 
+0

在MkDir之前創建一個staticNow = Now。用靜態代碼替換您的代碼。 – niton

相關問題