vb.net 读取 excel
Dim myConn AsNew ADODB.Connection
myConn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
' 用于连接excel文件的字符串,注意: HDR=No,表示从第0行开始读; HDR=Yes,表示从第1行开始读
Dim connStr = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & myEXCELFileName & ";" &
"Extended Properties='Excel 12.0 Xml; HDR=No; IMEX=1'"
myConn.Open(connStr)
' 把excel作为数据源
Dim rs AsNew ADODB.Recordset
Try ' 打开Excel文件中的某张表 table0
rs.Open( "Select * From [table0$]", myConn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
Catch ex AsException
messagebox.show("Pls use excel file with the right sheet name - table0.")
Return False
End Try
Dim i AsInteger
Dim j AsInteger
Dim dt_excel AsNewDataTable
For i = 0 To rs.Fields.Count - 1 ' dataTable 添加列
dt_excel.Columns.Add(NewDataColumn(rs.Fields(i).Name, GetType(String)))
Next
Dim da AsNew System.Data.OleDb.OleDbDataAdapter()
da.Fill(dt_excel, rs) ' 把 读取的记录先放到 dataTable 中
rs.Close()
myConn.Close()
rs =Nothing
da =Nothing
myConn =Nothing
' 下面对 dataTable 进行操作
最新文章
- 制作类似ThinkPHP框架中的PATHINFO模式功能
- 利用ajax向jsp传输数据
- java报表工具FineReport使用中遇到的常见报错及解决办法(三)
- 一个简单的Python网络爬虫(抓图),针对某论坛.
- centos7 systemctl命令
- Mysql分区简述
- JTable指定单元格加控件
- JavaScript学习总结-技巧、有用函数、简洁方法、编程细节
- TFS源代码管理
- quartz 的学习和使用。
- [Redux] Generating Containers with connect() from React Redux (AddTodo)
- Qt5:窗口居中显示
- 基于Mysql数据库的SSM分页查询
- 解决Angular2 (SystemJS) XHR error (404 Not Found) loading traceur
- git 忽略 .idea文件
- jmeter 之 beanshell sample
- python分包写入文件,写入固定字节内容,当包达到指定大小时继续写入新文件
- 20145215《网络对抗》Exp9 Web安全基础实践
- Docker第一个应用:Hello World
- SQL Fundamentals || Single-Row Functions || 通用函数 General function || (NVL,NVL2,NULLIF,DECODE,CASE,COALESCE)
热门文章
- Java学习:反射机制简介
- Java学习:Junit简介
- 【linux】【windows】查看你想访问的电脑Ip 和 端口是否 通畅
- 单片机成长之路(51基础篇)- 024 基于 N76E003 的按键按键状态机
- 2019-11-29-WPF-客户端开发需要知道的触摸失效问题
- RandomAccessFile vs FileChannel.open(path);
- .Net Core实战教程(三):使用Supervisor配置守护进程
- 一、NodeJS入门——准备工作(1)——NodeJS的安装
- Winform中设置ZedGraph的曲线为折线、点折线、散点图
- netty框架概述