Domingues Posted April 5, 2021 at 12:34 PM Report Share #621887 Posted April 5, 2021 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 comment Share on other sites More sharing options...
M6 Posted April 5, 2021 at 03:38 PM Report Share #621889 Posted April 5, 2021 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 comment Share on other sites More sharing options...
Domingues Posted April 5, 2021 at 10:42 PM Author Report Share #621893 Posted April 5, 2021 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 comment Share on other sites More sharing options...
M6 Posted April 5, 2021 at 11:31 PM Report Share #621894 Posted April 5, 2021 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 comment Share on other sites More sharing options...
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