Combina più fogli di lavoro in uno

Anonim

In questo articolo, impareremo come assemblare i dati da diverse cartelle di lavoro tramite VBA in Microsoft Excel.

Capiamo con un semplice esercizio come unire fogli di calcolo tramite VBA in Microsoft Excel.

Abbiamo 3 diversi file Excel. 2 file sono in xlsx e un file è in xlsm in una cartella. Vogliamo raccogliere entrambi i set di dati nel file Excel per tenere a mente alcune cose che in ogni dato, righe e colonne possono essere aumentate e diminuite, e inoltre non conosciamo i nomi dei file Excel e quanti file ci sono in una cartella .

In questo foglio, vogliamo combinare i dati:-

1ns Dati:-

2ns Dati:-

3rd Dati:-

Ora, vogliamo raccogliere i dati in un foglio. Dobbiamo seguire i passaggi e il codice indicati di seguito: -

  • Premi il tasto Alt+F11 per aprire la pagina VBE per scrivere la macro.
  • Quindi vai su Inserisci scheda e inserisci un modulo.
  • Scrivi il codice indicato di seguito nella pagina.

Sub Fascicola_Dati()

Dim FolderpathAs String, filePath As String, Filename As String

Folderpath = "E:\Excel Tips\New VBA topics\HR Data\" '(menzionare il percorso del file)

filePath = Percorsocartella& "*xls*"

Nome file = Dir(percorsofile)

Dim LastrowAs Long, Lastcolumn As Long
Esegui mentre nome file ""

Cartelle di lavoro.Apri (percorso cartella e nome file)

Lastrow = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Row

Lastcolumn = ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column

Intervallo (Celle (2, 1), Celle (Lastrow, Ultima colonna)). Copia

Application.DisplayAlerts = False

ActiveWorkbook.Chiudi

erow = Foglio1.Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Row

ActiveSheet.Paste Destinazione: = Fogli di lavoro ("Foglio1"). Intervallo (Celle (erow, 1), Celle (erow, 5))

Nome file = Dir

Ciclo continuo

Application.DisplayAlerts = True

Fine sottotitolo

Spiegazione del codice: - In primo luogo, definiremo la variabile all che dobbiamo utilizzare durante la descrizione del codice. Quindi useremo il ciclo Do While nel codice per eseguire il programma per tutti i file Excel. Quindi definiremo il percorso dei file e successivamente definiremo l'ultima riga e colonna nel foglio Excel e quindi definiremo la destinazione per incollare i dati.

  • Per eseguire la macro, premere il tasto F5.
  • I dati di entrambi i fogli verranno copiati e incollati in un foglio Excel.

Questo è il modo in cui possiamo raccogliere i dati in un foglio da diversi file di Excel tramite VBA in Microsoft Excel.