Βάλτε όλα τα βιβλία εργασίας που θέλετε να συγχωνεύσετε σε ένα φάκελο στον υπολογιστή σας . 2
Ανοίξτε ένα νέο βιβλίο εργασίας στο Excel .
Η Φτηνές 3
Πατήστε Alt + F11 . Αυτό θα ανοίξει το Visual Basic Editor.
Η
4 Επιλέξτε " Module" από το μενού "Εισαγωγή" .
5
αντιγραφή και επικόλληση του παρακάτω κώδικα VB στο παράθυρο κειμένου :
Sub MergeAllWorkbooks ( )
Dim mypath As String , FilesInPath Όπως String Dim
MyFiles ( ) Όπως String Dim
SourceRcount Όπως Long , FNum Όπως Long
Dim mybook Ως βιβλίο εργασίας , φύλλο εργασίας BaseWks Όπως
Dim sourceRange Όπως Range, destrange Όπως Σειρά
Dim rnum Όπως Long , CalcMode Όπως Long
mypath = " PATHHERE "
Εάν Δεξιά ( mypath , 1 ) <> " \\ " Τότε
mypath = mypath & " \\ "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα