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

    sistema exporta e importar exel via vba

    avatar
    hillgp
    Novato
    Novato

    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 em Qua Mar 15, 2017 1:08 pm

    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 Qui Mar 16, 2017 12:38 pm, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves em Qua Mar 15, 2017 9:24 pm

    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: Dom Maio 31, 2020 10:21 pm