用於檢查特定格式文件名的VBA代碼

我在尋找一個vba代碼，可以幫助我將文件名與預先指定的格式進行匹配。如果它與格式不匹配，我希望它爲單元格着色。例如：我的格式是alrt_OBU_PW_YYYYMMDD_HHMMSS.txt 如果我使用application.getopenfilename瀏覽的文件不符合此格式，它應該給我一個錯誤。用於檢查特定格式文件名的VBA代碼

謝謝！

這裏是我做了什麼，直到NOW-

我已經複製文件名到細胞中。

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

來源

2016-08-26 tuls

請告訴我們你已經做了什麼？ – kotoj

我已經將文件名粘貼到cell.FileName = Sheets（「Control Sheet」）。cells（2，「F」）。Value If FileName = Format（「alrt_OBU_PW_」＆Format（「yyyymmdd」）＆「_」＆格式（「hhmmss」）＆「.dat」）然後 wqI.range（「G21」）。Interior.ColorIndex = 43 否則：wqI.range（「G21」）。Interior.ColorIndex = 3 – tuls

我很新到VBA，所以原諒任何錯誤 – tuls

請像下面一個改變格式功能：

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

使用正確的/確切日期&時間，而不是現在（）。

來源

2016-08-26 11:00:50

我不想硬編碼的日期和時間，因爲他們會改變。 – tuls

用於檢查特定格式文件名的VBA代碼

回答

相關問題