Excelmacros来validationCSV字段格式

我正在写一个macros来读取CSV文件，其中有一个名为systemdate的字段可用，并且该字段的格式是“yyyy-mm-dd hh：mm：ss.0”。

因此，在阅读CSV时，我需要检查字段值以查看它是否处于上述格式。

例如，如果字段值是2017-04-18 12：56：32.0那么它是正确的。 如果没有，那么它应该抛出一个错误。

Answer 1

使用NumberFormat来确定它。 如果您的范围在单元格A1中以检查它，请使用：您可以根据需要更改该范围。

Sub check_Format() Dim chk As String chk = NUMFormat(Range("A1")) If chk = "yyyy-mm-dd hh:mm:ss.0" Then MsgBox "Format OK" Else MsgBox "Format Not OK" End If End Sub Function NUMFormat(r As Range) NUMFormat = r.NumberFormat End Function 

以前的函数可以用来直接在单元格中检查格式。 比如在B1写：

 =NUMFormat(A1)