VBA Access - Exportando registros para PARADOX - Exporting Records to Paradox Database

Exportando registros a partir de uma query do MS Office Access para o banco de dados Paradox. Como posso fazê-lo? Utilizo query com dados a partir do MS Office Excel (*.xls), mas hoje quero enviar dados de planilhas que conectei ao MS Access para uso com MS Excel

 15.01.2025 

' Inicializa as variáveis para o nome do relatório, filtro e caminho do Excel

Dim ReportName, ReportFilter, ExcelPath, MSAccess

' Definindo os valores das variáveis

ReportName = "qrySample" ' Nome do relatório

ReportFilter = "RecordID = 1" ' Filtro a ser aplicado ao relatório

ExcelPath = "/Bernardes/" & Session.SessionID & ".xls" ' Caminho do arquivo Excel

' Cria uma instância do Microsoft Access

Set MSAccess = Server.CreateObject("Access.Application")

' Abre o banco de dados Access atual

MSAccess.OpenCurrentDatabase Application("DB")

' Desativa as mensagens de aviso do Access para evitar prompts durante a execução

MSAccess.DoCmd.SetWarnings False

' Abre o relatório no Access com o filtro aplicado

MSAccess.DoCmd.OpenReport ReportName, 2, , ReportFilter

' Exporta o relatório para Excel (formato .xls)

MSAccess.DoCmd.OutputTo 3, ReportName, "MicrosoftExcel(*.xls)", Server.MapPath(ExcelPath), False

' Fecha o relatório depois de exportado

MSAccess.DoCmd.Close 3, ReportName, 2

' Restaura as mensagens de aviso do Access

MSAccess.DoCmd.SetWarnings True

' Fecha o banco de dados Access

MSAccess.CloseCurrentDatabase

' Encerra a aplicação Access

MSAccess.Quit 2

' Libera o objeto MSAccess da memória

Set MSAccess = Nothing

 Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 Série de Livros nut Project 

  

 PUDIM PROJECT