将数据导出到Excel

朱利安·桑贾亚(Julian Sanjaya)|

我想将数据从数据表导出到Excel文件中

我得到这个错误

'EmployeeMaster$' is not a valid name. Make sure that it does not include invalid characters or punctuation and that is not too long.

这是我的代码

    Response.Clear()
    Dim dt_excel As New System.Data.DataTable
    Dim attach As String = "attachment; filename=EmployeeMaster.xls"

    File.Delete("C:\Users\Julian\Downloads\EmployeeMaster.xls")

    conn.connect()
    conn.connectExcel()
    dt_excel = conn.openReader("Select * from EmployeeMaster")

    Response.ClearContent()
    Response.AddHeader("content-disposition", attach)
    Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"

    Dim tab As String = ""
    For Each dc As DataColumn In dt_excel.Columns
        Response.Write(tab + dc.ColumnName)
        tab = vbTab
    Next
    Response.Write(vbLf)

    conn.openReaderExcel("Create Table [EmployeeMaster$] (EmployeeNo varchar(25))") '<- throw error here
    For Each dr As DataRow In dt_excel.Rows
        tab = ""
        conn.openReaderExcel("Insert into [EmployeeMaster$] (EmployeeNo) values ('" & dr.Item("EmployeeNo") & "')")
        Response.Write(vbLf)
    Next
    Response.End()

我一直在想我的代码有什么问题..有人可以建议我解决这个问题的方法吗?

所有建议/帮助将不胜感激

问候锡克

洛朗(Laurent S.)

回答可能有点晚了,但是我认为这里的问题在于“表”(= sheet)名称中使用[and]字符...虽然在大多数数据库中都可以,但您在此处处理的是excel。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章