Unire più fogli di lavoro in One

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

Comprendiamo con un semplice esercizio come unire il foglio 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 questa scheda, vogliamo combinare i dati: –

1 ^ st ^ Data: –

2 ^ nd ^ Dati: –

3 ^ rd ^ Dati: –

Ora, vogliamo raccogliere i dati in un foglio. Dobbiamo seguire i passaggi e il codice indicati di seguito: – * Premere il tasto Alt + F11 per aprire la pagina VBE per scrivere la macro.

Sub Collate_Data ()

Dim FolderpathAs String, filePath As String, Filename As String Folderpath = “E: \ Excel Tips \ New VBA topics \ HR Data \” “(menzionare il percorso del file)

filePath = Folderpath & “xls”

Filename = Dir (filePath)

Dim LastrowAs Long, Lastcolumn As Long Do While Filename <> “”

Workbooks.Open (Folderpath & Filename)

Lastrow = ActiveSheet.Cells (Rows.count, 1) .End (xlUp) .Row Lastcolumn = ActiveSheet.Cells (1, Columns.count) .End (xlToLeft) .Column Range (Cells (2, 1), Cells (Lastrow , Lastcolumn)). Copia Application.DisplayAlerts = False ActiveWorkbook.Close erow = Sheet1.Cells (Rows.count, 1) .End (xlUp) .Offset (1, 0) .Row ActiveSheet.Paste Destination: = Worksheets (“Sheet1 “) .Range (Cells (erow, 1), Cells (erow, 5))

Filename = Dir Loop Application.DisplayAlerts = True End Sub Spiegazione del codice: – In primo luogo, definiremo tutte le variabili 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, dopodiché definiremo l’ultima riga e colonna nel foglio Excel e quindi definiremo la destinazione per incollare i dati.

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