Boa tarde, achei em um tópico esse código, acho que foi adaptado ainda do JPaulo,
tentei replicar e fazer algumas alterações, ta alegando hora que o arquivo não está sendo encontrado, ou foi removido.
Segue fotos com os erros
![[Resolvido]Exportar dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel Screen13](https://i.servimg.com/u/f81/20/27/88/10/screen13.jpg)
![[Resolvido]Exportar dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel Screen14](https://i.servimg.com/u/f81/20/27/88/10/screen14.jpg)
![[Resolvido]Exportar dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel Screen15](https://i.servimg.com/u/f81/20/27/88/10/screen15.jpg)
tentei replicar e fazer algumas alterações, ta alegando hora que o arquivo não está sendo encontrado, ou foi removido.
- Código:
'Declaração de variáveis
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strLivro As String
Dim xls As Object
'Transfere dados da tabela ou consulta selecionada para sheet especificada no Excel
Set xls = CreateObject("Excel.Application")
strLivro = "E:\New folder\AAAAAAAAAAA\TESTE.xlsx"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("people").Activate
strSQL = "SELECT * FROM [People];"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A2").Select
xls.ActiveCell.CopyFromRecordset rst
End Sub
Segue fotos com os erros
![[Resolvido]Exportar dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel Screen13](https://i.servimg.com/u/f81/20/27/88/10/screen13.jpg)
![[Resolvido]Exportar dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel Screen14](https://i.servimg.com/u/f81/20/27/88/10/screen14.jpg)
![[Resolvido]Exportar dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel Screen15](https://i.servimg.com/u/f81/20/27/88/10/screen15.jpg)