Dim conn As New ADODB.Connection
connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
conn.Open connStr '连接数据库
Dim rs As New Recordset
sql = "select * from a" '查看表a
rs.Open sql, conn, 3, 3
if Not rs.EOF then
For iCols = 0 To rs.fields.Count - 1
Sheets(1).Cells(1, iCols + 1).Value = rs.fields(iCols).Name
Next iCols
Sheets(1).Cells(2, 1).CopyFromRecordset rs
endif
不用代码，可直接导入
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024