Olá amigos,
Preciso da ajuda os mais experientes.
Preciso colar o resultado de uma consulta em uma deternimado excel que já tenho, porém começando em uma determinada célula (A2). A exportação também não deverá alterar a formatação do excel (largura das células, fontes, formatos, etc)
Achei o código do amigo JPaulo, porém não estou conseguindo rodar.
Acusa erro ( erram esperado 2) na linha que destaquei.
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = "caminho\nomedoarquivo"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Aba do excel").Activate
strSQL = "SELECT * FROM Nome da consulta;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A2").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
Ele até abriu o arquivo, mas não fez nada além disso.
Abç
André Lindolfo
Preciso da ajuda os mais experientes.
Preciso colar o resultado de uma consulta em uma deternimado excel que já tenho, porém começando em uma determinada célula (A2). A exportação também não deverá alterar a formatação do excel (largura das células, fontes, formatos, etc)
Achei o código do amigo JPaulo, porém não estou conseguindo rodar.
Acusa erro ( erram esperado 2) na linha que destaquei.
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = "caminho\nomedoarquivo"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Aba do excel").Activate
strSQL = "SELECT * FROM Nome da consulta;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A2").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
Ele até abriu o arquivo, mas não fez nada além disso.
Abç
André Lindolfo