主题：格式问题

老师：我按如下代码生存一张表，但某时间列在电子表格里为一堆非时间格式数据(手工调整格式才能恢复），按指南中的调整加入代码好像不行（可能也是我操作有误）。请问在如下代码中如何加上哪些代码，使得生存的时间列在电子表格中为时间格式。

 

 

 

 

Dim tbl As Table = Tables("A")
Dim hdr As Integer = tbl.HeaderRows '获得表头的层数
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet,0,0,False) '生成表头
For c As Integer = 0 To tbl.Cols.Count - 1
    For r As Integer = 0 To tbl.Rows.Count - 1
        sheet(r + hdr,c).value = tbl(r,c)
    Next
Next

 

 

??
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()