主题：合并导出数据到excel格式设置求助

如题 用以下这种方式导出数据

    Dim dt As Table = Tables("空滤制品明细表")
    dt.Filter =  flt2
    Dim Book As New XLS.Book '定义一个Excel工作簿
    If dt.Rows.Count > 0 Then
        Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
        sheet.name ="库存表"
        For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
            Sheet(0, c).Value = dt.Cols(c).Name
        Next
        For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
            For c As Integer = 0 To dt.Cols.Count -1
                Sheet(r +1, c).Value = dt.rows(r)(c)
            Next
        Next
    End If

    Book.Save( dpth & "导出数据.xls")

在保存数据的时候

1如何 设置导出数据 的日期列 为  datelongtime 格式  ，

2如何使到 导出的数据  的列宽 为最合适状态 （像EXCEL里面双击列 ，自动拉伸到最合适位置）