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