[Resolvido]Exportar dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel

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.

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

Já consegui descobrir meu erro