把DatagridView中的数据导入到Excel中

最新推荐文章于 2025-08-15 11:48:31 发布

jiaohe2000

最新推荐文章于 2025-08-15 11:48:31 发布

阅读量631

点赞数

CC 4.0 BY-SA版权

文章标签： excel dataset each integer table class

本文链接：https://blog.youkuaiyun.com/jiaohe2000/article/details/1627587

本文介绍了一种使用Visual Basic编程语言将DataSet中的数据导出到Microsoft Excel的方法。通过创建Excel应用程序对象并利用DataSet中的数据填充Excel工作表，实现了自动化报表生成。此过程包括设置字体样式、边框样式等，最终使Excel文件可视化呈现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Shared Sub ExportExcelRpt(ByVal sqlds As DataSet)
Dim xlApp As New Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim rowIndex, colIndex As Integer

rowIndex = 1
colIndex = 0

xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = Nothing
xlSheet = Nothing
xlBook = xlApp.Workbooks().Add
xlSheet = CType(xlBook.Worksheets("sheet1"), Excel.Worksheet)

'xlBook = xlApp.Workbooks.Open("c:/1.xls")
'xlSheet = CType(xlBook.Worksheets("sheet1"), Excel.Worksheet)

'Dim a As New DataSet

Dim Table As New System.Data.DataTable

Table = sqlds.Tables(0)

''?所得到的表的列名,?值??元格

Dim Col As DataColumn
Dim Row As DataRow

For Each Col In Table.Columns
colIndex = colIndex + 1
xlApp.Cells(1, colIndex) = Col.ColumnName
Next

''得到的表所有行,?值??元格

For Each Row In Table.Rows
rowIndex = rowIndex + 1
colIndex = 0
For Each Col In Table.Columns
colIndex = colIndex + 1
xlApp.Cells(rowIndex, colIndex) = Row(Col.ColumnName)
Next
Next

'--------
With xlSheet
.Range(.Cells(1, 1), .Cells(1, Table.Columns.Count)).Font.Name = "黑體"
'設標題為黑體字
.Range(.Cells(1, 1), .Cells(1, Table.Columns.Count)).Font.Bold = True
'標題字體加粗
.Range(.Cells(1, 1), .Cells(Table.Rows.Count + 1, Table.Columns.Count)).Borders.LineStyle = Excel.XlLineStyle.xlContinuous
'設表格邊框樣式
End With

xlApp.Visible = True

xlApp = Nothing '"交還控制給Excel
xlBook = Nothing
xlSheet = Nothing
End Sub
End Class