用特定格式检查文件名的VBA代码

我正在寻找一个vba代码，可以帮助我匹配一个预先指定的格式的文件名。 如果它不符合格式，我希望它为单元格着色。 例如：我的格式是alrt_OBU_PW_YYYYMMDD_HHMMSS.txt如果我使用application.getopenfilename浏览的文件不符合这种格式，它应该给我一个错误。

谢谢！

这是我迄今为止所做的 –

我已经将文件名复制到一个单元格中。

 FileName = Sheets("Control Sheet").cells(2, "F").Value If FileName = Format("alrt_OBU_PW_" & Format("yyyymmdd") & "_" & Format("hhmmss") & ".txt") Then wqI.range("G21").Interior.ColorIndex = 43 Else: wqI.range("G21").Interior.ColorIndex = 3 End If 

Answer 1

请使用下面的格式化function：

 Format("alrt_OBU_PW_" & Format(Now(), "yyyymmdd") & "_" & Format(Now(), "hhmmss") & ".txt" 

使用正确的/确切的date和时间，而不是现在（）。