Accediendo a la base de datos SQL en Excel-VBA
Estoy copiando un fragmento de código VBA de MSDN que me muestra cómo capturar resultados de una consulta SQL en una hoja de Excel (Excel 2007):
Sub GetDataFromADO()
'Declare variables'
Set objMyConn = New ADODB.Connection
Set objMyCmd = New ADODB.Command
Set objMyRecordset = New ADODB.Recordset
'Open Connection'
objMyConn.ConnectionString = "Provider=SQLOLEDB;Data Source=localhost;User ID=abc;Password=abc;"
objMyConn.Open
'Set and Excecute SQL Command'
Set objMyCmd.ActiveConnection = objMyConn
objMyCmd.CommandText = "select * from myTable"
objMyCmd.CommandType = adCmdText
objMyCmd.Execute
'Open Recordset'
Set objMyRecordset.ActiveConnection = objMyConn
objMyRecordset.Open objMyCmd
'Copy Data to Excel'
ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset)
End Sub
Ya he agregado Microsoft ActiveX Data Objects 2.1 Library como referencia. Y esta base de datos es accesible.
Ahora, cuando ejecuto esta subrutina, tiene un error:
Error en tiempo de ejecución 3704: la operación no está permitida cuando el objeto está cerrado.
En la declaración:
ActiveSheet.Range("A1").CopyFromRecordset (objMyRecordset)
¿Alguna idea de por qué?
Gracias.