Solución 7.13 Consolidar datos a partir de varios libros

 Sub InformeDatos()  
    Dim wksHojaPrincipal As Worksheet 
    Dim wksHojaN1 As Worksheet 
    Dim wksHojaN2 As Worksheet 
    Dim strRuta As String 
    strRuta = ThisWorkbook.Path 
   ...