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


    Abrir, salvar e fechar planilha excel pelo Access

    avatar
    lourival
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/10/2011

    Abrir, salvar e fechar planilha excel pelo Access Empty Abrir, salvar e fechar planilha excel pelo Access

    Mensagem  lourival em 11/3/2019, 16:43

    Boa tarde Pessoal!

    Estou precisando de ajuda de voces, preciso Abrir, salvar e fechar planilha excel chamada Geral pelo Access clicando em um botão num formulario, tem como?

    antecipadamente agradeço a ajuda!

    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1121
    Registrado : 18/07/2012

    Abrir, salvar e fechar planilha excel pelo Access Empty Abrir, salvar e fechar planilha excel pelo Access

    Mensagem  toyebom em 11/3/2019, 22:39

    Vê se é isto

    maximoaccess.com/t35419-exportar-para-folha-expecifica-excel


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 22/11/2016

    Abrir, salvar e fechar planilha excel pelo Access Empty Re: Abrir, salvar e fechar planilha excel pelo Access

    Mensagem  IvanJr. em 12/3/2019, 03:25

    Exemplo

    Código:
    Public Sub fncAbrirSalvarFecharExcel()

    'em caso de erro vá para o ponto do procedimento chamado "trataerro"
    On Error GoTo trataerro

        'variável para um objeto excel
        Dim xls As Object
       
        'instanciando o excel
        Set xls = CreateObject("Excel.Application")
       
        'abrindo o arquivo
        xls.Workbooks.Open ("c:\pasta(s)\arquivo.xls(x)")
       
        'mostrando excel
        xls.Visible = True
       
        'garantindo que a planilha ativa seja a primeira
        xls.WorkSheets(1).Activate
       
        'salvando
        xls.ActiveWorkbook.Save
       
        'fechando o excel instanciado
        xls.Application.Quit
       
    'ponto do procedimento chamado "sair"
    sair:

        'descarregando a variável da memória
        Set xls = Nothing

        'finalizando o procedimento
        Exit Sub
       
    'ponto do procedimento chamado  "trataerro"
    trataerro:

        'mensagem com a descrição do erro ocorrido
        MsgBox Err.Description, vbCritical, "Erro " & Err.Number
       
        'indo para o ponto do procedimento chamado "sair"
        Resume sair:

    End Sub


    .................................................................................
    Sempre tente entender o código, não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    Abrir, salvar e fechar planilha excel pelo Access Empty Re: Abrir, salvar e fechar planilha excel pelo Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/9/2019, 08:03