vba 查询access
Posted 小九家的丫头
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vba 查询access相关的知识，希望对你有一定的参考价值。
使用软件office2010
工具-引用-activex 2.8
.xls 等类型文件
On Error GoTo ErrorHandler
Dim Conn As New ADODB.Connection
Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;extended properties=excel 12.0;Data Source =" & tempfile1 & ";" ‘csv、xls，xlsx等文件
Dim rs As New ADODB.Recordset
strSQL=“[excel 12.0;DATABASE=?noCardMember].[sheet8$]” xls，xlsx等文件
strSQL=”select * from [TEXT;FMT=CSV;DELIMITED;HDR=YES;DATABASE=" & 路径& "].表名.csv ” csv文件
rs.Open strSQL, Conn, adOpenKeyse
Do While Not rs.EOF
preArrStr(1) = rs("aaa")
rs.MoveNext
Loop
Close #1
rs.Close
conn.close
以上是关于vba 查询access的主要内容，如果未能解决你的问题，请参考以下文章