0

我想将数据从数据表导出到 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()

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

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

问候谢赫

4

3 回答 3

0

尝试这个

Protected Sub btnExportExcel_Click(ByVal sender As Object,
ByVal e As EventArgs)
Response.Clear()
Response.Buffer = True

Response.AddHeader("content-disposition",
"attachment;filename=GridViewExport.xls")
Response.Charset = ""
Response.ContentType = "application/vnd.ms-excel"

Dim sw As New StringWriter()
Dim hw As New HtmlTextWriter(sw)

GridView1.AllowPaging = False
GridView1.DataBind()

'Change the Header Row back to white color
GridView1.HeaderRow.Style.Add("background-color", "#FFFFFF")

'Apply style to Individual Cells
GridView1.HeaderRow.Cells(0).Style.Add("background-color", "green")
GridView1.HeaderRow.Cells(1).Style.Add("background-color", "green")
GridView1.HeaderRow.Cells(2).Style.Add("background-color", "green")
GridView1.HeaderRow.Cells(3).Style.Add("background-color", "green")

For i As Integer = 0 To GridView1.Rows.Count - 1
 Dim row As GridViewRow = GridView1.Rows(i)

 'Change Color back to white
 row.BackColor = System.Drawing.Color.White

'Apply text style to each Row
row.Attributes.Add("class", "textmode")

'Apply style to Individual Cells of Alternating Row
 If i Mod 2 <> 0 Then
  row.Cells(0).Style.Add("background-color", "#C2D69B")
 row.Cells(1).Style.Add("background-color", "#C2D69B")
 row.Cells(2).Style.Add("background-color", "#C2D69B")
 row.Cells(3).Style.Add("background-color", "#C2D69B")
  End If
 Next
GridView1.RenderControl(hw)

'style to format numbers to string
Dim style As String = "<style>.textmode{mso-number-format:\@;}</style>"
Response.Write(style)
Response.Output.Write(sw.ToString())
Response.Flush()
Response.End()
End Sub

参考链接

希望对你有帮助

于 2013-07-30T05:33:50.917 回答
0

你知道如何使用数据集吗？因为您可以在其中创建自定义查询...不需要所有代码...然后将此查询分配给数据表甚至数据网格，然后将其导出到 Excel。如果你使用数据集、数据表/数据网格视图并且需要代码让我知道

于 2013-07-30T09:57:42.993 回答
0

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

于 2013-11-07T14:24:36.850 回答