Ciao a tutti
Sto cercando di copiare una intero foglio di un file excel
Non riesco, vi faccio vedere il codice a cui sono arrivato per ora.

codice:
Option Explicit
Dim i As Long
Dim y As Long

Sub Dati()
Workbooks.Open Filename:="C:\Documenti\FileDati.xlsx"
Sheets("Dati").Select
For i = 1 To 3000
    For y = 1 To 34
         Foglio1.Cells(i, y) = Cells(i, y).Select
     Next y
Next i

End Sub
il Codice è all'interno di un foglio vuoto di un nuovo file excel
Quello che vorrei fare è inserire in ogni cella del foglio1 i valori presenti nel foglio "Dati"
grazie :P