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


2 participantes

    sistema exporta e importar exel via vba

    avatar
    hillgp
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 02/04/2014

    sistema exporta e importar exel via vba Empty sistema exporta e importar exel via vba

    Mensagem  hillgp 15/3/2017, 13:08

    Ola pessoal estou tentando criar esse sistema mais estou com dificuldades em importar a planilha gerada
    Outra questão e que gostaria de escolher o local a ser salva esta planinha Alguem poderia me ajudar nesse Projeto ??? algum exemplo !!
    segue o código:

    Private Sub btn_Exportar_Click()

    On Error GoTo Err_btn_Exportar_Click
    'Declarei as variáveis strConsulta e strNomePlanilha
    Dim strConsulta, strNomePLanilha

    '1º Na variável strConsulta = consulta
    '2º Na varivável strNomePlanilha = local e o nome do arquivo a ser gerado.
    '3º Exporta a consulta em um arquivo de excel.

    strConsulta = "cs_Equipe" '1º
    strNomePLanilha = "c:/dados.xls" '2º Aqui gostaria de escolher o local para salvar o aquivo e o nome do mesmo
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, True, strNomePLanilha '3º

    strConsulta = "cs_Ocorrencia"
    strNomePLanilha = "c:/dados.xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, True, strNomePLanilha

    strConsulta = "cs_Funcionario"
    strNomePLanilha = "c:/dados.xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, True, strNomePLanilha
    MsgBox "Tabelas Exportada com Sucesso!"

    Exit_btn_Exportar_Click:
       Exit Sub

    Err_btn_Exportar_Click:
       MsgBox Err.Description
       Resume Exit_btn_Exportar_Click
       
    End Sub


    Private Sub btn_importa_Click()
    '??????
    On Error GoTo Err_btn_Exportar_Click
    'Declarei as variáveis strConsulta e strNomePlanilha
    Dim strConsulta, strNomePLanilha

    '1º Na variável strConsulta = consulta
    '2º Na varivável strNomePlanilha = local e o nome do arquivo a ser gerado.
    '3º Exporta a consulta em um arquivo de excel.

    strConsulta = "cs_Equipe" '1º
    strNomePLanilha = "c:/dados.xls"  Question '2º Aqui gostaria de escolher o local para Importar o aquivo e o nome do mesmo
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha  '3º

    strConsulta = "cs_Ocorrencia"
    strNomePLanilha = "c:/dados.xls"
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

    strConsulta = "cs_Funcionario"
    strNomePLanilha = "c:/dados.xls"
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha
    MsgBox "Tabelas Exportada com Sucesso!"

    Exit_btn_Exportar_Click:
       Exit Sub
     
               

    Rolling Eyes   Idea          Aqui o Projeto  =====   banco
    Question


    Última edição por hillgp em 16/3/2017, 12:38, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    sistema exporta e importar exel via vba Empty Re: sistema exporta e importar exel via vba

    Mensagem  Alexandre Neves 15/3/2017, 21:24

    Boa noite
    Adeqúe o título. Respeite as regras. Escrever em maiúsculas significa gritar


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 28/3/2024, 15:18