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

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

2024-12-01 01:19:55

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
対妳旳执着ヽ

2024-12-01 02:43:31

不用代码,可直接导入