Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro de Compilação: É impossível localizar o projeto

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
mem.vermelha
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Seg Mai 22, 2017 4:48 pm

Erro de Compilação: É impossível localizar o projeto

Mensagem por mem.vermelha »

Boa tarde,

Peço desculpas pelo meu conhecimento inexistente em VBA, mas estou apanhando horrores para fazer um formulário no Excel. Achei o modelo de Aplicativo de Cadastro, mas uso Excel 2010.. consegui vencer o erro do Declare, mas agora ao clicar em abrir, recebo o seguinte erro:
Private Sub DefinePlanilhaDados()
Dim abrirArquivo As Boolean
Dim wb As Workbook
Dim caminhoCompleto As String
Dim ARQUIVO_DADOS As String
Dim PASTA_DADOS As String

abrirArquivo = True

ARQUIVO_DADOS = Range("ARQUIVO_DADOS").Value
PASTA_DADOS = Range("PASTA_DADOS").Value

If ThisWorkbook.Name <> ARQUIVO_DADOS Then
'monta a string do caminho completo
If PASTA_DADOS = vbNullString Or PASTA_DADOS = "" Then
caminhoCompleto = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, vbNullString) & ARQUIVO_DADOS
Else
If Right(PASTA_DADOS, 1) = "\" Then
caminhoCompleto = PASTA_DADOS & ARQUIVO_DADOS
Else
caminhoCompleto = PASTA_DADOS & "\" & ARQUIVO_DADOS
End If
End If

'verifica se o arquivo não está aberto
For Each wb In Application.Workbooks
If wb.Name = ARQUIVO_DADOS Then
abrirArquivo = False
Exit For
End If
Next

'atribui o arquivo
If abrirArquivo Then
Set wbCadastro = Workbooks.Open(Filename:=caminhoCompleto, ReadOnly:=True)
Else
Set wbCadastro = Workbooks(ARQUIVO_DADOS)
End If
Else
Set wbCadastro = ThisWorkbook
End If

Set wsCadastro = wbCadastro.Worksheets(nomePlanilhaCadastro)

'oculta o arquivo de dados
wbCadastro.Windows(1).Visible = False

End Sub

Deixei o arquivo na mesma pasta.. alguem me socorre?

Abraços,
Audrey


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro de Compilação: É impossível localizar o projeto

Mensagem por webmaster »

Em qual linha o erro ocorre?


mem.vermelha
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Seg Mai 22, 2017 4:48 pm

Re: Erro de Compilação: É impossível localizar o projeto

Mensagem por mem.vermelha »

Oi Tomás,
Quando eu solicito para depurar, ele sinaliza em amarelo a linha
Private Sub DefinePlanilhaDados()

E depois:
If Right(PASTA_DADOS, 1) = "\" Then

Não consegui entender o erro.. não alterei absolutamente nada do exemplo disponibilizado.. só resolvi aquela questão do 64 bits, com a solução que encontrei pesquisando no fórum mesmo.

Obrigada,


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Erro de Compilação: É impossível localizar o projeto

Mensagem por webmaster »

Primeiro, verifique se o range nomeado PASTA_DADOS existe, a qual célula ele faz referência e qual o valor dessa célula. Isso nos dará uma ideia do que pode ser o erro.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder