VBA-Code zum Überprüfen des Dateinamens mit einem bestimmten Format

Ich war auf der Suche nach einem VBA-Code, der mir helfen könnte, einen Dateinamen an ein vorgegebenes Format anzupassen. Ich möchte, dass eine Zelle rot gefärbt wird, wenn sie nicht mit dem Format übereinstimmt. Für zB: mein Format ist alrt_OBU_PW_YYYYMMDD_HHMMSS.txt Wenn die Datei, die ich mit application.getopenfilename browse passt nicht dieses Format, sollte es mir einen Fehler geben.VBA-Code zum Überprüfen des Dateinamens mit einem bestimmten Format

Danke!

Hier ist, was ich bis jetzt-

getan habe ich den Dateinamen in eine Zelle kopiert haben.

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

Quelle

2016-08-26 tuls

Bitte zeigen Sie uns, was Sie bereits getan haben? – kotoj

Ich habe den Dateinamen in eine Zelle eingefügt.FileName = Sheets ("Control Sheet"). Zellen (2, "F"). Wert Wenn FileName = Format ("alt_OBU_PW_" & Format ("yyyymmdd") & "_" & Format ("hhmmss") & ".dat") Dann wqI.range ("G21"). Interior.ColorIndex = 43 Sonst: wqI.range ("G21"). Interior.ColorIndex = 3 – tuls

Ich bin sehr neu zu VBA, so entschuldigen Sie alle Fehler – tuls

Bitte geben Sie die Funktion Format ändern mit wie unten ein:

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

Korrekte/genaues Datum & Zeit statt Now().

Quelle

2016-08-26 11:00:50

Ich möchte nicht hart das Datum und die Zeit als sie codieren wird sich verändern. – tuls

VBA-Code zum Überprüfen des Dateinamens mit einem bestimmten Format

Antwort

Verwandte Themen