Atualização Automát...
 
Notifications
Clear all

Atualização Automática de Formulários no Excel

4 Posts
2 Usuários
0 Reactions
1,385 Visualizações
(@celo9716)
Posts: 0
New Member
Topic starter
 

Olá gente, estou criando um sistema, em vba pelo excel que vai verificar se existe um arquivo na rede numa certa pasta exemplo(Userform1), e se este arquivo existir, eu vou apagar oque está na pasta de trabalho atual do excel que possui este nome e vou reimporta-lo, para isto estou usando o seguinte trecho de código:


sub teste

NameOfFile = "SGCH - KDSC.xlsm"



Call quinto

end sub


Function quinto()

ModuleFile = "\DOMAIN2PrivateUTPCandidate TrackingVBComponentsUserForm1.frm"

'quinto
frmUpdate.Label2.Caption = "Atualizando arquivo: Userform1"
frmUpdate.Repaint


temarquivo = False

nomearquivo = ModuleFile

Call Verifica_Arquivo

If temarquivo = True Then

Set VBP = Workbooks(NameOfFile).VBProject
With VBP.VBComponents
    .Remove VBP.VBComponents("Userform1")
    Unload frmStatus
    DoEvents
    .Import ModuleFile
End With

End If

End Function

porém ao tentar reimportar o formulário recebo o erro 60061
Errors during load. Refer to ‘\DOMAIN2PrivateUTPCandidate TrackingVBComponentsUserForm1.log’ for details

E dentro desse arquivo de log consta a seguinte mensagem:

Line 2: The Form or MDIForm name UserForm1 is already in use; cannot load this form.

Alguem sabe oque está acontecendo e pode me ajudar? É como se após apagar o formulário antigo na hora que eu vou reimportar não consta que eu apaguei ainda... Como se o workbook não tivesse atualizado ou coisa do tipo...

 
Postado : 13/01/2017 6:02 am
(@mprudencio)
Posts: 0
New Member
 

Mas pq apagar o formulario?

Nao entendi.

Poste um exemplo do seu arquivo.

 
Postado : 13/01/2017 8:33 am
(@celo9716)
Posts: 0
New Member
Topic starter
 

Pra atualiza-lo por uma versão mais recente.....tipo.. todos que tiverem no diretório especificado serão as versões mais recentes, que quando o sistema abrir vai sempre pegar os arquivos daquele caminho de rede por serem os mais recentes...e vai subistituir os atuais do workbook por eles...

 
Postado : 13/01/2017 10:06 am
(@mprudencio)
Posts: 0
New Member
 

Amigao é necessario ter tudo que vc possui se é um userform ele precisa abrir entao é preciso do arquivo em xlsm para funcionar.

E preciso alguns dados tb...

 
Postado : 22/01/2017 9:15 am