如何利用VBA将SQL查询结果送到EXCEL指定单元格

xiao81jian

我想利用VBA通过一条SQL语句从SQLSERVER数据库查询到一条数据并送到EXCEL指定单元格，请问该怎么做！数据库类型SQLSERVER 2000，数据库名tywk,用户名sa,密码wkserver9,SQL语句附下！请各位高人帮忙！万分感谢！ 3nER6Uez.txt (286 Bytes, 下载次数: 63)

2006-8-5 09:57 上传

点击文件名下载附件
如何利用VBA将SQL查询结果送到EXCEL指定单元格

licx51120

我也想对此得到进一步的了解,但没有相关的文章,看来是实现不了吧??

如哪位VBA长老不吝赐教,小弟不胜感激.

tzzxceris

   
         For i = 1 To 35
            JcjsSht.Cells(2, i)=Rs(i)
         Next i
       
       

ngs139

tzzxceris 发的什么？看不懂

iamahack

 Dim i     As Integer, j       As Integer, sht       As Worksheet     'i,j为整数变量；sht   为excel工作表对象变量，指向某一工作表
  Dim cn     As New ADODB.Connection       '定义数据链接对象   ，保存连接数据库信息；请先添加ADO引用
  Dim rs     As New ADODB.Recordset         '定义记录集对象，保存数据表
  Dim strCn     As String, strSQL       As String     '字符串变量
   
strCn = "Provider=sqloledb;Server=(local);Database=tywk;Uid=sa;Pwd=wkserver9;"    '定义数据库链接字符串
cn.Open strCn
FINALROW = Cells(65535, 1).End(xlUp).Row
Set sht = ThisWorkbook.Worksheets("更新数据库")

For i = 2 To FINALROW         '循环开始
 
          strSQL = "insert   into   tywk.dbo.表名   values('" & sht.Cells(i, 1) _
          & "' ,'" & sht.Cells(i, 2) & "' ,'" & sht.Cells(i, 3) & "' ,'" & sht.Cells(i, 4) _
          & "' ,'" & sht.Cells(i, 5) & "' ,'" & sht.Cells(i, 6) & "' ,'" & sht.Cells(i, 7) _
          & "' ,'" & sht.Cells(i, 8) & "' ,'" & sht.Cells(i, 9) & "' ,'" & sht.Cells(i, 10) _
          & "' ,'" & sht.Cells(i, 11) & "' ,'" & sht.Cells(i, 12) & "' ,'" & sht.Cells(i, 13) _
          & "' ,'" & sht.Cells(i, 14) & "' ,'" & sht.Cells(i, 15) & "' ,'" & sht.Cells(i, 16) _
          & "' ,'" & sht.Cells(i, 17) & "' ,'" & sht.Cells(i, 18) & "');"
          cn.Execute strSQL

  Next

    
     MsgBox "保存成功"
    
cn.Close

yyyu_2000

学习中

alex.yp

了解中

4666

好深奥啊