主题：[求助]导出EXCLE时间显示不对

日期和时间导出excle为0错误 逻辑列怎样导出勾选？

此主题相关图片如下：报错.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导出excle时间显示不对.zip

 老师，上面的代码和列名对不上，错位1列，上面的代码修改哪里呢？谢谢

单元格样式，狐表的单元格颜色要导出excle

Dim flg As New SaveExcelFlags
flg.CellStyle = True
Tables("订单").SaveExcel("C:\data\test.xls","订单",flg)

上面这个代码怎么加入到下面的代码呢？

'''导出可见表为excle
Dim tbl As Table = Tables("室内设计项目")
Dim hdr As Integer = tbl.HeaderRows '获得表头的层数
Dim cnt As Integer
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet) '生成表头
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.Format = "yyyy-MM-dd" '设置样式的字体颜色

For c As Integer = 0 To tbl.Cols.Count - 1
    If tbl.Cols(c).Visible Then
        If tbl.Cols(c).IsDate Then
            Sheet.Cols(cnt).Style = Style
        ElseIf tbl.Cols(c).IsBoolean Then
            For r As Integer = 0 To tbl.Rows.Count - 1
                If tbl.Rows(r).IsNull(c) = False
                    sheet(r + hdr,cnt).value = IIF(tbl(r,c),"√","")
                End If
            Next
        cnt = cnt + 1
            Continue For
        End If
        For r As Integer = 0 To tbl.Rows.Count - 1
            If tbl.Rows(r).IsNull(c) = False
                sheet(r + hdr,cnt).value = tbl(r,c)
            End If
        Next
        cnt = cnt + 1
    End If
Next

Book.Save("f:\室内设计项目.xls")
Dim Proc As New Process
Proc.File = "f:\室内设计项目.xls"
Proc.Start()

saveExcel以后，打开这个excel，循环每一行、每一个单元格，然后做你需要的各种操作

 

类似代码如下

 

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
    For m As Integer = 0 To nms.Length - 1

    Next
Next

 

表的列太多了，不想用上面的代码方法。主要是想把狐表里面单元格的颜色也导出exlce   这个代码CellStyle = True怎么加入之前的代码

帮助文件，下面的代码又不能导出 打勾的符号

保存订单表，包括行号列和单元格样式：

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\data\test.xls","订单",flg)

 

直接saveExcel以后打开算了

 

Dim tbl As Table = Tables("室内设计项目")
Dim flg As New SaveExcelFlags
flg.CellStyle = True
tbl.SaveExcel("f:\室内设计项目.xls","test",flg)
Dim Proc As New Process
Proc.File = "f:\室内设计项目.xls"
Proc.Start()