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

    Iniciar os dados exportados em um celula específica do excel.

    Compartilhe

    rafaelsleal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/08/2014

    Iniciar os dados exportados em um celula específica do excel.

    Mensagem  rafaelsleal em 30/8/2018, 19:48

    Pessoal fiz esse código com ajuda de todos do fórum só gostaria de melhorar com uma função se existir exemplo cada exportação dessa gostaria de iniciar na celula A14 do excel e possível fazer isso. Segue o código abaixo?


    Private Sub Comando38_Click()
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")

      Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acom_Aih_Apres_e_Pg", FileName:=CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx")
      Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acom_Aih_Rej_Resumo", FileName:=CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx")
      Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acom_Aih_Rej_Geral_Sigtap", FileName:=CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx")
      Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Cons_Acom_Aih_Capacidade", FileName:=CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx")
      'FileName:=CurrentProject.Path por FileName:="D:\Relatórios"'
     
      xlApp.Visible = True

    xlApp.Workbooks.Open CurrentProject.Path & "\" & "Relatório Prévio ou Definitivo" & ".xlsx", True, False
    Debug.Print xlApp.Version
    Set xlApp = Nothing

    'MsgBox "Exportação Realizada!!! - Arquivo Encontra-se na Raiz do Banco de Dados"'

    End Sub
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10155
    Registrado : 04/11/2009

    Re: Iniciar os dados exportados em um celula específica do excel.

    Mensagem  JPaulo em 31/8/2018, 14:15

    O que você está a fazer uma transferencia de dados em massa, de tabelas ou consultas para o Excel.
    Dessa forma não poderá definir qual a celula.

    Veja o código "Exporta para Excel" do link da minha assinatura "102-codigos-vba-para-access".

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    rafaelsleal
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/08/2014

    Re: Iniciar os dados exportados em um celula específica do excel.

    Mensagem  rafaelsleal em 3/9/2018, 16:26

    João muito obrigado!!!

    Consegui entender e resolver meu problema agora só mais uma pedido quero exportar os dados da consulta sem os cabeçalho das colunas.

    Exemplo quando exporto vem desta forma:

    Nome
    João
    Rafael
    Maria

    Gostaria que exportasse sem o cabeçalho;

    João
    Rafael
    Maria

    Isso e possível se for, por gentileza dar um exemplo.

      Data/hora atual: 15/10/2018, 20:52