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:
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
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
0