Excel - Error en el metodo select de la clase range

   
Vista:

Error en el metodo select de la clase range

Publicado por Nicolas (1 intervención) el 28/06/2017 18:06:15
Hola a todos, el problema que tengo es el siguiente:

Tengo este script en una hoja de excel:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub simpleXlsMerger()
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")
 
'change folder path of excel files here
Set dirObj = mergeObj.Getfolder("C:\Ruta\Completa\De\Acceso\A Los\Archivos de\Referencias Externas")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)
bookList.Worksheets("Base de datos").Activate
ActiveSheet.UsedRange.Select
Next
End Sub

Cuando lo ejecuto me sale el mensaje "Error en el metodo select de la clase range"; supongo que en el llamado de la línea 13. Agradezco inmensamente la colaboración que me puedan ofrecer. Soy absolutamente inexperto en VBA aunque manejo otros lenguajes de programación. El problema es que esto me urge..

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error en el metodo select de la clase range

Publicado por JuanC juanc2942@gmail.com (1226 intervenciones) el 28/06/2017 19:03:53
lo probé y no hubo errores, vas a tener que depurar paso a paso y ver qué pasa...
(verificá los nombres de las hojas dentro de los libros)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar