Atualizar Tabela Dinâmica via Access

Moderador: Avelino Sampaio

marcos.vinicius
Mensagens: 3
Registrado em: 07 Jul 2015, 02:57

Atualizar Tabela Dinâmica via Access

Mensagempor marcos.vinicius » 01 Out 2015, 15:15

Olá pessoal!

Tenho um Excel vinculado a um SharePoint.

Eu consigo via Access, atualizar a dinâmica nesse Excel sem que ele abra o arquivo ou trave ???

Pergunto pq meu bd é usado por muitas pessoas, portanto este arquivo seria "lido" muitas vezes por usuários diferentes...

Tenho este código mas ele está bloqueando o arquivo e abrindo ele assim que o primeiro usuário fecha o banco...

Código:
Sub AtualizarAprovTelem()

Dim objXL As Object, x

On Error Resume Next

Set objXL = CreateObject("Excel.Application")
With objXL.Application
.Visible = False
'Open the Workbook
.Workbooks.Open gDirExcelAprovTelem

x = .ActiveWorkbook.RefreshAll

.DisplayAlerts = False
DoEvents
.ActiveWorkbook.SaveAs FileName:=gDirExcelAprovTelem
.DisplayAlerts = False
.Workbooks.Close
.Visible = False
End With
Set objXL = Nothing

End Sub

Disable adblock

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


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

Re: Atualizar Tabela Dinâmica via Access

Mensagempor Avelino Sampaio » 03 Out 2015, 07:50

Marcos, benvindo a REDE!

Acrescente o quit para fechar o aplicativo e veja se resulta:

Código:
Sub AtualizarAprovTelem()
Dim objXL As Object, x
On Error Resume Next

Set objXL = CreateObject("Excel.Application")
With objXL.Application
.Visible = False
'Open the Workbook
.Workbooks.Open gDirExcelAprovTelem

x = .ActiveWorkbook.RefreshAll

.DisplayAlerts = False
DoEvents
.ActiveWorkbook.SaveAs FileName:=gDirExcelAprovTelem
.DisplayAlerts = False
.Workbooks.Close
.quit
End With
Set objXL = Nothing
End Sub


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

marcos.vinicius
Mensagens: 3
Registrado em: 07 Jul 2015, 02:57

Re: Atualizar Tabela Dinâmica via Access

Mensagempor marcos.vinicius » 04 Out 2015, 03:25

Obrigado pela rápida resposta!

Mas mesmo assim o problema continua...
ele continua exibindo a mensagem:

"Esta ação não pode ser concluída porque o aplicativo XPTO.xlsx [Somente Leitura] está ocupado."

e assim que o outro usuário fecha a aplicação eu recebo a notificação de arquivo liberado..

o estranho é que tenho um outro arquivo onde faço a mesma coisa sem problemas, mas neste não sei o que tem de diferente...

:|

marcos.vinicius
Mensagens: 3
Registrado em: 07 Jul 2015, 02:57

Re: Atualizar Tabela Dinâmica via Access

Mensagempor marcos.vinicius » 15 Out 2015, 19:20

Não sei se ajuda, mas o Office é 2013...

Disable adblock

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



Voltar para “Access x Excel”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes