没有合适的资源?快使用搜索试试~ 我知道了~
用vb读取excel中的数据
4星 · 超过85%的资源 需积分: 46 72 下载量 38 浏览量
2009-03-03
11:12:08
上传
评论 3
收藏 7KB TXT 举报
温馨提示
试读
10页
用VB or VBA 读取excel所有数据 取得excel文件所有内容
资源推荐
资源详情
资源评论
用VB or VBA 读取excel所有数据
取得excel文件所有内容:
'add microsoft ado frist.
Private Sub Command2_Click()
Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
CommonDialog1.ShowOpen
'OLE DB + ODBC Driver 方式:
'adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls"
'Microsoft.Jet.OLEDB.4.0 方式,(建?)
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CommonDialog1.FileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic
Debug.Print adoRecordset.RecordCount
Dim i As Integer
Do Until adoRecordset.EOF
For i = 0 To adoRecordset.Fields.Count - 1
Debug.Print adoRecordset.Fields.Item(0).Name
Debug.Print adoRecordset.Fields.Item(0).Value
Next i
adoRecordset.MoveNext
Loop
End Sub
取得excel文件所有内容:
'add microsoft ado frist.
Private Sub Command2_Click()
Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
CommonDialog1.ShowOpen
'OLE DB + ODBC Driver 方式:
'adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls"
'Microsoft.Jet.OLEDB.4.0 方式,(建?)
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CommonDialog1.FileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic
Debug.Print adoRecordset.RecordCount
Dim i As Integer
Do Until adoRecordset.EOF
For i = 0 To adoRecordset.Fields.Count - 1
Debug.Print adoRecordset.Fields.Item(0).Name
Debug.Print adoRecordset.Fields.Item(0).Value
Next i
adoRecordset.MoveNext
Loop
End Sub
但还不知道如何取得sheet名,不好意思,那位老鸟知道请告知,谢谢
sheet名用Excel.Application对象
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("C;\123.xls"))
For i = 1 To intSheetSum
strTemp=xlBook.Worksheets(i).name
Next i
Dim xlsconn As New ADODB.Connection
Dim xlscmd As New ADODB.Command
Dim rs As New ADODB.Recordset
xlsconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.xls;Extended Properties=HTML EXPORT;Persist Security Info=False"
剩余9页未读,继续阅读
资源评论
- yuyuedin2012-03-29直接从论坛上复制的 解释文字很少,不适合新手。
- yunwang5202018-02-06已经学习,用在工程里了,谢谢
- transfercj2013-10-17这个有点深奥,不过还是可以看懂
- 甜菜欣欣2013-08-25程序是一个窗体,正中一个空白的List控件,点击按钮可以加载同一目录下一个叫data的excel文件——但是不能操作,不能完整查看。代码就几行。不过标题页没说错
lawrencelyh
- 粉丝: 0
- 资源: 40
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功