Question

我正在寻找一个可以帮助我将文件名与预先指定的格式匹配的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

请更改格式功能，如下所示：

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

使用正确/准确的日期＆amp;时间而不是现在（）。

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

1 个答案: