主题：帮我看看导出excel

我现在已经实现了：
Dim Book As New XLS.Book(ProjectPath & "Attachments\设备一览表.xls")
Dim fl As String = "E:\Desktop\设备一览表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

如何把使用年限添加到上面，我一添加就报错
    Dim d As Double = dt.Rows(r)("使用年限")
    Sheet(r + 1,dt.Cols("使用年限").Index).value = d \ 365 & "年" & (d Mod 365) \ 30 & "月"
   

错误提示是什么？

 

通常必须在Build之后，定义Sheet，然后设置单元格内容：

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\设备一览表.xls")
Dim fl As String = "E:\Desktop\设备一览表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(10，10).value = “内容”
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 

 

报什么错误？

Dim dt As Table = Tables("南京徳亨文生物科技有限公司设备一览表")
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
dt.SaveExcel("E:\Desktop\南京徳亨文生物科技有限公司设备一览表.xls",)
Dim Book As New XLS.Book(ProjectPath & "Attachments\南京徳亨文生物科技有限公司设备一览表.xls","abc",flg)
Dim Sheet As XLS.Sheet = Book.Sheets("abc") '引用工作簿的第一个工作表

Dim Style As Xls.Style
style = Book.NewStyle '新建一个样式
Style.ForeColor = Color.Red
style.FontBold = True '样式的背景颜色设为红色
Dim Style1 As Xls.Style
style1 = Book.NewStyle '新建一个样式
Style1.BackColor = Color.yellow
style1.BorderBottom = XLS.LineStyleEnum.Thin
style1.Bordertop = XLS.LineStyleEnum.Thin
style1.Borderleft = XLS.LineStyleEnum.Thin
style1.Borderright = XLS.LineStyleEnum.Thin

style1.FontBold = True '样式的背景颜色设为红色

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
    
    
    If dt.Rows(r)("中心") = "公共设施" OrElse dt.Rows(r)("中心") = "离职" Then
        For c As Integer = 0 To dt.Cols.Count -1
            Sheet(r +1, c).style = style1
        Next
    End If
    If dt.rows(r)("内存") =  "2G"  Then '如果折扣大于等于0.15
        Sheet(r + 1,dt.Cols("内存").Index).Style = Style '设置折扣单元格的样式
    End If
    If dt.Rows(r)("生产日期").year = 2008 OrElse dt.Rows(r)("生产日期").year = 2008 OrElse dt.Rows(r)("生产日期").year = 2008 Then
        Sheet(r + 1,dt.Cols("生产日期").Index).Style = Style '设置折扣单元格的样式
    End If
    If dt.Rows(r)("使用年限") / 365 >= 5 Then
        Sheet(r + 1,dt.Cols("使用年限").Index).Style = Style '设置折扣单元格的样式
    End If
    Dim d As Double = dt.Rows(r)("使用年限")
    Sheet(r + 1,dt.Cols("使用年限").Index).value = d \ 365 & "年" & (d Mod 365) \ 30 & "月"
    
Next

book.Save("E:\Desktop\南京徳亨文生物科技有限公司设备一览表.xls")
Dim proc As new Process
proc.File = "E:\Desktop\南京徳亨文生物科技有限公司设备一览表.xls"
proc.Start

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

点击浏览该文件:南京徳亨文生物科技有限公司设备一览表.rar

此主题相关图片如下：qq截图20160318111502.png

代码走神，串道了
dt.SaveExcel("E:\Desktop\南京徳亨文生物科技有限公司设备一览表.xls","abc",flg)

此主题相关图片如下：qq截图20160318114228.png

顶部标题和字段没有了

 添加列标题应该是模板里面现在的标题，只要填入数据就可以了。这个怎么设置

1、学习excel模板

 

2、要不就直接用vba导出 http://www.foxtable.com/help/topics/2121.htm