MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Inserir Valores ao exportar em excel

    Compartilhe

    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 09/04/2012

    Inserir Valores ao exportar em excel

    Mensagem  jamesacdc em Qui 16 Jun 2016, 21:13

    Olá,

    Eu tenho uma consulta que exporta em Excel, e eu estou usando assim:

    Código:

    DoCmd.OutputTo acOutputQuery, "csCalculoCruzado", _
    acFormatXLS, "C:\BD\relatorios\relatorioNotas.xls", True

    DoCmd.Close acReport, "csCalculoCruzado"

    Mas eu queria inserir algum titulo no Excel e alguns campos que tenho em um formulário que faz a exportação dessa consulta.
    Eu encontrei esse código aqui no fórum, mas ele sobrepõe se eu executar antes de exportar, alguém tem uma dica pra de dar sobre isso?

    Código:

    Private Sub cmdAlterarXLSX_Click()
    'ahteixeira 2015 - maximoaccess
        Dim oExcel As Object
        Dim oBook As Object
        Dim oSheet As Object

        Set oExcel = CreateObject("Excel.Application")

        Set oBook = oExcel.Workbooks.Open(Application.CurrentProject.Path & "\AlteraFicheiroExcel.xlsx")
        oExcel.Visible = False

        Set oSheet = oBook.Worksheets(1)

        oSheet.Range("A1").Value = "maximoaccess A1"
        oSheet.Range("B1").Value = "maximoaccess A2"
       
        oBook.Save
        oBook.Close
        oExcel.Quit
       
        MsgBox "Feito, Veja ficheiro excel.", vbInformation
    End Sub


    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Inserir Valores ao exportar em excel

    Mensagem  Avelino Sampaio em Sex 17 Jun 2016, 05:43

    Olá!

    e o que acontece ao executar depois de exportar ?

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    jamesacdc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 09/04/2012

    Re: Inserir Valores ao exportar em excel

    Mensagem  jamesacdc em Qua 22 Jun 2016, 18:20

    Olá,

    Ele substitui os valores já inseridos.
    Uma solução seria inserir no final informando qual célula seria informada o valor mas o tamanho que vai ser minha lista.
    Outra solução é ao exportar informar qual célula deveria ser inserida, mas eu não sei como fazer.

      Data/hora atual: Seg 05 Dez 2016, 13:30