terça-feira, 19 de julho de 2011

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

Sem comentários:

Enviar um comentário