Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Erro em tempo de execução '91'

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
OFMAR



Mensagens : 4
Data de inscrição : 18/09/2012
Localização : salvador

MensagemAssunto: Erro em tempo de execução '91'   Qui Set 20, 2012 11:38 pm

Alguem poderia me informar qual o erro nesta linha de código?

WkbName = Application.CommandBars.ActionControl.Parameter

Aparece a seguinte mensagem:

"Erro em tempo de execução '91'"
"A variável do objeto ou a variável do bloco "With" não foi definida".

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Erro em tempo de execução '91'   Sex Set 21, 2012 1:32 pm

Bom dia!!

Mande todo seu código onde houve o erro.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
OFMAR



Mensagens : 4
Data de inscrição : 18/09/2012
Localização : salvador

MensagemAssunto: Re: Erro em tempo de execução '91'   Sex Set 21, 2012 5:11 pm

Este código entrará com o procedimento referente ao item de menu que foi clicado, baseado na referencia .Parameter.
Daí ele vai abrir outra paste de trabalho e executar o respecitivo procedimento. quando vou fazer o teste, aparece a mensagem de que não consegue achar o procedimento naquela pasta de trabalho.

Sub RunUtility()
Dim WkbName As String
Dim ProcName As String

WkbName = Application.CommandBars.ActionControl.Parameter
If WkbName = "" Or WkbName = "ThisWorkbook" Then WkbName = ThisWorkbook.Name
ProcName = Application.CommandBars.ActionControl.Tag
On Error GoTo WkbNotFound
If Not IsBookOpen(WkbName) Then
Workbooks.Open ThisWorkbook.Path & Application.PathSeparator & WkbName
End If

On Error GoTo ProcNotFound
Application.Run WkbName & "!" & ProcName
Exit Sub

WkbNotFound:
MsgBox "Cannot Find workbook" & WkbName & "in" & ThisWorkbook.Path, vbCritical, "Test Add-In"

Exit Sub

ProcNotFound:
MsgBox "Cannot find procedure" & ProcName & "in" & WkbName, vbCritical, "Test Add-In"
Exit Sub
End Sub

Private Function IsBookOpen(sWkbName) As Boolean
Dim sName As String
On Error GoTo WkbNotOpen

IsBookOpen = True
sName = Workbooks(sWkbName).Name

Exit Function

WkbNotOpen:
IsBookOpen = False

End Function
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Erro em tempo de execução '91'   Hoje à(s) 5:16 am

Voltar ao Topo Ir em baixo
 
Erro em tempo de execução '91'
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Criando componentes em tempo de execução no Delphi!
» Erro em tempo de execução "6" / Estouro
» Erro em tempo de execução "48"
» Erro em tempo de execução '438': O objeto não aceita esta propriedade ou método.
» [RESOLVIDO] "A execução foi interrompida devido a um erro em tempo de execução"

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: