Excel和DataGridView数据的相互导入与导出
2012-05-17 15:51
429 查看
这是一个简单的把Excel和DataGridView数据的相互导入与导出的实例,很详细,已经在vs2010中测试通过的。 Imports Microsoft.Office.Interop.Excel Imports System.Collections.Generic Imports System.Diagnostics Imports Microsoft.Office.Interop '把Excel数据导入到DataGridView里 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click Dim excel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application() Dim xlBook As Microsoft.Office.Interop.Excel.Workbook Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet Dim fileDialog As OpenFileDialog = New OpenFileDialog() Dim FileName As String fileDialog.Filter = "Microsoft Excel files (*.xls)|*.xls" If fileDialog.ShowDialog = System.Windows.Forms.DialogResult.Cancel Then Exit Sub If fileDialog.FileName = Nothing Then MsgBox("请选择要导入的excel文件", , "提示") End If FileName = fileDialog.FileName xlBook = excel.Application.Workbooks.Open(FileName) xlSheet = xlBook.Application.Worksheets(1) Dim col As Integer = 0 Dim i As Integer = 2 Me.dgv.Rows.Clear() Do While i < 3 dgv.Rows.Add(i) dgv.Rows(col).Cells(0).Value = xlSheet.Cells(i, 1).value dgv.Rows(col).Cells(1).Value = xlSheet.Cells(i, 2).value dgv.Rows(col).Cells(2).Value = xlSheet.Cells(i, 3).value dgv.Rows(col).Cells(3).Value = xlSheet.Cells(i, 4).value dgv.Rows(col).Cells(4).Value = xlSheet.Cells(i, 5).value dgv.Rows(col).Cells(5).Value = xlSheet.Cells(i, 6).value i += 1 col += 1 Loop excel.ActiveWorkbook.Close(False) xlSheet = Nothing xlBook = Nothing excel = Nothing If dgv.Rows.Count >= 1 Then MessageBox.Show("导入成功") Else MessageBox.Show("导入失败") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click Dim saveExcel As SaveFileDialog saveExcel = New SaveFileDialog saveExcel.Filter = "Excel文件(.xls)|*.xls" Dim filename As String If saveExcel.ShowDialog = System.Windows.Forms.DialogResult.Cancel Then Exit Sub filename = saveExcel.FileName Dim excel As New Application excel = New Excel.Application excel.DisplayAlerts = False excel.Workbooks.Add(True) excel.Visible = False Dim i As Integer For i = 0 To dgv.Columns.Count - 1 excel.Cells(1, i + 1) = dgv.Columns(i).HeaderText Next '设置标题 Dim j As Integer For i = 0 To dgv.Rows.Count - 1 '填充数据 For j = 0 To dgv.Columns.Count - 1 excel.Cells(i + 2, j + 1) = dgv(j, i).Value Next Next excel.Workbooks(1).SaveCopyAs(filename) '保存 Me.Close() End Sub
相关文章推荐
- 实现ADO,Excel,Aceess,.NET托管代码见的相互导入导出,利用代码实现数据的相互转换
- excel,sql server,access数据之间相互导入导出
- 利用DataGridView及Excel实现数据的导入导出备份
- Windows Forms 中 DataGridView 数据导入 导出 Excel
- C# winform DataGridView导出数据到Excel中,可以导出当前页和全部数据;从Excel导入到DataGridView[转http://yuunagi.blogbus.com/logs/38361242.html]
- [转]将c#中datagridview中的数据导出到excel中
- 导出excel的数据拼接成sql导入到数据库中
- 使用GridView将数据导入或导出Excel中
- 操作Excel数据(导入导出)
- thinkphp实现excel数据的导入导出(附完整案例)
- C#实现从EXCEL将数据导出到datagridview
- 关于利用heidiSQL或者sqlYog导入导出数据库和数据的问题(导出为excel再导入)
- c# 导入excel处理数据,导出excel报表
- [导入][转]精妙的SQL和SQL SERVER 与ACCESS、EXCEL的数据导入导出转换
- excel导入到Mysql 和 mysql数据导出到excel
- C#中DataGridView数据导出到Excel
- PHP导入Excel和导出数据为Excel文件
- SQL Server 和Access ,Excel的数据导入导出
- C#—用Microsoft.Office.Interop.Excel导出datagridview的数据,并杀死EXCEL.EXE进程
- SQL SERVER 和EXCEL的数据导入导出