主题：excel 导出格式设置

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dpth & "导出数据.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Range("A:A").NumberFormat = "yyyy-m-d" '日期
Ws.Range("C:C").NumberFormat = "yyyy-m-d h:mm:ss"  '时间
App.Visible = true