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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Erro de Compilação: É impossível localizar o projeto
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Seg Mai 22, 2017 4:48 pm
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Seg Mai 22, 2017 4:48 pm
Re: Erro de Compilação: É impossível localizar o projeto
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,
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,
Re: Erro de Compilação: É impossível localizar o projeto
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.