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

    Abrir, salvar e fechar planilha excel pelo Access

    avatar
    lourival
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  lourival Seg Mar 11, 2019 1:43 pm

    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 : Respeito às Regras 100%

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

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

    Mensagem  toyebom Seg Mar 11, 2019 7:39 pm

    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.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2902
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. Ter Mar 12, 2019 12:25 am

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    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.

      Data/hora atual: Qui Jul 29, 2021 10:09 am