Jump to content

Ayuda: error ´91´ en tiempo de ejecución: variable de objeto o bloque With no establecido


Recommended Posts

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy