- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 狐表TABEL中数据导出EXCEL日期列不正常 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92842)
-- 发布时间：2016/11/14 19:17:00
-- 狐表TABEL中数据导出EXCEL日期列不正常
将狐表TABEL中数据导出EXCEL，日期列不能正常显示日期，而是显示为整数，要手动转换才行，怎么改？求助~
另外，能否自定义标题列？
-- 发布时间：2016/11/14 19:42:00
--
此主题相关图片如下：导出excel_01.png
-- 发布时间：2016/11/15 9:05:00
--
你可以用excel模板导出，参考
http://www.foxtable.com/webhelp/scr/2877.htm
-- 发布时间：2016/11/15 9:08:00
--
参考：
http://www.foxtable.com/webhelp/scr/1392.htm
-- 发布时间：2016/11/16 17:56:00
--
手动更改为日期格式，这个我也会，但是能不能导出时就改为日期格式呢
-- 发布时间：2016/11/16 18:01:00
--
vba：http://www.foxtable.com/webhelp/scr/2121.htm
NumberFormat
单元格格式是通过NumberFormat或NumberFormatLocal属性来完成的。例如：
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Range("A1").NumberFormat = "G/通用格式" \'通用格式
Ws.Range("B1").NumberFormat = "0_ " \'数值
Ws.Range("C1").NumberFormat = "#,##0.00_);[红色](#,##0.00)" \'货币
Ws.Range("D1").NumberFormat = "_ * #,##0.00_;_ * -#,##0.00_ ;_ * ""-""??_ ;_ @_ " \'会计专用
Ws.Range("E1").NumberFormat = "yyyy-m-d" \'日期
Ws.Range("F1").NumberFormat = "h:mm:ss" \'时间
Ws.Range("G1").NumberFormat = "0.00%" \'百分比
Ws.Range("H1").NumberFormat = "# ?/?" \'分数
Ws.Range("I1").NumberFormat = "0.00E+00" \'科学记数
Ws.Range("J1").NumberFormat = "@" \'文本
App.Visible = True
单元格格式是通过NumberFormat或NumberFormatLocal属性来完成的。例如：
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Range("A1").NumberFormat = "G/通用格式" \'通用格式
Ws.Range("B1").NumberFormat = "0_ " \'数值
Ws.Range("C1").NumberFormat = "#,##0.00_);[红色](#,##0.00)" \'货币
Ws.Range("D1").NumberFormat = "_ * #,##0.00_;_ * -#,##0.00_ ;_ * ""-""??_ ;_ @_ " \'会计专用
Ws.Range("E1").NumberFormat = "yyyy-m-d" \'日期
Ws.Range("F1").NumberFormat = "h:mm:ss" \'时间
Ws.Range("G1").NumberFormat = "0.00%" \'百分比
Ws.Range("H1").NumberFormat = "# ?/?" \'分数
Ws.Range("I1").NumberFormat = "0.00E+00" \'科学记数
Ws.Range("J1").NumberFormat = "@" \'文本
App.Visible = True
-- 发布时间：2016/11/16 18:57:00
--
以下是引用jeavichen在2016/11/16 17:56:00的发言：
手动更改为日期格式，这个我也会，但是能不能导出时就改为日期格式呢
手动更改为日期格式，这个我也会，但是能不能导出时就改为日期格式呢
3、4楼的意思是，叫你弄成excel模板的方式导出。