hola estoy tratando de llamar un procedimiento almacenado que me genera una tabla temporal para vaciarla en una hoja de excel y poder guardar esos datos como un archivo de texto, utilizando el vba de excel pero al ejecutar el código me da error 3704 error definido por la aplicación o el objeto. Me podrían ayudar , estuve leyendo en varios foros pero no encuentro solución
Dim CMDStoredProc As ADODB.Command
Dim CnnConexion As ADODB.Connection
Dim RcsDatos As ADODB.Recordset
Dim CadConexion As String 'Cadena de conexión
Dim Row As Integer
Dim RecordsAffected As Long
'Cadena de conexión
Dim Servidor As String
Dim Usuario As String
Dim Contrasena As String
Dim BaseDatos As String
Dim query As String
Servidor = "10.200.42.50"
Usuario = "sa"
Contrasena = "123456"
BaseDatos = "WMSTEK_INTERFAZ"
CadConexion = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & Usuario & ";Pwd=" & Contrasena & ";Initial Catalog=" & BaseDatos & ";Data Source=" & Servidor & ""
Set CnnConexion = New ADODB.Connection
Set RcsDatos = New ADODB.Recordset
Set CMDStoredProc = New ADODB.Command
'Establece comunicación con el servidor SQL Server
Call CnnConexion.Open(CadConexion)
'Enlaza el objeto y define el procedimiento almacenado a ejecutar
CMDStoredProc.CommandType = adCmdText
Set CMDStoredProc.ActiveConnection = CnnConexion
CMDStoredProc.CommandText = "EXEC dbo.sp_IFZ_WS_CPD_CALIFORNIA"
MsgBox (CMDStoredProc.CommandText)
'Crea el parámetro del procedimiento almacenado
Call CMDStoredProc.Parameters.Append(CMDStoredProc.CreateParameter("PV_OPCION", DataTypeEnum.adChar, ParameterDirectionEnum.adParamInput, 10))
'Ejecuta de Script
Set RcsDatos = CMDStoredProc.Execute(RecordsAffected, , ExecuteOptionEnum.adAsyncFetch)
'Recorre el Recordset resultante para asignarlo a la celda en Excel
Row = 2
Do While Not RcsDatos.EOF
Cells(Row, 1).Value = RcsDatos.Fields(0).Value
Cells(Row, 2).Value = RcsDatos.Fields(1).Value
Cells(Row, 3).Value = RcsDatos.Fields(2).Value
Cells(Row, 4).Value = RcsDatos.Fields(3).Value
Cells(Row, 5).Value = RcsDatos.Fields(4).Value
Cells(Row, 6).Value = RcsDatos.Fields(5).Value
Row = Row + 1
RcsDatos.MoveNext
Loop
End Function