Olá amigos,
Observem esse código:
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?
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?