Domingues 0 Posted Monday at 12:34 PM Report Share Posted Monday at 12:34 PM Boa tarde, Agradeço a vossa ajuda para resolver uma situação que não obtenho o resultado esperado. Na prática consiste em abrir um ficheiro que se indica na folha "Registos". Depois de abrir o ficheiro pretendido, efetuam-se as alterações ou registos necessários e este é fechado. Até aqui tudo bem, acontece que a seguir o ficheiro menu de trabalho deveria saltar para a folha inicial "Home", o que não acontece. Sub Controlo_1() Sheets("Registos").Select PathName = Range("C3").Value Filename = Range("C25").Value TabName = Range("D25").Value ControlFile = ActiveWorkbook.Name Workbooks.Open Filename:=PathName & Filename Sheets(TabName).Select Sheets("Home").Select End Sub O que está a acontecer é dar erro na última ação "Sheets("Home").Select". Será que existe uma forma simples de resolver isto. Obrigado, Domingues Link to post Share on other sites
M6 150 Posted Monday at 03:38 PM Report Share Posted Monday at 03:38 PM Sem indicação do erro que dá é difícil ajudar, mas tipicamente nessas situações o que acontece é que a folha à qual se está a tentar aceder não existe - pelo menos exatamente com esse nome. 10 REM Generation 48K! 20 INPUT "URL:", A$ 30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50 40 PRINT "404 Not Found" 50 PRINT "./M6 @ Portugal a Programar." Link to post Share on other sites
Domingues 0 Posted Monday at 10:42 PM Author Report Share Posted Monday at 10:42 PM O erro que aparece é Erro em tempo de execução '9': Subscrito fora do intervalo Ao carregar no Depurar, marca a amarelo a "Sheets("Home").Select", bloqueando a rotina do VB. Link to post Share on other sites
M6 150 Posted Monday at 11:31 PM Report Share Posted Monday at 11:31 PM Eu diria que então não consegue localizar a sheet "Home" nesse Excel. 10 REM Generation 48K! 20 INPUT "URL:", A$ 30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50 40 PRINT "404 Not Found" 50 PRINT "./M6 @ Portugal a Programar." Link to post Share on other sites
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now