Option Explicit

Private Sub Sfoglia_Files()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' ATTENZIONE RICHIEDE L'ATTIVAZIONE DELLA LIBRERIA MICROSOFT SCRIPTING RUNTIME '''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Per l'attivazione andare su "Strumenti", "Riferimenti", cercare e spuntare il nome ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Dim wbFrom As Workbook, wbTo As Workbook
  Dim wsF As Worksheet, wsT As Worksheet
  Dim strPath As String
  
  Dim objFSY As FileSystemObject
  Dim objFOL As Folder
  Dim objFIL As File
  
  strPath = "C:Users
ome.cognomeDesktopMACRO-VBAImportazioneCartella 1"

  Set wbTo = ThisWorkbook
  Set wsT = wbTo.Worksheets(1) 'qui il numero/nome del foglio IN CUI importare
  Set objFSY = New FileSystemObject
  Set objFOL = objFSY.GetFolder(strPath)
  
  For Each objFIL In objFOL.Files
    If Right(objFIL.Name, 4) = ".xls" Then 'ma solo i formato 2003, sarebbe meglio usare il tipo file
    Set wbFrom = Application.Workbook.Open(objFIL)
    Set wsF = wbFrom.Worksheets(1)  'qui il numero/nome del foglio DA CUI importare
    
     'qui il codice che copia i dati, ma servono i riferimenti
    
    Set wbFrom = Nothing
    Set wsF = Nothing
    End If
  Next objFIL
Uscita:
  Set objFSY = Nothing
  Set objFOL = Nothing
End Sub