更改号码时，ACCESS VBA日期格式会发生变化

Question

我有一个小的vba代码可以从访问excel导出。我在代码中对数字数据类型进行了格式化，这也改变了我的日期格式。我不知道日期格式的语法。有人可以帮帮我吗。

供您参考，

 For lvlcolumn = 0 To recsetnxair.Fields.Count - 1
     wrksheetnxair.Cells(1, lvlcolumn + 1).Value = _
                                recsetnxair.Fields(lvlcolumn).Name
     wrksheetnxair.Cells(1, lvlcolumn + 1).EntireColumn.NumberFormat = sFromat        
 Next lvlcolumn

此代码适用于数字，现在我也需要日期。

此致 Jeeva

Answer 1

我使用dbInteger或dbDouble各自的字段类型格式化了用户定义的格式。

此致 Jeeva