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


    Inserir planilha excel em consulta exportada

    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    Inserir planilha excel em consulta exportada  Empty Inserir planilha excel em consulta exportada

    Mensagem  vailson 16/11/2015, 23:06

    Olá amigos,

    Observem esse código:
    Código:
    Private Sub cmd_geraestat_Click()

    'Declarei as variáveis strConsulta e strNomePlanilha
    Dim strConsulta, strNomePLanilha

    'Na variável strConsulta eu informei o nome exato da minha consulta
    strConsulta = "_consulta190"
    'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
    strNomePLanilha = "c:\estatisticas\estatisticaporperiodo" & Format(Now, "dd-mm-yyyy") & " - " & Format(Now, "hh-nn") & ".xls"
    'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

    strConsulta = "_km_percorrido"
    strNomePLanilha = "c:\estatisticas\estatisticaporperiodo" & Format(Now, "dd-mm-yyyy") & " - " & Format(Now, "hh-nn") & ".xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

    strConsulta = "_ocorrencias"
    strNomePLanilha = "c:\estatisticas\estatisticaporperiodo" & Format(Now, "dd-mm-yyyy") & " - " & Format(Now, "hh-nn") & ".xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

    strConsulta = "_OPO"
    strNomePLanilha = "c:\estatisticas\estatisticaporperiodo" & Format(Now, "dd-mm-yyyy") & " - " & Format(Now, "hh-nn") & ".xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

    strConsulta = "_produtividade"
    strNomePLanilha = "c:\estatisticas\estatisticaporperiodo" & Format(Now, "dd-mm-yyyy") & " - " & Format(Now, "hh-nn") & ".xls"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha


    MsgBox "Estatística gerada com sucesso"

        
    End Sub

    Ele exporta algumas consultas em uma planilha do excel.
    No excel, eu criei uma planilha que formata esses valores exportados.

    Quero saber se tem como exportar essa planilha que desenvolvi junto, exemplo:

    A pasta de trabalho que esse comando gera contem as seguintes planilhas:
    _consulta190 / _km_percorrido / _ocorrencias / _OPO / _produtividade

    Quero acrescentar a planilha que criei no excel já na exportação, aí ficaria assim:
    _consulta190 / _km_percorrido / _ocorrencias / _OPO / _produtividade / TOTAL

    É possível?
    What a Face
    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    Inserir planilha excel em consulta exportada  Empty Re: Inserir planilha excel em consulta exportada

    Mensagem  vailson 27/11/2015, 14:21

    alguém?

      Data/hora atual: 8/11/2024, 01:29