Let ReportName = "qrySample" Let ReportFilter = "RecordID = 1" Let ExcelPath = "/Bernardes/" & Session.SessionID & ".xls" Set MSAccess = Server.CreateObject("Access.Application") MSAccess.OpenCurrentDatabase Application("DB") MSAccess.DoCmd.SetWarnings False MSAccess.DoCmd.OpenReport ReportName, 2, , ReportFilter MSAccess.DoCmd.OutputTo 3, ReportName, "MicrosoftExcel(*.xls)", Server.MapPath(ExcelPath), False MSAccess.DoCmd.Close 3, ReportName, 2 MSAccess.DoCmd.SetWarnings True MSAccess.CloseCurrentDatabase MSAccess.Quit 2 Set MSAccess = Nothing
✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
VBA Access: Exportando registros para PARADOX
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
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário