vba - 附件下载文件格式filename&ddmm

Question

附件被下载并保存到目标文件夹，实际上是文件名+今天的日期和月份（例如 stat2909、repo2909），我想在我的脚本中添加它以下载附件，以便它只下载今天的日期文件。我如何添加这个Dim strDate As String, strDate = Format(Now(), "ddmm")我试过If UCase(Atmt.FileName) Like "stat& strDate" Or _ 但失败了。我怎么做？

现在我正在使用它来下载附件

For Each Atmt In item.Attachments
If UCase(Atmt.FileName) Like "stat*" Or _
UCase(Atmt.FileName) Like "repo*" Then

Answer 1

只有微小的错误：

代替

如果 UCase(Atmt.FileName) Like "stat& strDate" 'here '& strDate' 部分仍然是文本的一部分...

你需要

If UCase(Atmt.FileName) Like "stat" & strDate ' 假设 strDate 之前已经填满。

最大限度