VBA EXCEL - ABRIR UM FICHEIRO NUMA FOLHA ESPECÍFICA (Open a workbook in a specific sheet)
Abrir um Ficheiro numa Folha específica Open a workbook in a specific sheet Sub AbrirFicheiro() Dim Ws As Worksheet Dim SProc As String Dim SEncontrar As String Application.ScreenUpdating = False 'Procurar a Folha Específica (Look for the specific sheet) SProc = WorkSheets ("Folha1") .Range ("A1") 'Abrir o livro (Open workbook to look in) Workbooks.Open Filename: ="C:\...\Livro1.xls" ' Procurar em todas as folhas até encontrar a pretendida (Look through each sheet until found the wanted one) For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next SEncontrar = Ws.Cells.Find _ ( What: =SProc, after: =Ws.Cells(1, 1)) .Address If SEncontrar <> "" Then Application.ScreenUpdating = True End If Next Ws End Sub