Ayuda: error ´91´ en tiempo de ejecución: variable de objeto o bloque With no establecido
publicado
Estimados, Estoy tratando de hacer una macros que me permita abrir todos los archivos de una carpeta, copiar una casilla y pegarla en la tabla de otro archivo, pero al ejecutar me lanza el error previamente mencionado. Si alguien me puede ayudar en esto estaría muy agradecido. Saludos!
Option Explicit
Sub Open_All_Files()
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String
sPath = "C:\Users\User\Desktop\Respaldo Periodo Felipe 08-03-2012\TERPEL\Planillas TERPEL\checkist total\"
Estimados, Estoy tratando de hacer una macros que me permita abrir todos los archivos de una carpeta, copiar una casilla y pegarla en la tabla de otro archivo, pero al ejecutar me lanza el error previamente mencionado. Si alguien me puede ayudar en esto estaría muy agradecido. Saludos!
Option Explicit
Sub Open_All_Files()
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String
sPath = "C:\Users\User\Desktop\Respaldo Periodo Felipe 08-03-2012\TERPEL\Planillas TERPEL\checkist total\"
ChDir sPath
sFil = Dir("*.xlsx")
Do While sFil <> ""
oWbk = Workbooks.Open(sPath & "ID1 ISLA BILBAO.xlsx")
ThisWorkbook.Activate
Sheets("Isla").Select
With ActiveSheet
.Range("G10:J10").Select
Selection.Copy
End With
Windows("Ranking Checklist.xltm").Activate
Sheets("Hoja3").Select
With ActiveSheet
.Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
ActiveCell.Offset(1, 0).Select
oWbk.Close True
sFil = Dir
Loop
End Sub