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

Comentários

Mensagens populares deste blogue

EXCEL 2007 - FUNÇÕES PARA CALCULAR HORAS (Functions to Calculate Hours)

CONVERTER HORAS EM DIAS DE TRABALHO (Convert Hours to Workdays)

VBA EXCEL - OCULTAR LINHAS EM BRANCO (Hide Blank Rows)