MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Ajuda com código - Exportar consulta para excel começando em determinada célula

    avatar
    andre lindolfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

    [Resolvido]Ajuda com código - Exportar consulta para excel começando em determinada célula Empty Ajuda com código - Exportar consulta para excel começando em determinada célula

    Mensagem  andre lindolfo 4/7/2012, 19:25

    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
    avatar
    Daluque
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 186
    Registrado : 06/03/2012

    [Resolvido]Ajuda com código - Exportar consulta para excel começando em determinada célula Empty Re: [Resolvido]Ajuda com código - Exportar consulta para excel começando em determinada célula

    Mensagem  Daluque 4/7/2012, 22:09

    O próprio JPaulo me ajudou em questão semelhante. veja:

    http://maximoaccess.forumeiros.com/t8185-resolvidoexportar-para-excel-iniciando-em-celula-especifica-e-cabecalho-da-coluna

    Vê se te ajuda tambem.
    abraços


    .................................................................................
    Daluque

    Office 2003
    avatar
    andre lindolfo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 17/04/2012

    [Resolvido]Ajuda com código - Exportar consulta para excel começando em determinada célula Empty Re: [Resolvido]Ajuda com código - Exportar consulta para excel começando em determinada célula

    Mensagem  andre lindolfo 24/9/2012, 18:10

    Oi Fiz uma macro no excel e chamo-a pelo aceess...


    .................................................................................
    Abraço

    André Lindolfo

    ACCESS Professional Plus 2010

      Data/hora atual: 15/8/2022, 12:57