Um dos meus colegas de trabalho tem 9 pastas de trabalho do Excel que consultam um servidor de produção, organizam os dados e geram .mhts como 'Painéis' para trabalhadores de produção.
Alguns deles consultam a cada 3 minutos, outros apenas a cada hora.
Vemos 2 erros gerais.
Este
e este
que na verdade ocorre após um erro "Consulta Web inválida" com apenas um botão "OK".
Isso não é realmente um problema neste momento, pois raramente acontece e somente quando o arquivo que está lendo está bloqueado.
O primeiro erro só acontece ao salvar quando o arquivo de destino está bloqueado. Coloquei Application.DisplayAlerts = False
antes de cada macro salvada em cada livro, mas ele não eliminou o erro principal.
Tentei colocar um arquivo intermediário na bagunça e não tive melhora.
Hoje eu tenteiisso no AutoITe pode eliminar o segundo erro, mas falha com todas (tenho certeza) combinações de 'chaves', como diz o autor.
Funciona se eu procurar o Excel em geral, mas isso também mata minha planilha.
Posso clicar e clicar em "Não mostrar..." todas as vezes, mas quando enviamos atualizações para este computador e o reiniciamos, esses erros voltam e pode levar dias para que todos os conflitos apareçam.
O que posso fazer para resolver isso?
Responder1
Possível solução em teste - cercando ActiveWorkbook.Save com a instrução If abaixo e usando outro sub para pausar.
Sub PUBLISH()
'Call TIME
Application.DisplayAlerts = False
If GetAttr("Z:\CHGME\_Production Scheduling\ADMIN\7 Day WIP.mht") And vbReadOnly Then
Application.Run "Sheet1.WAITtoPUBLISH"
Else
ActiveWorkbook.Save
End If
End Sub
`Private Sub WAITtoPUBLISH()
Application.OnTime Now() + TimeValue("00:00:30"), "PUBLISH"
End Sub
Já está aguentando há 2 dias. Ainda posso quebrá-lo no momento certo, então a opção “Aguardar para fechar” pode ser a solução a longo prazo.