怎么样把DataGrid中的数据导出到Excel？

[Jekhn]

谢谢！

[mndsoft]

这里有个 把csv格式的文件加载到BDGrid网格中，怎样输出到Excel文件中，并并自动打开导出的文件.

http://www.mndsoft.com/blog/blogview.asp?logID=236

[njstalk]

建议用 spread 很方便的。打印，导出，功能完善。

[jackinsh]

下面这段是我导出excel时用的：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'一个EXCEL工作表涉及数个对象所构成的阶层架构
'从APPLICATION到WORKBOOK再到worksheet.

Dim ds As DataSet
Dim dt As DataTable
dt = objdataset.Tables("item_code")

Dim excelapp As New Excel.Application
Dim excelbook As Excel.Workbook = excelapp.Workbooks.Add
Dim excelworksheet As Excel.Worksheet = _
CType(excelbook.Worksheets(1), Excel.Worksheet)

'使EXCEL显示出来，以便让您看到所填入的数据与计算结果
excelapp.Visible = True

With excelworksheet
'设定栏标题与所需的格式
.Columns().ColumnWidth = 21.71
.Range("A1").Value = "订货单号"
.Range("A1").Font.Bold = True
.Range("B1").Value = "客户名称"
.Range("B1").Font.Bold = True
.Range("C1").Value = "商品编码"
.Range("C1").Font.Bold = True
.Range("D1").Value = "商品名称"
.Range("D1").Font.Bold = True
.Range("E1").Value = "商品英文名称"
.Range("E1").Font.Bold = True
.Range("F1").Value = "箱数"
.Range("F1").Font.Bold = True
.Range("G1").Value = "个数"
.Range("G1").Font.Bold = True
.Range("H1").Value = "规格"
.Range("H1").Font.Bold = True
.Range("I1").Value = "条码"
.Range("I1").Font.Bold = True
.Range("J1").Value = "发货日期"
.Range("J1").Font.Bold = True

'从第二行（也就是栏标题栏之后）开始计算
Dim i As Integer = 2
'循环处理ＤＡＴＡＳＥＴ的ＲＯＷＳ集合并将每一列的数据写到ＥＸＣＥＬ中的单元格．
Dim dr As DataRow
Dim nRowCount, nColCount As Integer

'For Each dr In dsmenu.tables(0).rows
For nRowCount = 0 To dt.Rows.Count - 1
'dr = dt.Rows(i)
dr = dt.Rows(nRowCount)
.Range("A" & i.ToString).Value = dr("order_no")
.Range("B" & i.ToString).Value = dr("customer_name_chi")
.Range("C" & i.ToString).Value = dr("item_code")
.Range("D" & i.ToString).Value = dr("description_chi")
.Range("E" & i.ToString).Value = dr("description_eng")
.Range("F" & i.ToString).Value = dr("pack")
.Range("G" & i.ToString).Value = dr("qty")
.Range("H" & i.ToString).Value = dr("qty_small")
.Range("I" & i.ToString).Value = dr("barcode")
.Range("J" & i.ToString).Value = dr("send_date")

i += 1
Next

End With
End Sub

[Jekhn]

谢谢各位!