Question

在excel中如何使用vba实现将sql的数据快速写入excel

如题，将sql数据库的内容全部写入到excel的当前打开的工作表中，数据量较大，求快速写入的代码

Answer 1

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

Answer 2

不用代码，可直接导入