[VBA程序]：通过ADO读取EXCEL数据的一个实例

Laoyao

注意,事先要引用ADO库
ADO将EXCEL文件以数据库的形式打开

2. 
   
3.   [FONT=courier new]
   
4. Sub ADO_EXCEL_TEST()
   
5.     On Error Resume Next
   
6.     Dim adoConnection As New ADODB.Connection
   
7.     Dim adoRecordset As New ADODB.Recordset
   
8.     Dim SPoint(0 To 2) As Double
   
9.     Dim EPoint(0 To 2) As Double
   
10.     Dim i As Integer
    
11.     adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=d:\book2.xls;Extended Properties='Excel 8.0;HDR=No'"
    
12. 　　'Microsoft.Jet.OLEDB.4.0 方式,(建议)
    
13. 　　' HDR=No　 HDR参数设置是否强制将第一行单元格作为字段名称 YESà将第一行单元格作为字段名称;NOà忽略
    
14.     adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic '读取SHEET1的数据
    
15.    
    
16.     For i = 0 To 2
    
17.         SPoint(i) = adoRecordset.Fields(i).Value
    
18.     Next
    
19.     adoRecordset.MoveNext
    
20.     For i = 0 To 2
    
21.         EPoint(i) = adoRecordset.Fields(i).Value
    
22.     Next
    
23.     ThisDrawing.ModelSpace.AddLine SPoint, EPoint
    
24. End Sub
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub ADO_EXCEL_TEST()<br />     On Error Resume Next<br />     Dim adoConnection As New ADODB.Connection<br />     Dim adoRecordset As New ADODB.Recordset<br />     Dim SPoint(0 To 2) As Double<br />     Dim EPoint(0 To 2) As Double<br />     Dim i As Integer<br />     adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=d:\book2.xls;Extended Properties='Excel 8.0;HDR=No'"<br /> 　　'Microsoft.Jet.OLEDB.4.0 方式,(建议)<br /> 　　' HDR=No　 HDR参数设置是否强制将第一行单元格作为字段名称 YESà将第一行单元格作为字段名称;NOà忽略<br />     adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic '读取SHEET1的数据<br />     <br />     For i = 0 To 2<br />         SPoint(i) = adoRecordset.Fields(i).Value<br />     Next<br />     adoRecordset.MoveNext<br />     For i = 0 To 2<br />         EPoint(i) = adoRecordset.Fields(i).Value<br />     Next<br />     ThisDrawing.ModelSpace.AddLine SPoint, EPoint<br /> End Sub<br />   [/FONT]<br />

chenzl230618

为什么把数据存放在excel 而不是Access，对excel sheet有什么约定要求

efan2000

以这种方式调用，实际上就是将excel文件作为数据库来对待的，那么它的处理方式就如同专门的数据库如oracle、sql server等，之间没有什么大的差别，只是一些功能上的区别。它们都可以通过ado来调用。