VBA 从数据库读取数据写到 EXCEL 10

我现在要把SQLSERVER数据库某个表的几列数据,写到EXCEL里,谁能帮我写一个最简单的连接数据库,提取数据到EXCEL里的代码。多谢了!... 我现在要把 SQLSERVER数据库某个表的几列数据,写到EXCEL里,谁能帮我写一个最简单的连接数据库,提取数据到EXCEL里的代码。多谢了! 展开
 我来答
阳光上的桥
推荐于2017-11-23 · 知道合伙人软件行家
阳光上的桥
知道合伙人软件行家
采纳数:21423 获赞数:65813
网盘是个好东东,可以对话和传文件

向TA提问 私信TA
展开全部
'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

你说不行,希望有拷屏,报错或结果,然后代码你修改后的样子,否则我们对这个“不行”真不知道说什么。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式