• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

slimbullet

ThisWorkbook.Path

5 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

Obrigado pela ajuda  :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora