none
Excel VBA gerando erro 76 ao iniciar o aplicativo RRS feed

  • Pergunta

  • Boa tarde a todos...

    Criei um aplicativo VBA e a Pasta de Trabalho foi salva em uma pasta chamada "C:\Projeto". O aplicativo sempre foi atualizado neste local e possui somente um formulário com 4 botões.

    O problema começou a ocorrer quando copiei esta Pasta de Trabalho para outro computador (o meu e esse outro computador estão com Windows 7 e Excel 2003).  Se nesse novo computador eu criar uma pasta igual ao da minha máquina (C:\Projeto) e colocar a Pasta de Trabalho lá, o aplicativo funciona normalmente. Se eu colocar essa Pasta de Trabalho em qualquer outro local o formulário nem aparece - já de cara dá o erro número 76 !!!

    Alguém sabe uma maneira de conseguir colocar a Pasta de Trabalho em qualquer local e o aplicativo rodar normalmente ?

    Valeu... Obrigado pela ajuda.

    segunda-feira, 19 de novembro de 2012 16:08

Respostas

  • Isso está acontecendo porque em alguma parte do código que você criou está escrito algo como:

    Workbooks.Open("c:\Projeto\Pasta1.xls")

    Você deverá mudar todas as referências a c:\projeto para a nova pasta que deseja se quiser utilizar esse código em outra pasta.

    Claro, existe uma forma automática de isso ser feito. Veja o código abaixo:

    Sub Teste()
        Workbooks.Open ThisWorkbook.Path & "\Pasta1.xls"
    End Sub

    A propriedade Path do objeto ThisWorkbook retorna o caminho da pasta de trabalho que está executando o código. Logo, independente de onde a pasta de trabalho esteja, o comando apresentado funcionará.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 19 de novembro de 2012 20:15
    Moderador

Todas as Respostas

  • Isso está acontecendo porque em alguma parte do código que você criou está escrito algo como:

    Workbooks.Open("c:\Projeto\Pasta1.xls")

    Você deverá mudar todas as referências a c:\projeto para a nova pasta que deseja se quiser utilizar esse código em outra pasta.

    Claro, existe uma forma automática de isso ser feito. Veja o código abaixo:

    Sub Teste()
        Workbooks.Open ThisWorkbook.Path & "\Pasta1.xls"
    End Sub

    A propriedade Path do objeto ThisWorkbook retorna o caminho da pasta de trabalho que está executando o código. Logo, independente de onde a pasta de trabalho esteja, o comando apresentado funcionará.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 19 de novembro de 2012 20:15
    Moderador
  • Obrigado, Felipe...

    Eu esquecí e você me fez relembrar... O erro estava no evento Initialize() do meu Form, onde escreví o comando ChDir "C:\Projeto".

    Obrigado.

    terça-feira, 20 de novembro de 2012 14:03