
vb.net 将excel中数据显示到软件界面
3个回答
展开全部
给你看一段我的代码
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlBook = xlApp.Workbooks.Open(OpenFileDialog1.FileName) '打开已经存在的EXCEL工件簿文件
xlSheet = xlBook.Worksheets(xlBook.Sheets(1).name) '读取excel
'****************************读取excel数据,显示在数据表上****************************************
DataGridView1.Rows.Clear() '清空记录
For i = 5 To 19
If xlSheet.Cells(i, 1).value <> "" Then
DataGridView1.Rows.Add(xlSheet.Cells(2, 9).value, xlSheet.Cells(i, 1).value, xlSheet.Cells(2, 2).value, xlSheet.Cells(2, 7).value, xlSheet.Cells(2, 4).value, CDate(DateTimePicker1.Value), "", xlSheet.Cells(i, 5).value, Combo_CZZ.Text, Combo_MacName.Text, "", xlSheet.Cells(1, 3).value, xlSheet.Cells(1, 6).value, "", Combo_BanCi.Text, "")
End If
Next
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlSheet As Excel.Worksheet
xlApp = CreateObject("Excel.Application") '创建EXCEL对象
xlBook = xlApp.Workbooks.Open(OpenFileDialog1.FileName) '打开已经存在的EXCEL工件簿文件
xlSheet = xlBook.Worksheets(xlBook.Sheets(1).name) '读取excel
'****************************读取excel数据,显示在数据表上****************************************
DataGridView1.Rows.Clear() '清空记录
For i = 5 To 19
If xlSheet.Cells(i, 1).value <> "" Then
DataGridView1.Rows.Add(xlSheet.Cells(2, 9).value, xlSheet.Cells(i, 1).value, xlSheet.Cells(2, 2).value, xlSheet.Cells(2, 7).value, xlSheet.Cells(2, 4).value, CDate(DateTimePicker1.Value), "", xlSheet.Cells(i, 5).value, Combo_CZZ.Text, Combo_MacName.Text, "", xlSheet.Cells(1, 3).value, xlSheet.Cells(1, 6).value, "", Combo_BanCi.Text, "")
End If
Next
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |