ThisWorkbook.Path

[slimbullet]

Estou com um problema para o qual nao sei a soluçao por muito que tenha procurado.Nao percebo nada de VBA nem de Excel e como tal gostaria da vossa ajuda.

Tenho um ficheiro em excel em que ao clicar em "Produzir Relatório" dá-me um Compile Error e aponta para:

'PRODUZIR RELATÓRIO ENERGÉTICO

Sub relatorio_energia()

    Filename = ThisWorkbook.Path & "\relatorio.txt"

'PRODUZIR PLANO DIÁRIO

Sub plano_diario()

    Filename = ThisWorkbook.Path & "\plano.txt"

Aproveito para deixar aqui o ficheiro excel para que alguem possa ver o problema.

Obrigado pela ajuda

http://rapidshare.com/files/283003444/planonutri_03102008.xls.html

[heldercorreia]

Declarando as variáveis esse e outros problemas ficam resolvidos.

Dim Filename As String

Filename = ThisWorkbook.Path & "\relatorio.txt"

Tens também que ter os ficheiros .txt criados na mesma directoria em que se encontra o .xls.

Isto porque

Filename = ThisWorkbook.Path & "\relatorio.txt" 

concatena duas strings, uma delas com a directoria em que se encontra o .xls e outra com o nome do ficheiro. Se quizeres os ficheiros de texto noutro local, terás que o fazer manualmente, ex:

Filename = "c:\imba\xpto\relatorio.txt"

para os situares nas pasta respectivas.

Tens também que adicionar o AddIn do Solver.

Tens em http://rapidshare.com/files/283216800/plano.zip.html o que penso ser a aplicação corrigida.

Vê lá se dá para safar..

[slimbullet]

Obrigado pela ajuda.

Apesar de ainda dar erro em outras opçoes a de criar relatorios esta a trabalhar.

Sobre o addin do solver, ja fui a ferramentas e depois suplementos e o addin do solver esta activo.No entanto tenho erro no solver

Obrigado mais uma vez

[heldercorreia]

Tens que ser um pouco mais específico em relação aos outros erros que obténs, nomeadamente o procedimento para que eles ocorram.. 🙂

[slimbullet]

é sempre que tento criar os diferentes relatorios.. mas como esta ja serve.

Obrigado pela ajuda  🙂