Saltar al contenido

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

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.