librerias dll para el sig. codigo!!

28/02/2005 - 19:53 por JAVIER | Informe spam
hola amigos haber quien puede ayudarme para adaptar esta macro. saludos


Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim recCampo As ADODB.Field
Dim strDB, strSQL As String
Dim i As Long
'ruta al archivo Excel (la base de datos)
'strDB = ThisWorkbook.Path & "\" & "MiArchivoExcel.xls"
strDB = "C:\bdfinanzas\Base05.xls" 'si en otra carpeta
'conectarSet
datConnection = New ADODB.Connection aqui se me detiene la macro
Set recSet = New ADODB.Recordset
datConnection.Open "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & strDB
'consulta SQL
'strSQL = "SELECT * FROM [NuestroRango]"
strSQL = "SELECT * FROM [GopDatA$A1:w2000]"
'abrimos el recordset
recSet.Open strSQL, datConnection, adOpenStatic
'copiar datos
ActiveSheet.Cells.ClearContents
ActiveSheet.Cells(2, 1).CopyFromRecordset recSet
'copiar rotulos (campos)
i = 1
For Each recCampo In recSet.Fields
ActiveSheet.Cells(1, i) = recCampo.Name: i = i + 1
Next recCampo
'desconectar
recSet.Close
datConnection.Close
Set recSet = Nothing
Set datConnection = Nothing
End Sub
 

Leer las respuestas

#1 Lord Voldemort
28/02/2005 - 22:20 | Informe spam
debes instalar bajar e instalar el siguiente archivo
es para manejar las conexiones de datos

Microsoft Data Access Components (MDAC) 2.8
Microsoft Data Access Components (MDAC) 2.8 instala los mismos
components principales de Data Access que Microsoft SQL Server el
proveedor OLE DB, el controlador ODBC.

aqui esta el link.

http://www.microsoft.com/downloads/...laylang=es

saludos

Voldemort ha vuelto

JAVIER wrote:
hola amigos haber quien puede ayudarme para adaptar esta macro. saludos


Dim datConnection As ADODB.Connection
Dim recSet As ADODB.Recordset
Dim recCampo As ADODB.Field
Dim strDB, strSQL As String
Dim i As Long
'ruta al archivo Excel (la base de datos)
'strDB = ThisWorkbook.Path & "\" & "MiArchivoExcel.xls"
strDB = "C:\bdfinanzas\Base05.xls" 'si en otra carpeta
'conectarSet
datConnection = New ADODB.Connection aqui se me detiene la macro
Set recSet = New ADODB.Recordset
datConnection.Open "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & strDB
'consulta SQL
'strSQL = "SELECT * FROM [NuestroRango]"
strSQL = "SELECT * FROM [GopDatA$A1:w2000]"
'abrimos el recordset
recSet.Open strSQL, datConnection, adOpenStatic
'copiar datos
ActiveSheet.Cells.ClearContents
ActiveSheet.Cells(2, 1).CopyFromRecordset recSet
'copiar rotulos (campos)
i = 1
For Each recCampo In recSet.Fields
ActiveSheet.Cells(1, i) = recCampo.Name: i = i + 1
Next recCampo
'desconectar
recSet.Close
datConnection.Close
Set recSet = Nothing
Set datConnection = Nothing
End Sub

Preguntas similares