Come faccio a copiare intervalli di grandi size tra le cartelle di lavoro in modo efficiente?

sto scrivendo una function di copia copia per un set di dati abbastanza grande da copiare da una cartella di lavoro a un foglio specifico in un altro. Ho scritto il codice più piccolo, nella speranza che copierà la pasta il più efficacemente ansible, tuttavia durante il debug il codice è stato dimostrato di non funzionare affatto, non copia o incolla nulla e non capisco perché, qualcuno ha qualsiasi idee / soluzioni? Grazie in anticipo

Windows("TempResults.xlsm").Activate numofrows = ActiveSheet.UsedRange.Rows.Count Workbooks("TempResults.xlsm").Sheets("Sheet1").Range("A2", "AE" & CStr(numofrows)).Copy Destination:=Workbooks("Excel Results Extractor V2.xlsm").Sheets("Gate_Results").Range("A1").End(xlDown).Offset(1, 0) 

Immagino che questo sia quello che vuoi

 Windows("TempResults.xlsm").Activate numofrows = ActiveSheet.UsedRange.Rows.Count Workbooks("TempResults.xlsm").Sheets("Sheet1").Range("A2", "AE" & CStr(numofrows)).Copy Destination:=Workbooks("Excel Results Extractor V2.xlsm").Sheets("Gate_Results").Range("A1") 

Per quanto riguarda la preoccupazione di efficienza espressa nella tua domanda: puoi provare un approccio alternativo, come il seguente:

 Workbooks("Excel Results Extractor V2.xlsm").Sheets("Gate_Results").Range("A1").Value = Workbooks("TempResults.xlsm").Sheets("Sheet1").Range("A1").Value 

Cercate di vedere come funziona, quindi modificare la gamma corrispondente al tuo caso. Spero che questo aiuterà. Saluti,