Erro em tempo de execução '1004'

eder_benitez
Membro
Membro
Status:
Mensagens: 16
Registro: 29 Mai 2010
Karma: [1] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Erro em tempo de execução '1004'

Mensagem por eder_benitez » 01 Jun 2010

Boa tarde Pessoal.

Tenho uma planilha que fica aberta, atualizando com o banco de dados e gerando arquivo para exibição para WEB.

Porém, em um intevalor de 1 hora, ou até mesmo 12h, aparece a msg

"""Erro em tempo ed execução '1004'
O método 'Publish' do objeto 'PublishObjetc' falhou...""""

Quando clico em OK, minha macro que grava na web para de funcionar e tenho q executala novamente.
Alguem tem alguma idéia do que possa ser para eliminar esta msg?????
Vejam os codigos das macros que possui esta planilha:

1)Macro para atualizar:
Sub Atualiza()
'
' Atualiza Macro
' Atualiza dados da planilha
'
' Atalho do teclado: Ctrl+Shift+A
Vendas = ActiveWorkbook.Name
Workbooks(Vendas).Activate
ActiveWorkbook.RefreshAll
' Call Application.Ontime(Now + TimeValue("00:00:10"), "Atualiza")
End Sub
----------------------
2) Macro geração arquivo Web:
Sub grava_web()
' grava_web Macro
Dim planAtiva As Worksheet
Application.ScreenUpdating = False
Set planAtiva = ActiveSheet
Vendas = ThisWorkbook.Name
Workbooks(Vendas).Activate
'Plan5.Select '

With ThisWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Planilhas NBS\Resumo de Vendas\pagina\vendas.htm", "Geral", "$B$1:$U$23", _
xlHtmlStatic, "vendas_27681", "")
.Publish (True)
.AutoRepublish = True
End With
ChDir "C:\Planilhas NBS\Resumo de Vendas\pagina"
Call Application.OnTime(Now + TimeValue("00:00:59"), "grava_web")
ThisWorkbook.RefreshAll
planAtiva.Activate 'Retorna para a planilha atual
Application.ScreenUpdating = True 'Volta a atualizar

End Sub
------------------------------

Avatar de usuário
tiagoKS
Membro
Membro
Status:
Mensagens: 13
Registro: 04 Jun 2010
Karma: [1] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Erro em tempo de execução '1004'

Mensagem por tiagoKS » 04 Jun 2010

Bom dia Eder, fiz uma simulação com seu código por mais de 24h e a execução se manteve estável, andei pesquisando sobre o erro em tempo de execução 1004 e verifiquei que o mesmo ocorre devido a 'sujeiras' no registro do Windows, rode um bom Cleaner de registro no PC onde esta planilha é executada e creio que voce não terá mais problemas.

:D
TiagoKS
:D
TiagoKS

Se achou que a mensagem foi útil, vote positivamente no meu Karma(mãozinha verde do lado esquerdo)

eder_benitez
Membro
Membro
Status:
Mensagens: 16
Registro: 29 Mai 2010
Karma: [1] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Erro em tempo de execução '1004'

Mensagem por eder_benitez » 04 Jun 2010

Obrigado Tiago.
Encontrei outro médodo para ignorar este erros.
"On Error Resume Next."
no inicio das macros.
Por enquanto, faz 3 dias q nao da problemas.

Avatar de usuário
tiagoKS
Membro
Membro
Status:
Mensagens: 13
Registro: 04 Jun 2010
Karma: [1] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Erro em tempo de execução '1004'

Mensagem por tiagoKS » 04 Jun 2010

Ótimo, realmente o 'On Error Resume Next' vai funcionar.

Até

TiagoKS
:D
TiagoKS

Se achou que a mensagem foi útil, vote positivamente no meu Karma(mãozinha verde do lado esquerdo)


Retornar para Excel

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes

PUBLICIDADE