MaximoAccess

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

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
    avatar
    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 Sex 17 Jun 2016, 01: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

    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Inserir Valores ao exportar em excel

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

    Olá!

    e o que acontece ao executar depois de exportar ?

    Aguardamos
    avatar
    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, 22: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: Ter 26 Set 2017, 21:01