Exportar consulta para planilha Excel existente !!!

Moderador: Avelino Sampaio

leandroandrea07
Mensagens: 115
Registrado em: 02 Mai 2016, 18:06

Exportar consulta para planilha Excel existente !!!

Mensagempor leandroandrea07 » 11 Mai 2017, 18:50

Bom dia,

tenho uma planilha do Excel, com varias formulas e gráficos , e gostaria de acrescentar algumas informações.

Seria possível eu enviar uma consultar dos Access, para essa planilha, escolhendo a sheet e a célula que desejo ?

Por exemplo:
1º -Enviar a consulta AREA0 para a planilha (que já existe) "Mapa", na Sheet "AREA0" na celula "A358"
2º -Enviar a consulta AREA1 para a planilha (que já existe) "Mapa", na Sheet "AREA1" na celula "A421"
3º -Enviar a consulta AREA2 para a planilha (que ja existe) "Mapa", na Sheet "AREA2" na celula "F254"

Isso é possível ?

Tentei o comando "TransferSpreadsheet" mas não obtive resultado.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1984
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor Avelino Sampaio » 11 Mai 2017, 19:49

==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

leandroandrea07
Mensagens: 115
Registrado em: 02 Mai 2016, 18:06

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor leandroandrea07 » 12 Mai 2017, 12:29

Bom dia Avelino,

é quase isso que preciso.

O que não estou conseguindo é usar o "objSheet.Cells" para enviar uma consulta.
Preciso que ao inves de colocar uma informação na célula, eu envie um consulta para a celula determinada.

Estou tentando algo do tipo:
objSheet0.cells(8, 1).Value = "(DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "AREA0Loc", "C:\Users\xzxxnr\Desktop\Mapa.xls", False)"


Mas não estou conseguindo.

Avatar do usuário
Avelino Sampaio
Mensagens: 1984
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor Avelino Sampaio » 12 Mai 2017, 13:06

==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


leandroandrea07
Mensagens: 115
Registrado em: 02 Mai 2016, 18:06

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor leandroandrea07 » 12 Mai 2017, 15:11

Avelino,

o getString foi minha primeira opção, mas confesso que não consegui adaptar ao meu projeto, mesmo passando dias estudando e tentando. Talvez eu ainda não esteja nesse nível.

O objSheet.cells().Value tem funcionado para envio de "dados" para a célula indicada, mas confesso que não consegui uma forma de enviar uma tabela inteira.

Tentei:

Dim tbl As String
tbl = Select * From AREA0Loc
objSheet.cells(1,1).Value = tbl

Mas ele envia "Select * From AREA0Loc", como texto na célula 1, 1

Me desculpe, mas não sei onde estou errando ou o que estou deixando passar.

leandroandrea07
Mensagens: 115
Registrado em: 02 Mai 2016, 18:06

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor leandroandrea07 » 12 Mai 2017, 17:22

Avelino,

usando seu exemplo com exatidão (alterando apenas a tabela), tambem não consegui usar o getString:

Capturar.PNG
Capturar.PNG (55.12 KiB) Visto 588 vezes



Onde estou errando ?

Avatar do usuário
neros
Mensagens: 12
Registrado em: 14 Jun 2015, 03:36

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor neros » 22 Mai 2017, 04:51

Leandro, verifique se nas referências você adicionou o Microsoft Activex Data Object. Eu recomendo a versão 2.6.
Neros Systems
Desenvolvimento em Access, VBA, SQL Server, Sharepoint e Power BI.
Conheça nosso site | contato@neros.com.br

leandroandrea07
Mensagens: 115
Registrado em: 02 Mai 2016, 18:06

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor leandroandrea07 » 23 Mai 2017, 11:14

Bom dia Neros,

sim, era isso mesmo, apos adicionar na referencia o problema foi resolvido.

Mas ainda não consegui resolver a questão do envio da tabela.


Grato

Avatar do usuário
Avelino Sampaio
Mensagens: 1984
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor Avelino Sampaio » 25 Mai 2017, 14:51

Leandro,

o que eu acho estranho é vc querer inserir vários registros de uma consulta em uma única célula da planiha. É isso mesmo que vc quer , todo os registros numa única celula (Sheet) ?

Bom, vc pode usar um loop pelo recordset e assim vai inserindo as informações nas células desejadas

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

leandroandrea07
Mensagens: 115
Registrado em: 02 Mai 2016, 18:06

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor leandroandrea07 » 25 Mai 2017, 18:50

Boa tarde Avelino,

veja, tenho uma planilha de excel com varias sheets contendo Gráficos e alguns cálculos.
Uma dessas sheets, se chama "Resumo", e é dela que retiro as informações que abastecem todas as outras sheets.

Na sheet "Resumo", tenho duas tabelas geradas pelo Access (tbl1 e tbl2).

Então, preciso enviar a "tbl1" para a sheet "Resumo" a partir da célula A1 e a "tbl2" para a sheet "Resumo" a partir da célula G1.

Atualmente eu copio as tbls manualmente e colo nos locais desejados da planilha do excel. Mas como serão algumas planilhas, minha ideia era atualizar automaticamente.

Avatar do usuário
Avelino Sampaio
Mensagens: 1984
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor Avelino Sampaio » 25 Mai 2017, 19:39

Leandro,

pode oferecer uma planilha exemplo, somente com a parte resumo para eu entender melhor ?

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

leandroandrea07
Mensagens: 115
Registrado em: 02 Mai 2016, 18:06

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor leandroandrea07 » 26 Mai 2017, 12:47

Bom dia Avelino,

conforme solicitou, a planilha exemplo.
Note que temos 3 sheets, a RESUMO, a CONSOLIDADO e a AREA1.

Preciso enviar do access a tabela "0_Resultado" para a sheet "RESUMO" na célula "A1".
Enviar do access a tabela "0_ResumoItem" para a sheet "CONSOLIDAO" na célula "A1" e a tabela "0_ResumoLoc" para a mesma sheet só que para a célula "G'".

Forum.zip
(13.38 KiB) Baixado 19 vezes



Grato

Avatar do usuário
Avelino Sampaio
Mensagens: 1984
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Exportar consulta para planilha Excel existente !!!

Mensagempor Avelino Sampaio » 08 Set 2017, 17:15

Leandro,

tente utilizar o comando CopyFromRecordset. Algo assim:

Código:
strSql = "SELECT * FROM 0_resultado;"
Set Rs = CurrentDb.OpenRecordset(strSql, dbOpenForwardOnly)
If Rs.RecordCount <> 0 Then
Xls.activesheet.Range("A1").Select
Xls.ActiveCell.copyfromrecordset Rs
End If
Rs.Close
Set Rs = Nothing


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Consultas”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante