VBA中如何将SQL存储过程复制粘贴到EXCEL表里

117365159

如题，目前小弟遇到的困难是：

117365159

1.用存储过程找到所需要的数据资料；
2.将SQL里存储过程运算的资料导入EXCEL；
3.处理资料；

现在问题卡在第二步，存储过程的代码在数据库里使用没有问题

117365159

也找了相关前辈的类似问题，但是不管怎么调整，总是在粘贴的时候弹出该对话框

117365159

请各位大佬指点迷津

117365159

Sub 测试()
Set sh1 = ThisWorkbook.Worksheets(1)

   '----------------------------------------------------------------------------------------------------------
Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
  
   
    cn.ConnectionTimeout = 0
    cn.CommandTimeout = 0
   


ID = "*******"                                                          '服务器IP
   
Database = "*******"                                                                         '数据库名称
   
PassWordChr = "******"                                                       '密码
   
    cnStr = "Provider=sqloledb;Server=" & ID & ";Database=" & Database & ";Uid=****;Pwd=" & PassWordChr & ";"
   
    cn.Open cnStr                                                                        '打开服务器对应的SQL数据库
   
   Sql = "Exec GetFPlanmx '','','','',0,1"     '存储过程
     
  sh1.Cells(2, 1).Value = Sql              '确认存储过程语句
  
            Set rs = cn.Execute(Sql)                                                         '赋值rs为存储过程数组
        
            sh1.Cells(6, 1).CopyFromRecordset rs                 '复制粘贴
            rs.Close
      
      Set rs = Nothing
      
      cn.Close
      Set cn = Nothing

End Sub

117365159

1. Sub 测试()
   
2. Set sh1 = ThisWorkbook.Worksheets(1)
   
3. 
   
4.    '----------------------------------------------------------------------------------------------------------
   
5. Set cn = CreateObject("ADODB.Connection")
   
6.     Set rs = CreateObject("ADODB.Recordset")
   
7.   
   
8.    
   
9.     cn.ConnectionTimeout = 0
   
10.     cn.CommandTimeout = 0
    
11.    
    
12. 
    
13. 
    
14. ID = "*******"                                                          '服务器IP
    
15.    
    
16. Database = "*******"                                                 '数据库名称
    
17.    
    
18. PassWordChr = "******"                                                       '密码
    
19.    
    
20.     cnStr = "Provider=sqloledb;Server=" & ID & ";Database=" & Database & ";Uid=****;Pwd=" & PassWordChr & ";"
    
21.    
    
22.     cn.Open cnStr                                                                        '打开服务器对应的SQL数据库
    
23.    
    
24.    Sql = "Exec GetFPlanmx '','','','',0,1"     '存储过程
    
25.      
    
26.   sh1.Cells(2, 1).Value = Sql              '确认存储过程语句
    
27.   
    
28.             Set rs = cn.Execute(Sql)                                                         '赋值rs为存储过程数组
    
29.         
    
30.             sh1.Cells(6, 1).CopyFromRecordset rs                 '复制粘贴
    
31.             rs.Close
    
32.       
    
33.       Set rs = Nothing
    
34.       
    
35.       cn.Close
    
36.       Set cn = Nothing
    
37. 
    
38. End Sub

复制代码

117365159

代码也发了，请前辈大佬指导下，也可以有偿咨询，QQ117365159

z865593849

z865593849

笑着...两年过去

1. 应该还是存储过程写得不对，VBA是支持这种用法的

复制代码