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

zpy2

一般都是要用command对象执行存储过程的

hcunicom

检查你的存储过程看看

117365159

笑着...两年过去 发表于 2024-11-19 14:35

存储过程没问题，在数据库中可以运行

117365159

z865593849 发表于 2024-11-19 14:31

谢谢大佬指导

117365159

问题已经解决，感谢大家帮忙，比较复杂的存储过程，需要用到插件，代码发出供大家参考，感谢大家

1. Sub TEST01()
   
2. 
   
3. 
   
4.     ''' MSSQLToArray: 查询SQL SERVER，输出为：二维数组，可带标题
   
5.     ''' </summary>
   
6.     ''' <param name="StrSQL">查询语句</param>
   
7.     ''' <param name="ConnStrSQL">SQL SERVER链接字符串, 空白则使用DLL内指定的字符串</param>
   
8.     ''' <param name="BT">是否输出标题：默认：否</param>
   
9.     '''  <param name="ZCM">授权码;试用，请输入参数值：QQ14885553</param>
   
10.     ''' <returns>二维数组</returns>
    
11.     Rem Public Function MSSQLToArray(ByVal StrSQL As String, ByVal ConnStrSQL As String, Optional ByVal BT As Boolean = False, Optional ByVal ZCM As String = "") As Object(,)
    
12.    
    
13.      Dim T
    
14.     T = Timer
    
15.    
    
16.     Set SHX = ThisWorkbook.Worksheets("测试")
    
17.    
    
18.     ID = "***"                                                          '新ERP 服务器IP，端口为29868
    
19.     Database = "***"                                                                         '数据库名称
    
20.     PassWordChr = "***"                                                       '密码
    
21. 
    
22.     Rem 组合数据库连接字符串
    
23.     PUB_ConnStrMSSQL = "Data Source=" & ID & ";Initial Catalog=" & Database & ";Uid=***;" & ";PWD=" & PassWordChr & ";Persist Security Info=False"
    
24.     StrSQL = "Exec GetFPlanmx '','','" & Format(SHX.Range("A2").Value, "yyyy-MM-dd") & "','" & Format(SHX.Range("B2").Value, "yyyy-MM-dd") & "',0,1"
    
25.     Rem 创建函数类对象
    
26.     Set PUB_DB = CreateObject("ExcelToSQL.MyClassExcelToSQL")     'DLL文件内Class的名称 现在如无意外，就可以创建一个MyDLLClass对象，YEAH！
    
27.     SQLARR = PUB_DB.MSSQLToArray(StrSQL:=StrSQL, ConnStrSQL:=PUB_ConnStrMSSQL, BT:=True, ZCM:="WOAIXIAOKELE")
    
28. 
    
29.     SHX.Rows("6:" & SHX.Rows.Count).ClearContents
    
30.     SHX.Range("A6").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
    
31.    
    
32.     MsgBox "查询完成, 获得数据: " & UBound(SQLARR, 1) & vbCrLf & vbCrLf & "用时：" & Format(Timer - T, "#0.0000") & " 秒", , "北极狐提示!!"     '//提示所用时间, vbInformation, "北极狐工作室QQ：14885553"
    
33. End Sub

复制代码

向東

https://club.excelhome.net/thread-1430272-1-1.html
调用存储过程，又给VBA多了一个外挂