Πίνακας περιεχομένων
Για να συνδυάσετε βιβλία εργασίας στο Excel, χρησιμοποιήστε τον ακόλουθο κώδικα. Αυτός ο κώδικας θα πάρει όλα τα πρώτα φύλλα σε κάθε βιβλίο εργασίας που βρίσκεται σε έναν κατάλογο:
| 123456789101112131415161718192021222324252627282930313233343536 | «Συγχώνευση βιβλίων εργασίαςSub MergeWB ()Application.EnableEvents = ΛάθοςApplication.ScreenUpdating = ΛάθοςDim path As String, ThisWB As String, lngFilecounter As LongDim wbDest As Workbook, shtDest As Worksheet, ws As WorksheetDim όνομα αρχείου ως συμβολοσειρά, Wkb ως βιβλίο εργασίαςDim CopyRng As Range, Dest As RangeDim RowofCopySheet As IntegerRowofCopySheet = 2 'Σειρά για να ξεκινήσετε στα φύλλα από τα οποία αντιγράφετεThisWB = ActiveWorkbook.Namepath = GetDirectory ("Επιλέξτε ένα φάκελο που περιέχει αρχεία Excel που θέλετε να συγχωνεύσετε")Ορισμός shtDest = ActiveWorkbook. Φύλλα (1)Όνομα αρχείου = Dir (διαδρομή & "\*. Xlsm", vbNormal)Αν Len (Όνομα αρχείου) = 0 Τότε Έξοδος από ΥποΕκτελέστε μέχρι Όνομα αρχείου = vbNullStringΕάν όχι Όνομα αρχείου = ThisWB ΤότεΟρίστε Wkb = Workbooks.Open (Όνομα αρχείου: = διαδρομή & "\" & Όνομα αρχείου)Set CopyRng = Wkb.Sheets (1). Range (Cells (RowofCopySheet, 1), Cells (ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))Ορίστε Dest = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell). Σειρά + 1)CopyRng.Copy DestWkb. Close FalseΤέλος εανΌνομα αρχείου = Dir ()ΒρόχοςApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueMsgBox "Macro Complete"Τέλος υπο |
Κ. Excel
