VBA调用带参的存储过程，返回数据不成功

2019-06-11 10:51:44 284 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

chrissky2006 墨衍会员 · AI 创作全网分发关注 + 加入社区

Uipath调用VBA 如果还有小伙伴对vba还不太会使用的不要慌，可以在csdn，chatgpt或者csdn直接搜索你的问题，例如:csdn自带的chatgpt。总体上，只要excel人工能进行的操作，vba全部可以实现，例如增删改查，赋值，判断，标注列颜色，格式转换，等等。Uipath自带的excel处理，只能用作与增删改查列等判断以及公式，可能在大多数小白眼里比较迷茫。2.点击文件-点击选项-点击信任中心-点击信任中心设置-点击宏设置-勾选相关选项-点击确定。1.用excel打开任意文档。阅读详情

Public Sub 引入工价()
Dim strcon As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
On Error Resume Next
strcon = "Driver={SQL Server};Server=192.168.107.243;UID=sa;PWD=CHAC@123;DataBase=UFDATA_002_2018"
cn.Open strcon
Dim rowxh As Integer,ws As Worksheet
Set ws = Sheets("明细")
ws.Activate
For rowxh = 4 To Rows.Count
strsql = "exec user_getjiagongprice '" & Trim(Cells(rowxh, 6).Value) & "','" & Trim(Cells(rowxh, 9).Value) & "';"
rs.Open strsql, cn, adOpenStatic, adLockBatchOptimistic
ws.Cells(rowxh, 11).Value = rs.Fields(0).Value
rs.Close
Next
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
请问各位大仙，这个过程执行不成功，我调试了下发现 rowxh的值一直为0，不是应该初始值为4吗？这是什么原因啊？

...全文