VBA 从数据库读取数据写到 EXCEL 10
我现在要把SQLSERVER数据库某个表的几列数据，写到EXCEL里，谁能帮我写一个最简单的连接数据库，提取数据到EXCEL里的代码。多谢了！...
我现在要把 SQLSERVER数据库某个表的几列数据，写到EXCEL里，谁能帮我写一个最简单的连接数据库，提取数据到EXCEL里的代码。多谢了！
展开
1个回答
展开全部
'sql完整例子
Sub testSql()
'定义连接对象
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'定义连接字符串
Dim conStr As String
Dim sqlstr As String
'连接字符串-以下是连接MSSQL数据库
conStr = "Provider=sqloledb; " _
& "Server=192.168.1.121; " _
& "Database=DATABASENAME;Uid=admin;Pwd=admin;"
cnn.Open conStr
sqlstr = "SELECT * from tablename"
rs.Open sqlstr, cnn
Range("a2").CopyFromRecordset rs
rs.Close
cnn.Close
End Sub
更多追问追答
追问
这代码，我试怎么就不行呢？ 请问这个SELECT * 所有列，写到"A2"那是怎么写？还是从A2开始？
追答
你18句就是存到A2
你说不行，希望有拷屏，报错或结果，然后代码你修改后的样子，否则我们对这个“不行”真不知道说什么。
已赞过
已踩过<
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
