最近寫的代碼出了點問題，主要是在用format轉換日期格式的時候拋了異常，錯誤代碼如下：

sheetDetail.Cells(i, LINENUM).Value = Format(dataValidityArr(6)).Value, "yyyymmdd")

查看數據的時候發現，有些日期原始數據就已經是yyyymmdd的格式了，所以再進行format轉換就異常了。
修改如下：

If IsDate(dataValidityArr(6)).Value) ThensheetDetail.Cells(i, LINENUM).Value = Format(dataValidityArr(6)).Value, "yyyymmdd") ElsesheetDetail.Cells(i, LINENUM).Value = dataValidityArr(6)).Value End If

用了IsDate來判斷是否是可以進行format轉換的數據。
但是這樣也還是有問題，因為最終生成的數據格式要求是yyyymmdd，如果原始格式為mmddyyyy或者別的稀奇古怪的格式的話，生成出來的就不符合需求。
（數據源格式可變性特別大，所以也沒法限制死某一列單元格的格式為特定日期格式）
姑且還沒有想到什么好辦法，只能先限制客戶的輸入了。
目前試下來，IsDate可以針對以下幾種格式做出True的判斷：

2019-06-13
06-13-2019
2019-06-13
06/13/2019
Jun-13-2019
June-13-2019

而對于以下的格式判斷結果則為False：

20190613
2019.6.13
2019.06.13
06.13.19
06.13.2019

以上。

總結

以上是生活随笔為你收集整理的vba里面的日期数据转换异常（Format error）（使用IsDate方法部分解决）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。