vb.net 读取Excel
来源:互联网 发布:ppt mac版如何加页码 编辑:程序博客网 时间:2024/04/27 06:13
1、定义excel操作变量
dim objexcelfile as excel.application
dim objworkbook as excel.workbook
dim objimportsheet as excel.worksheet
2、打开excel进程,并打开目标excel文件
set objimportsheet = objworkbook.sheets(1)
3、获取excel有效区域的行和列数
intlastrownum = objimportsheet.usedrange.rows.count
4、逐行读取excel中数据
由于前两行为header部分,所以需要从第三行读取
如果第1到第10个单元格的值均为空或空格,则视为空行
for intcounti = 3 to intlastrownum
check if empty data row
blnnullrow = true
for inti = 1 to 10
if trim$(objimportsheet.cells(intcounti, inti).value) <> "" then
blnnullrow = false
end if
next inti
若不是空行,则进行读取动作,否则继续向后遍历excel中的行
if blnnullrow = false then
获取单元格中的数据,做有效性check,并将合法数据创建为实体存入对象数组中
objimportsheet.cells(intcounti, 1).value
……
end if
5、退出excel进程,并关闭excel相关操作对象
set objexcelfile = nothing
2
Public Shared Function PFn_ExcelToDataTable(FileName As String) As DataTable
Dim dtRetrunTable As New DataTable
Dim strConn As String = ("Provider=Microsoft.Ace.OleDb.12.0;" & "data source=") + FileName & ";Extended Properties='Excel 12.0; HDR=YES; IMEX=1'"
Dim conn As New OleDb.OleDbConnection(strConn)
conn.Open()
Dim myDataSet As DataSet = New DataSet
Dim strExcel = "SELECT * FROM [sheet1$]"
Using da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strExcel, conn)
Try
da.Fill(myDataSet)
dtRetrunTable = myDataSet.Tables(0)
Catch ex As Exception
Finally
If conn.State = ConnectionState.Open Then
conn.Close()
conn = Nothing
End If
da.Dispose()
End Try
End Using
Return dtRetrunTable
End Function
- vb.net读取EXCEL
- vb.net 读取Excel
- vb.net和C#.net读取EXCEL
- vb.net读取dbf、Excel、Access数据文件
- vb.net 读取EXCEL文件中的数据
- VB.NET读取EXCEL 里面的内容
- vb.net ADO快速读取excel
- VB.NET读取Excel数据在CAD上展图
- vb.net中从datatable读取数据到Excel
- vb.net 读EXCEL,无法读取数字 解决
- vb.net 读取excel 发生 HRESULT:0x800A03EC 情况之一
- VB读取EXCEL
- [VB.NET]在VB.NET怎样动态读取EXCEL单元格的值?
- vb.net 连接excel
- [VB.NET]excel 问题
- vb.net 操作EXCEL
- VB.NET EXCEL操作
- VB.NET操作Excel
- Shell用declare转换字符串大小写
- 队,栈,UML9种试图
- 文件压缩上传
- 由浅入深写java分布式(3) dubbo admin监控dubbo 以及外网consumer找不到provider的问题
- Py2exe
- vb.net 读取Excel
- EL表达式
- 尊重原创,请保证您的文章为原创作品
- 转移sqlServer数据库数据到mongodb的简单实现
- vuejs模仿实现一个电影分享类网站
- 依赖注入
- spring mvc 注解@ResponseBody返回中文乱码问题解决。
- Tomcat Error Page配置 与 Error Page在IE下不能转发的问题
- 继承HttpServletRequestWrapper以实现在Filter中修改HttpServletRequest的参数