See much more in:
http://inanyplace.blogspot.com.br
Exportando registros a partir de uma query do MS Office Access para o banco de dados Paradox. Como posso fazê-lo?
Geralmente utilizo um query com dados a partir do MS Office Excel (*.xls), mas hoje quero enviar dados de planilhas que conectei ao MS Office Access.
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