conexión de base de datos, recuperar datos de base de datos, consulta de datos en Excel con VBA DAO El código VBA realiza una conexión de base de datos y recupera datos llamando y dando entrada a la consulta de bases de datos existentes.
Explicación Una conexión de base de datos se establece a través de la macro VBA y una consulta que está todo listo creados y almacenados en la base de datos se ejecuta. La consulta también se crea para recuperar datos de dos parámetros diferentes. Los parámetros pueden ser excluidos en caso de recuperar todos los datos de una consulta sin filtros específicos. Este tipo de conexión de base de datos se puede establecer a todos los sistemas de negocios y puede ahorrar tiempo y dinero al eliminar el tiempo de transferencia manual de datos que consumen.
Con el fin de hacer que el código VBA de trabajo la siguiente referencia debe ser permitido "Microsoft DAO 3.6 Object Library".
Todo el programa de VBA se puede descargar en un archivo de Excel al final de esta página web o simplemente copiar y pegar el código directamente desde la página!
Código Public Sub database_connection_retrieve_data_from_database_querying_data_into_excel_using_VBA_DAO()
Dim Database_RetrieveData_VBA_Excel As String
Dim Query_RetrieveData_VBA_Excel As String
Dim Parameter1_RetrieveData_VBA_Excel As String
Dim Parameter2_RetrieveData_VBA_Excel As String
Dim DAO_Connection_RetrieveData_VBA_Excel As String
Database_RetrieveData_VBA_Excel = Range("G3").Value
Query_RetrieveData_VBA_Excel = Range("G4").Value
Parameter1_RetrieveData_VBA_Excel = Range("G5").Value
Parameter2_RetrieveData_VBA_Excel = Range("G6").Value
DAO_Connection_RetrieveData_VBA_Excel = 0
DB1 = DBEngine.OpenDatabase(Database_RetrieveData_VBA_Excel)
Set QD1 = DB1.QueryDefs(Query_RetrieveData_VBA_Excel)
QD1.Parameters("p1") = Parameter1_RetrieveData_VBA_Excel
QD1.Parameters("p2") = Parameter2_RetrieveData_VBA_Excel
Set RS1 = QD1.OpenRecordset(dbOpenSnapshot, dbReadOnly)
Range("b11").Offset(0, 0).CopyFromRecordset RS1
RS1.Close
QD1.Close
DB1.Close
End Sub
Descargar archivo de Excel!base de datos de la conexión recuperar los datos desde bases de datos, consulta de datos-en-excel-using-VBA-DAO.xls |
