datagrid&EXCEL(最后40分)

2zhk 2004-10-16 04:05:47

怎样将datagrid中的数据导出为EXCEL文件?
怎样将datagrid中的数据导入到EXCEL并在当前窗体下将该表格打开?

...全文

188 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

2zhk 2004-10-17

打赏
举报

顺便问一下:要取得DATAGRID的列名该怎么做?

2zhk 2004-10-17

打赏
举报

看见了,不错准备接分吧!

visualcpu 2004-10-16

打赏
举报

http://banaler.mblogger.cn/posts/25720.aspx

tl_pear 2004-10-16

打赏
举报

已发了，你看看！

2zhk 2004-10-16

打赏
举报

给我印象最深的两人:邹建,水如烟

2zhk 2004-10-16

打赏
举报

1zhk@163.com
谢谢飘叶寻梦!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

水如烟 2004-10-16

打赏
举报

哈，你这人怪怪的，对你我有点印象了

tl_pear 2004-10-16

打赏
举报

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tempexcel As New Excel.Application
Dim tempchart As New Excel.Chart
tempexcel.Visible = True
Dim wkbNew As Excel.Workbook
CreateNewWorkbook(tempexcel, wkbNew, "从Datagrid导入到Excel", 1)
End Sub

Function CreateNewWorkbook(ByVal excelstr As Excel.Application, ByVal wkbnew As Excel.Workbook, Optional ByVal strBookName As String = "", Optional ByVal intNumSheets As Integer = 3) As Workbook

Dim intOrigNumSheets As Integer

'On Error GoTo CreateNew_Err

intOrigNumSheets = excelstr.Application.SheetsInNewWorkbook
If intOrigNumSheets <> intNumSheets Then
excelstr.Application.SheetsInNewWorkbook = intNumSheets
End If
wkbnew = excelstr.Workbooks.Add
Dim tempsheet As Excel.Worksheet
tempsheet = wkbnew.Worksheets(1)
tempsheet.Name = "employee"
Dim rng1 As Excel.Range
Dim rng2 As Excel.Range
rng1 = tempsheet.Rows(1)
rng1.Font.FontStyle = "楷体_GB2312"
rng1.Font.Color = RGB(100, 200, 230)
Dim i As Integer
Dim j As Integer

For j = 0 To dt.Rows.Count - 1''''''''dt是datagrid的datasource
For i = 0 To dt.Columns.Count - 1
'tempsheet.Cells(j + 2, i + 1) = DataArray(j, i)
Try
tempsheet.Cells(j + 2, i + 1) = dt.Rows.Item(j).Item(i)
Catch ex As Exception
tempsheet.Cells(j + 2, i + 1) = dt.Rows.Item(j).Item(i)
End Try

Next
Next
If Len(strBookName) = 0 Then strBookName = excelstr.Application.GetSaveAsFilename
CreateNewWorkbook = wkbnew
excelstr.Application.SheetsInNewWorkbook = intOrigNumSheets
End Function

tl_pear 2004-10-16