MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    xxtailssxx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 08/10/2020

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

    Mensagem  xxtailssxx em 16/12/2020, 19:55

    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

    [Resolvido]Exportar  dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel Screen13
    [Resolvido]Exportar  dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel Screen14
    [Resolvido]Exportar  dados "atualziar" via (consulta ou tabela) para uma sheet específica Excel Screen15
    avatar
    xxtailssxx
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 08/10/2020

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

    Mensagem  xxtailssxx em 16/12/2020, 20:16

    Já consegui descobrir meu erro

      Data/hora atual: 21/1/2021, 23:17