如何在vba中将字符串定义为目录答案

【问题标题】：how to define a string as a directory in vba如何在vba中将字符串定义为目录
【发布时间】：2020-06-28 15:01:09
【问题描述】：

我需要设置一个目录，但我需要它是可变的。在下面的示例中，我想使用我的电子邮件主题名称创建一个文件夹。然后设置创建文件夹的路径。
使用下面的脚本，它不会将我的电子邮件保存到我创建的文件夹中。你能帮忙吗？

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

【问题讨论】：

欢迎来到 Stack Overflow。您尝试做的事情总是会有问题，因为您不能依赖电子邮件主题是“安全的” - 例如，如果它包含反斜杠字符或引号怎么办？
是的，你可以，你能展示更多你的代码或完整的代码吗...

标签： vba outlook

【解决方案1】：

谢谢大家，我找到了办法。如果有更好的方法，请给我您的意见，我将不胜感激。

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

【讨论】：

就在 MkDir 创建一个 staticNow = Now 之前。用 staticNow 替换代码中的 Now。