VBA excel2007 erro em excel2003

deejaywesley · 28 de dezembro de 2012

Boa tarde galera!

Terminei um planilha pra um locutor aqui do meu trabalho fazer o programa dele

e facilitar a minha vida, so que o VBA ta dando um problema, porque criei a planilha em office2007 e o office do computador dele aqui na radio é 2003...

alguem pode corrigir ele pra mim...

aqui esta os 2 problemas que aparecem!

Erro de compilação:
è impossível localizar o projeto ou a biblioteca

Private Sub Workbook_Open()
'Dim What As String

Sheets("Roberto Carlos").[G1] = "\\Reservaam\D\W&SL&Y\ARQUiVOMUSiCAL\Roberto Carlos\"

Sheets("Roberto Carlos").[H1] = "=G1&F1"

Sheets("Seleção da Saudade").[G1] = "\\Jornaledicao01\C\ARQUIVOS LIBERADOS\Campos\pendrive Campos\"

Sheets("Seleção da Saudade").[H1] = "=G1&F1"

Dim What As String

On Error Resume Next

x = 2

What = Dir("\\Jornaledicao01\C\ARQUIVOS LIBERADOS\Campos\pendrive Campos\*.*")

While Not What = ""

If x > 2 Then

What = Dir

End If

Debug.Print What

If What <> "" Then

Sheets("Seleção da Saudade").Range("D" & x).Value = What

x = x + 1

End If

Wend

On Error Resume Next

y = 2

What = Dir("\\Reservaam\D\W&SL&Y\ARQUiVOMUSiCAL\Roberto Carlos\*.*")

While Not What = ""

If y > 2 Then

What = Dir

End If

Debug.Print What

If What <> "" Then

Sheets("Roberto Carlos").Range("D" & y).Value = What

y = y + 1

End If

Wend

End Sub

quando da o erro fica marcado essa parte x = 2

e esse é o outro!

Erro de compilação:
è impossível localizar o projeto ou a biblioteca

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Roberto Carlos").WindowsMediaPlayer1.URL = Range("W1")

Sheets("Seleção da Saudade").WindowsMediaPlayer2.URL = Range("W1")

Sheets("Roberto Carlos").[A2:A1000] = Clear

Sheets("Roberto Carlos").[C2:D1000] = Clear

Sheets("R C").[A2:A1000] = Clear

Sheets("Seleção da Saudade").[A2:A2000] = Clear

Sheets("Seleção da Saudade").[C2:D2000] = Clear

Sheets("S da S").[A2:A2000] = Clear

ThisWorkbook.Save

End Sub

quando da o erro fica marcado essa parte Clear

uma explicação rapida sobre a planilha!

a planilha é composta por 4 abas

Roberto Carlos

R C

Seleção da Saudade

S da S

essas duas

Roberto Carlos e Seleçao da saudade, quando é aberta a planilha, ambas atualizam a coluna D com os nomes das musicas que estão na pastas

em outro computador na rede...

e por elas ele vai marcando com X quais as musicas ele quer rodar no programa, tem o player caso ele queira escutar a musica...

quando fecha a planilha ele ja limpa sozinha os locais que precisa limpar

e por ai vai....

se precisar posto ela para download!

OBS: no office 2007 ta funcionando blzinha!

zinhovba · 30 de dezembro de 2012

Bom dia!!!

No código há referências a outros aplicativos? (Access, Word, etc)

Se houver é necessário ativar as respectivas referências.

No VBE, vá em Ferramentas >> Referências e veja quais são as referências marcadas.

Já vi em alguns casos, estar desmarcada a opção: Microsoft Excel X.X Object Library, o que gera a mensagem de erro citada.

Com o VBE aberto, vá até Ferramentas --> Referências. Lá você verá umas referências com a palavra MISSING (AUSENTE) e um tick ao lado.
Remova os ticks em TODAS que estiverem MISSING (AUSENTE)