Hola estimados, les cuento que tengo un código excel el cual llama a un procedimiento almacenado de mi base de datos que devuelve varias tablas temporales de datos. Por lo tanto el código me genera un error al momento de capturar este procedimiento para pegar estas tablas de datos en una hoja en blanco en mi libro excel, me gustaría ver si pudiesen ayudarme. Adjunto el código realizado... Sub CargaDatosEnHoja() Dim Ds As Recordset Dim fechainicio As Date Dim fechafin As Date Dim fechacliente As Double Dim fechamen As Double fechainicio = Hoja15.Cells(1, 3) fechainicio2 = Format(fechainicio, "YYYYmmDD") fechafin = Hoja15.Cells(2, 3) fechafin2 = Format(fechafin, "YYYYmmDD") fechacliente = Hoja15.Cells(3, 3).Value fechamen = Hoja15.Cells(4, 3).Value 'create a connection object Dim conn As ADODB.Connection Set conn = New ADODB.Connection 'create parameter variable Dim prm1 As ADODB.Parameter Dim prm2 As ADODB.Parameter Dim prm3 As ADODB.Parameter Dim prm4 As ADODB.Parameter 'create a recordset Dim rsResponses As ADODB.Recordset Set rsResponses = New ADODB.Recordset 'create a command to execute stored procedure Dim cmdSQL As ADODB.Command Set cmdSQL = New ADODB.Command 'provide the connection string Dim strConn As String 'Use the SQL Server OLEDB Provider strConn = "driver={SQL Server};" & _ "server=db-w-spp-07\proteus;uid=fbarros;pwd=Francisco001;database=Analisis_Emel" 'Open connection conn.Open strConn With cmdSQL .ActiveConnection = conn .CommandText = "CONTROL_REAL" .CommandType = adCmdStoredProc Set prm1 = .CreateParameter("fechaclientes", adInteger, adParamInput) .Parameters.Append prm1 .Parameters("fechaclientes").Value = fechacliente Set prm2 = .CreateParameter("fechainicio", adDBTimeStamp, adParamInput) .Parameters.Append prm2 .Parameters("fechainicio").Value = fechainicio Set prm3 = .CreateParameter("fecha_fin", adDBTimeStamp, adParamInput) .Parameters.Append prm3 .Parameters("fecha_fin").Value = fechafin Set prm4 = .CreateParameter("fechamen", adInteger, adParamInput) .Parameters.Append prm4 .Parameters("fechamen").Value = fechamen End With 'Dim fields As String 'Dim i As Integer 'copy the result of the stored proc to the second row of the excel sheet 'Set rsResponses = cmdSQL.Execute 'numero_columnas = rsResponses.fields.Count ' Limpiamos el rango donde dejaremos el resultado en cada hoja 's.Range(s.Cells(primera_fila + 1, primera_columna), s.Cells(primera_fila + 2980, primera_columna + numero_columnas - 1)).ClearContents 's.Range(s.Cells(1, primera_columna), s.Cells(1, primera_columna + numero_columnas - 1)).ClearContents 'Hoja3.Range("A5").CopyFromRecordset rsResponses 's.Range(s.Cells(primera_fila + 1, primera_columna), s.Cells(primera_fila + 1, primera_columna)).CopyFromRecordset rsResponses ' cargamos los headers en cada una de las hojas 'For i = 1 To numero_columnas ' s.Cells(1, primera_columna - 1 + i).Value = rsResponses.fields(i - 1).Name 'Next i 'copy the result of the stored proc to the second row of the excel sheet Set rsResponses = cmdSQL.Execute Hoja15.Range(Hoja15.Cells(6, 1), Hoja3.Cells(6000, 300)).ClearContents Hoja15.Range(Hoja15.Cells(6, 1), Hoja3.Cells(6000, 300)).CopyFromRecordset rsResponses El error lo tengo en estas dos líneas de código, ya que no sé como capturar el procedimiento para que me asigne en una hoja en blanco, la totalidad de las tablas que extrae de SQL (Alrededor de 9 tablas) 'Hoja15.Range(Hoja15.Cells(2, 5), Hoja3.Cells(6000, 7)).NumberFormat = "0" 'Hoja15.Range(Hoja15.Cells(2, 8), Hoja3.Cells(6000, 8)).NumberFormat = "0" rsResponses.Close conn.Close Set rsResponses = Nothing Set conn = Nothing Set prm1 = Nothing Set prm2 = Nothing Set prm3 = Nothing Set prm4 = Nothing End Sub Espero puedan ayudarme. :D :D :D

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Almacenar un SPROC en hoja excel

Autor del tema castleuct
Fecha de inicio 13 Ago 2012

castleuct

New member

13 Ago 2012

Hola estimados, les cuento que tengo un código excel el cual llama a un procedimiento almacenado de mi base de datos que devuelve varias tablas temporales de datos. Por lo tanto el código me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Almacenar ruta de carpeta seleccionada como variable

Respuestas: 2

20 Ene 2023

Dante Amor M

Pregunta

Almacenar un dato de acuerdo al último día del mes

Respuestas: 2

6 Jun 2022

dawaherjesus

Pregunta

Almacenar resultado de comando de ms-dos en celdas de Excel

Respuestas: 2

2 Mar 2021

andycuba

Pregunta

Almacenar valor de celda en variable excel y leer su valor desde word.

Respuestas: 0

11 Ene 2021

joselaurentino

Pregunta

Macro para Almacenar Datos seleecionando Hoja y Fecha

Respuestas: 3

13 Mar 2020

milox0

Pregunta

almacenar datos cada vez que se ejecuta un proceso

Respuestas: 1

13 Feb 2020

jhon6666

Pregunta

almacenar numeros generados en aleatorio en un listbox

Respuestas: 2

18 May 2018

jhon6666

Pregunta

Error Validacion Listas dependientes y almacenar datos.

Respuestas: 2

20 Mar 2018

elforex

Pregunta

Macro para hacer refresh y almacenar en hoja nueva

Respuestas: 2

27 Feb 2017

jurile

Pregunta

MACRO PARA COPIAR Y ALMACENAR DATOS

Respuestas: 0

22 Jun 2015

Carolina Sato

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba