VB连接Excel文件
来源:网络 作者:佚名 点击:
次时间:2017-11-17 03:55
[摘要] Excel Private Sub Command2_Click() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:a.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'" rs.Open "select * from [sheet1$]", conn,
|
Excel
Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:a.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"
rs.Open "select * from [sheet1$]", conn, adOpenForwardOnly, adLockOptimistic
Do While Not rs.EOF
Print rs(0)
rs.MoveNext
Loop
rs.Close
End Sub |
HDR和IMEX一定要配合使用，HDR表示要把第一行作为数据还是作为列名，作为数据用hdr=no,作为列名用hdr=yes；通过Imex=1来把混合型作为文本型读取，避免null值。
|
------分隔线----------------------------
