导入时间后全变成00:00:00

此主题相关图片如下:微信截图_20231104120557.png

这个需要怎样设置
这种数据要使用vba导入:
Dim App As New MSExcel.Application
Try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\问题\管理项目1\门卫考勤.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
Dim ary = rg.value
For n As Integer = 2 To rg.Rows.Count
Dim r As Row = Tables("表A").AddNew
r("打卡点") = ary(n, 1)
r("工号") = ary(n, 2)
r("日期") = ary(n, 3)
r("打卡时间") = DateTime.FromOADate(ary(n, 4))
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
app.quit
End Try