Note: The other languages of the website are Google-translated. Back to English

Πώς να συνδυάσετε πολλά βιβλία εργασίας σε ένα κύριο βιβλίο εργασίας στο Excel;

Έχετε κολλήσει ποτέ όταν πρέπει να συνδυάσετε πολλά βιβλία εργασίας σε ένα κύριο βιβλίο εργασίας στο Excel; Το πιο τρομερό είναι ότι τα βιβλία εργασίας που πρέπει να συνδυάσετε περιέχουν πολλά φύλλα εργασίας. Και πώς να συνδυάσετε μόνο τα καθορισμένα φύλλα εργασίας πολλαπλών βιβλίων εργασίας σε ένα βιβλίο εργασίας; Αυτό το σεμινάριο παρουσιάζει διάφορες χρήσιμες μεθόδους που θα σας βοηθήσουν να λύσετε το πρόβλημα βήμα προς βήμα.


Συνδυάστε πολλά βιβλία εργασίας σε ένα βιβλίο εργασίας με τη λειτουργία Μετακίνηση ή Αντιγραφή

Εάν υπάρχουν μόνο μερικά βιβλία εργασίας που πρέπει να συνδυαστούν, μπορείτε να χρησιμοποιήσετε την εντολή Μετακίνηση ή Αντιγραφή για να μετακινήσετε με μη αυτόματο τρόπο ή να αντιγράψετε φύλλα εργασίας από το αρχικό βιβλίο εργασίας στο κύριο βιβλίο εργασίας.

1. Ανοίξτε τα βιβλία εργασίας που θα συγχωνευτείτε σε ένα κύριο βιβλίο εργασίας.

2. Επιλέξτε τα φύλλα εργασίας στο αρχικό βιβλίο εργασίας που θα μετακινήσετε ή αντιγράψετε στο κύριο βιβλίο εργασίας.

:

1). Μπορείτε να επιλέξετε πολλά μη γειτονικά φύλλα εργασίας κρατώντας το Ctrl πλήκτρο και κάνοντας κλικ στις καρτέλες φύλλων μία προς μία.

2). Για την επιλογή πολλαπλών γειτονικών φύλλων εργασίας, κάντε κλικ στην πρώτη καρτέλα φύλλου, κρατήστε πατημένο το αλλαγή και, στη συνέχεια, κάντε κλικ στην τελευταία καρτέλα φύλλου για να τα επιλέξετε όλα.

3). Μπορείτε να κάνετε δεξί κλικ σε οποιαδήποτε καρτέλα φύλλου, να κάνετε κλικ στο Επιλέξτε Όλα τα φύλλα από το μενού περιβάλλοντος για να επιλέξετε όλα τα φύλλα εργασίας στο βιβλίο εργασίας ταυτόχρονα.

3. Αφού επιλέξετε τα απαραίτητα φύλλα εργασίας, κάντε δεξί κλικ στην καρτέλα φύλλων και, στη συνέχεια, κάντε κλικ στο Μετακίνηση ή Αντιγραφή από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:

4. Τότε το Μετακίνηση ή Αντιγραφή εμφανίζεται ο διάλογος, στο Να κάνετε κράτηση αναπτυσσόμενο μενού, επιλέξτε το κύριο βιβλίο εργασίας στο οποίο θα μετακινήσετε ή θα αντιγράψετε φύλλα εργασίας. Επιλέξτε μετακίνηση για τερματισμό στο Πριν από το φύλλο πλαίσιο, επιλέξτε το Δημιουργήστε ένα αντίγραφο πλαίσιο και, τέλος, κάντε κλικ στο OK κουμπί.

Στη συνέχεια, μπορείτε να δείτε φύλλα εργασίας σε δύο βιβλία εργασίας σε ένα. Επαναλάβετε τα παραπάνω βήματα για να μετακινήσετε φύλλα εργασίας από άλλα βιβλία εργασίας στο κύριο βιβλίο εργασίας.


Συνδυάστε πολλά βιβλία εργασίας ή καθορισμένα φύλλα βιβλίων εργασίας σε ένα κύριο βιβλίο εργασίας με το VBA

Εάν υπάρχουν πολλά βιβλία εργασίας που πρέπει να συγχωνευτούν σε ένα, μπορείτε να εφαρμόσετε τους ακόλουθους κωδικούς VBA για να το επιτύχετε γρήγορα. Κάντε τα εξής:

1. Βάλτε όλα τα βιβλία εργασίας που θέλετε να συνδυάσετε σε ένα στον ίδιο κατάλογο.

2. Εκκινήστε ένα αρχείο Excel (αυτό το βιβλίο εργασίας θα είναι το κύριο βιβλίο εργασίας).

3. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα VBA στο παράθυρο Module.

Κωδικός VBA 1: Συγχώνευση πολλαπλών βιβλίων εργασίας Excel σε ένα

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

:

1. Ο παραπάνω κωδικός VBA θα διατηρήσει τα ονόματα φύλλων των αρχικών βιβλίων εργασίας μετά τη συγχώνευση.

2. Εάν θέλετε να ξεχωρίσετε ποια φύλλα εργασίας στο κύριο βιβλίο εργασίας προήλθαν από τη συγχώνευση, εφαρμόστε τον παρακάτω κωδικό VBA 2.

3. Εάν θέλετε απλώς να συνδυάσετε συγκεκριμένα φύλλα εργασίας των βιβλίων εργασίας σε ένα κύριο βιβλίο εργασίας, ο παρακάτω κώδικας VBA 3 μπορεί να βοηθήσει.

Στους κωδικούς VBA, «C: \ Users \ DT168 \ Desktop \ KTE \Είναι η διαδρομή του φακέλου. Στον κωδικό VBA 3, "Φύλλο1, Φύλλο3"είναι τα καθορισμένα φύλλα εργασίας των βιβλίων εργασίας που θα συνδυάσετε με ένα κύριο βιβλίο εργασίας. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.

Κωδικός VBA 2: Συγχώνευση βιβλίων εργασίας σε ένα (κάθε φύλλο εργασίας θα ονομάζεται με το πρόθεμα του αρχικού του ονόματος αρχείου):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Κωδικός VBA 3: Συγχώνευση καθορισμένων φύλλων εργασίας των βιβλίων εργασίας σε ένα κύριο βιβλίο εργασίας:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, όλα τα φύλλα εργασίας ή τα καθορισμένα φύλλα εργασίας των βιβλίων εργασίας στον συγκεκριμένο φάκελο συνδυάζονται με ένα κύριο βιβλίο εργασίας ταυτόχρονα.


Συνδυάστε εύκολα πολλά βιβλία εργασίας ή καθορισμένα φύλλα βιβλίων εργασίας σε ένα βιβλίο εργασίας

Ευτυχώς, το Συνδυασμός χρησιμότητα του βιβλίου εργασίας του Kutools για Excel καθιστά πολύ πιο εύκολο να συγχωνεύσετε πολλά βιβλία εργασίας σε ένα. Ας δούμε πώς να λειτουργήσει αυτή η λειτουργία συνδυάζοντας πολλά βιβλία εργασίας.

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

1. Δημιουργήστε ένα νέο βιβλίο εργασίας και κάντε κλικ στο Kutools Plus > Συνδυασμός. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι όλα τα συνδυασμένα βιβλία εργασίας πρέπει να αποθηκευτούν και ότι η δυνατότητα δεν μπορεί να εφαρμοστεί σε προστατευμένα βιβλία εργασίας, κάντε κλικ στο OK κουμπί.

2. Στο Συνδυάστε φύλλα εργασίας οδηγός, επιλέξτε Συνδυάστε πολλά φύλλα εργασίας από βιβλία εργασίας σε ένα βιβλίο εργασίας και στη συνέχεια κάντε κλικ στο επόμενος κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Στο Συνδυάστε τα φύλλα εργασίας - Βήμα 2 από 3 , κάντε κλικ στο Προσθέτω > φιλέτο or Folder για να προσθέσετε τα αρχεία Excel που θα συγχωνευτείτε σε ένα. Αφού προσθέσετε τα αρχεία Excel, κάντε κλικ στο φινίρισμα κουμπί και επιλέξτε ένα φάκελο για να αποθηκεύσετε το κύριο βιβλίο εργασίας. Δείτε το στιγμιότυπο οθόνης:

Τώρα όλα τα βιβλία εργασίας συγχωνεύονται σε ένα.

Σε σύγκριση με τις παραπάνω δύο μεθόδους, Kutools για Excel έχει τα ακόλουθα πλεονεκτήματα:

  • 1) Όλα τα βιβλία εργασίας και τα φύλλα εργασίας παρατίθενται στο παράθυρο διαλόγου.
  • 2) Για τα φύλλα εργασίας που θέλετε να εξαιρέσετε από τη συγχώνευση, απλώς αποεπιλέξτε το.
  • 3) Τα κενά φύλλα εργασίας εξαιρούνται αυτόματα.
  • 4) Το αρχικό όνομα αρχείου θα προστεθεί ως πρόθεμα στο όνομα του φύλλου μετά τη συγχώνευση.
  • Για περισσότερες λειτουργίες αυτής της δυνατότητας, παρακαλώ επισκεφθείτε εδώ.

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Kutools για Excel - Σας βοηθά να ολοκληρώνετε πάντα τη δουλειά μπροστά στο χρόνο, να έχετε περισσότερο χρόνο για να απολαύσετε τη ζωή
Βρίσκεστε συχνά στον εαυτό σας να παίζετε με την εργασία, την έλλειψη χρόνου για να περάσετε για τον εαυτό σας και την οικογένειά σας;  Kutools για Excel μπορεί να σας βοηθήσει να αντιμετωπίσετε 80% παζλ Excel και να βελτιώσετε την απόδοση εργασίας κατά 80%, να σας δώσει περισσότερο χρόνο για να φροντίσετε την οικογένεια και να απολαύσετε τη ζωή.
300 προηγμένα εργαλεία για 1500 σενάρια εργασίας, κάνουν τη δουλειά σας πολύ πιο εύκολη από ποτέ.
Δεν χρειάζεστε πλέον τύπους απομνημόνευσης και κωδικούς VBA, δώστε στον εγκέφαλό σας ξεκούραση από τώρα και στο εξής.
Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
Μειώστε χιλιάδες χειρισμούς πληκτρολογίου και ποντικιού καθημερινά, πείτε αντίο στις επαγγελματικές ασθένειες τώρα.
Γίνετε ειδικός του Excel σε 3 λεπτά, θα σας βοηθήσουν να αναγνωρίσετε γρήγορα και να προωθήσετε μια αύξηση μισθών.
110,000 εξαιρετικά αποτελεσματικοί άνθρωποι και 300+ παγκοσμίως γνωστές εταιρείες.
Κερδίστε 39.0 $ αξίας άνω των 4000.0 $ για εκπαίδευση άλλων.
Πλήρης δωρεάν δοκιμαστική λειτουργία 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών χωρίς λόγο.

Σχόλια (145)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, παρακαλώ βοηθήστε με σε αυτήν την παρακάτω συνθήκη. Έχω διαφορετικό βιβλίο εργασίας που έχει περισσότερα από 5 φύλλα εργασίας το καθένα σε διαφορετική διαδρομή. Πρέπει να ενοποιήσω όλα τα φύλλα εργασίας από διαφορετικό βιβλίο εργασίας σε ένα μόνο βιβλίο εργασίας. Μπορεί κάποιος να με βοηθήσει να επιλύσω με το macro.TIA!
Α. Κάρθη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Γεια σας, παρακαλώ βοηθήστε με σε αυτήν την παρακάτω κατάσταση. Έχω διαφορετικό βιβλίο εργασίας που έχει περισσότερα από 5 φύλλα εργασίας το καθένα σε διαφορετική διαδρομή. Πρέπει να ενοποιήσω όλα τα φύλλα εργασίας από διαφορετικό βιβλίο εργασίας σε ένα μόνο βιβλίο εργασίας. Μπορεί κάποιος να με βοηθήσει να επιλύσω με το macro.TIA!Του Α. Κάρθη[/quote] Μεταβείτε για λήψη και εγκατάσταση του Kutools για Excel, μπορείτε να το ολοκληρώσετε γρήγορα. Αλλά αν θέλετε να χρησιμοποιήσετε ένα VBA, μπορεί να είναι πολύ περίπλοκο. Για περισσότερες πληροφορίες σχετικά με το πώς να το κάνετε, επισκεφθείτε:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
Τζέι Τσίβο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
KUTOOLS Καταπληκτική λύση. Χρειάζομαι μια ακόμη βοήθεια όταν δημιουργώ κύριο βιβλίο εργασίας, τότε το χρώμα του κελιού του φύλλου εργασίας αλλάζει από το αρχικό φύλλο εργασίας. Πώς μπορώ να το διατηρήσω σαν αρχικό φύλλο εργασίας.
Taslima
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το γραφείο μας έχει διπλότυπα δεδομένα (π.χ. όνομα, διεύθυνση, πόλη, ποσό, ημερομηνία υπογραφής) από πολλά πρωτότυπα excel και η προσπάθεια συνδυασμού των δεδομένων θα είναι μια εργασία σε εξέλιξη. Πώς μπορεί να γίνει αυτό για να εξαλειφθεί η διπλή εργασία και οι διπλές καταχωρίσεις πληροφοριών;
Ε νικ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνω ένα 'σφάλμα χρόνου εκτέλεσης 1004', η μέθοδος αντιγραφής της κλάσης φύλλου εργασίας απέτυχε στη γραμμή που λέει: Φύλλο.Αντιγραφή Μετά:=ThisWorkbook.Sheets(1). Χρησιμοποιώ το Excel 2010. Μπορείτε να με βοηθήσετε; Ευχαριστώ, - Σούζι
Susie
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Σούζι, εργάζομαι πάνω σε αυτό το πρόβλημα εδώ και λίγο καιρό και λαμβάνω το ίδιο σφάλμα. Ελέγξτε αν η λειτουργική μονάδα δημιουργήθηκε στην ενότητα ΠΡΟΣΩΠΙΚΟ αντί για το ενεργό βιβλίο εργασίας σας. Μόλις δημιούργησα τη μονάδα κάτω από το σωστό δέντρο, ο παρακάτω κώδικας λειτούργησε μια χαρά. Sub GetSheets_xls() Dim Sheet As Path φύλλου εργασίας = "C:\Users\yournamehere\Desktop\Testingfolder\" Filename = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=False Set Sheet = ActiveWorkbook.Sheets(1) Sheet.Copy After:=This Workbook.Sheets(1) 'Next Sheet Books Workbooks(Filename).Close Filename = Dir() Loop End Sub Ελπίζουμε να βοηθήσει!
Σάμουελ Μπιρτς
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ. Ο κωδικός σας λειτούργησε καλά.
DS
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Λαμβάνω ένα 'σφάλμα χρόνου εκτέλεσης 1004', η μέθοδος αντιγραφής της κλάσης φύλλου εργασίας απέτυχε στη γραμμή που λέει: Φύλλο.Αντιγραφή Μετά:=ThisWorkbook.Sheets(1). Χρησιμοποιώ το Excel 2010. Μπορείτε να με βοηθήσετε; Ευχαριστώ, - ΣούζιΑπό τη Σούζι[/quote] Είχα το ίδιο πρόβλημα, λειτουργεί όταν πηγαίνω να προβάλω και να αποκρύψω το "PERSONAL", φαίνεται ότι αντιμετωπίζω πρόβλημα με την πρόσβαση σε αυτήν τη μακροεντολή με την κύρια κρυφή.
Κρις Φ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μετάβαση στην προβολή και κατάργηση της απόκρυψης "ΠΡΟΣΩΠΙΚΟ" - φαίνεται ότι αντιμετωπίζει πρόβλημα με την εκτέλεση ολόκληρου του κώδικα ενώ ο κύριος είναι κρυμμένος. Μπορείτε να κάνετε τη μακροεντολή εγγενή σε αυτό το βιβλίο εργασίας, αλλά θα πρέπει να αναδημιουργείτε το σύνολο κάθε φορά που θέλετε να το χρησιμοποιήσετε
Κρις Φ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Ευχαριστώ πολύ για αυτό το αρχείο............. :roll: Με εκτίμηση
Amir
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Μεγάλη συμβουλή. Έκανε σχεδόν ότι ήθελα. Στο βιβλίο εργασίας συνδυασμού, θα μου άρεσε πολύ το όνομα του φύλλου εργασίας να περιέχει το όνομα του αρχικού βιβλίου εργασίας, ώστε να ξέρω από ποιο βιβλίο εργασίας προέρχονται τα δεδομένα. Τα δεδομένα που συνδυάζω είναι από διαφορετικά αρχεία. Πρέπει να ψάξω για μια καταχώριση, αλλά δεν ξέρω σε ποιο αρχείο βρίσκεται. Έτσι, συνδυάζοντας όλα τα δεδομένα σε ένα αρχείο θα μπορέσω να πραγματοποιήσω αναζήτηση σε όλα τα αρχεία ταυτόχρονα. Αλλά πρέπει ακόμα να μάθω σε ποιο αρχείο βρίσκεται το λήμμα. Χένρικ
Αυτεπαγωγής
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Για να ενσωματώσει ο κώδικας το όνομα του αρχείου, απλώς κάντε αυτό. Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel combination\" Filename = Dir(Path & "*.xlsx") Do while Filename "" Workbooks.Open Filename:= Path & Filename, ReadOnly:=True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets(temp).Copy After:=This Workbook.Sheets(1) Bookbooks(Filename).Close Filename = Dir() Loop End Sub Note : αυτό γίνεται για να αντιγράψετε μόνο το πρώτο φύλλο, μπορεί να γίνει tweek για να γίνουν όλα τα φύλλα
Κώδικας
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς ενσωματώνετε περισσότερα φύλλα και πώς καθορίζετε ένα διαφορετικό κύριο αρχείο για την επικόλληση όλων των φύλλων.
ΝΟΜΟΣ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι όντως εξαιρετική λύση. σας ευχαριστώ. Ένα πρόβλημα όμως, όταν το εκτελώ όπως αυτό το excel θα με ρωτήσει αν θέλω να αποθηκεύσω αλλαγές πριν το κλείσιμο (από τότε που άλλαξε το όνομα) και δεν θέλω να το κάνω για κάθε αρχείο (περίπου 32 ανά εκτέλεση). Θα υπήρχε τρόπος να λυθεί αυτό;
Αντριάνο Μαρκάτο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό είναι υπέροχο :lol: με βοήθησε πολύ....
Tedi
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ φίλε, έφτιαξες τη μέρα μου από αυτόν τον πολύ χρήσιμο ιστότοπο... Στην πραγματικότητα, ήθελα επίσης να συνδυάσω τα ίδια δεδομένα κεφαλίδας διαφορετικών φύλλων σε 1 κύριο φύλλο εργασίας, το KUTOOL για Excel με βοήθησε πολύ... Σας ευχαριστώ για άλλη μια φορά .... :)
Amol
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ για τις πολύτιμες πληροφορίες. Αυτό λειτουργεί πραγματικά. Τα βήματα που αναφέρονται σε αυτό το άρθρο έκαναν πραγματικά τη δουλειά μου πιο εύκολη. Ευχαριστώ, Dinesh
Dinesh
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ που μοιράζεσαι τις γνώσεις σου
μπερδεμένα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορείτε να ενημερώσετε τις αλλαγές από το αρχικό βιβλίο εργασίας; Προσπαθώ να λάβω μια εθνική σύνοψη που θα έχει κάθε περιοχή να εισάγει τα δεδομένα της στα δικά της βιβλία εργασίας και στη συνέχεια να έχει την εθνική σύνοψη που ενημερώνεται από αυτήν; Θα ήθελα να το ρυθμίσω για ολόκληρο το έτος στην αρχή και να μην δουλεύω αναδρομικά.
ness
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αφού συνδυάσω τα φύλλα εργασίας σε ένα Βιβλίο Εργασίας, πώς το αποθηκεύετε, δεν μπόρεσα να το αποθηκεύσω με το όνομα Βιβλίο1 και κάνω κλικ στο Αποθήκευση ή Αποθήκευση ως αλλά δεν λειτουργεί. Υπάρχουν προτάσεις;
Παξιμάδι
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ακολούθησα τα βήματα στο "Συνδυασμός πολλών βιβλίων εργασίας σε ένα βιβλίο εργασίας με VBA" και έκανα κλικ στο "Εκτέλεση", δεν έγινε τίποτα. Δεν γνωρίζω λάθη και δεν είμαι σίγουρος πώς να διορθώσω. Θα με βοηθήσεις? ο παρακάτω είναι ο κώδικας που εισάγω σε ένα νέο βιβλίο εργασίας. Σας ευχαριστώ Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Every Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=This Workbook.Sheets(1) Next Sheet Books Workbooks(Filename).Close Filename = Dir() Loop End Sub
Sherrill
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ κύριε/κυρία: Ακολούθησα τα βήματα του "Συνδυασμός πολλών βιβλίων εργασίας σε ένα βιβλίο εργασίας με VBA" για να ρυθμίσω την παρακάτω ενότητα, αλλά δεν συνέβη τίποτα. Θα με βοηθήσετε να βρω το πρόβλημα; ευχαριστώ Sub GetSheets() Διαδρομή = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Every Φύλλο στο ActiveWorkbook.Sheets Sheet.Copy After:=This Workbook.Sheets(1) Next Sheet Books Workbooks(Filename).Close Filename = Dir() Loop End Sub
Sherrill
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
για νεότερες εκδόσεις του excel, δοκιμάστε αυτό. Αποθήκευσα το ανοιχτό βιβλίο εργασίας μου ως κατάλογο και όλα τα αρχεία είναι σε c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True για κάθε φύλλο στο ActiveWorkbook. Φύλλα Φύλλων.Αντιγραφή After:=Workbooks("catalog.xlsx").Φύλλα(1) Επόμενο φύλλο Βιβλία εργασίας(Όνομα αρχείου).Κλείσιμο Όνομα αρχείου = Dir() Loop End Sub
Ο Dave
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκιμάστε αυτό για νεότερες εκδόσεις του excel. Αποθήκευσα το βιβλίο εργασίας μου ως κατάλογο, όλα τα αρχεία είναι σε c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True για κάθε φύλλο στο ActiveWorkbook. Φύλλα Φύλλων.Αντιγραφή After:=Workbooks("catalog.xlsx").Φύλλα(1) Επόμενο φύλλο Βιβλία εργασίας(Όνομα αρχείου).Κλείσιμο Όνομα αρχείου = Dir() Loop End Sub
Ο Dave
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Δοκιμάστε το για νεότερες εκδόσεις του excel. Αποθήκευσα το βιβλίο εργασίας μου ως κατάλογο, όλα τα αρχεία είναι σε c:\temp. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do while Filename "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True για κάθε φύλλο στο ActiveWorkbook. Φύλλα Φύλλων.Αντιγραφή After:=Workbooks("catalog.xlsx").Φύλλα(1) Επόμενο φύλλο Βιβλία εργασίας(Όνομα αρχείου).Κλείσιμο Όνομα αρχείου = Dir() Loop End SubΑπό τον Ντέιβ[/quote] Συνεχίζω να λαμβάνω "δεν είναι δυνατή η ανάθεση σε ιδιότητα μόνο για ανάγνωση" σχετικά με τη διαδρομή... Καμιά ιδέα;
jlhall07
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω κι εγώ αυτό το πρόβλημα. Το κατάλαβες;
sara
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τίποτα ακόμα... Δεν έχω βρει καμία λύση ή είχε κάποιος να προτείνει μια λύση. Συγνώμη...
jlhall07
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Και εγώ. Αυτό λειτουργούσε πριν από 6 μήνες, την τελευταία φορά που έπρεπε να το τρέξω. Έχει βρει κανείς ακόμα τη λύση; Εάν το είχατε σε λειτουργία πριν και τώρα δεν θα λειτουργεί, θα μπορούσε να έχει σχέση με μια ενημέρωση από τη Microsoft; Αυτό είναι πραγματικά εύχρηστο εργαλείο για τις εργασίες μου και μου εξοικονομεί πολύ χρόνο. Τι θα μπορούσε να είχε αλλάξει που θα έκανε το Excel να αρχίσει να εμφανίζει αυτό το μήνυμα ξαφνικά; Επειδή είμαι αρκετά νέος στο VBA, δεν έχω ιδέα από πού να αρχίσω να αναλύω τη λογική. Με εκτίμηση, Greg. Γλασκώβη, Σκωτία.
Greg
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Φαίνεται ότι το "Path" είναι πλέον δεσμευμένο, επομένως χρησιμοποιήστε οποιοδήποτε άλλο όνομα και αντικαταστήστε το "Path", π.χ. "Mypath".
φαξ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ίσως πρέπει να αλλάξετε ReadOnly:=True σε ReadOnly:=False, το έκανα και ήταν χρήσιμο
Ma Γεια
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έψαχνα κάτι σε αυτήν την κατεύθυνση αλλά ήθελα να σχολιάσω. Το όνομα αρχείου Do while "" δεν χρειάζεται να είναι κάτι διαφορετικό από το ""; ή το διαβάζω λάθος; Ίσως Do while NOT όνομα αρχείου = "" Απλά μια σκέψη...
Πατρίκιος
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να συνδυάσω όλα τα φύλλα σε ένα φύλλο όπου οι επικεφαλίδες είναι κοινές... pls help
Ανάντ Ντάρμπα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, προσπάθησα να χρησιμοποιήσω τις παραπάνω μακροεντολές για να συλλέξω λίγα αρχεία, δυστυχώς κανένα αποτέλεσμα... μπορεί κάποιος να με βοηθήσει να απαλλαγώ από τη μη αυτόματη ταξινόμηση αρχείων.
Ναζέρ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω 112 φύλλα excel που θέλω να τα βάλω σε ένα μόνο φύλλο χωρίς αντιγραφή και επικόλληση. Σε παρακαλώ βοήθησέ με.
Χριστιανός
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω ένα βιβλίο εργασίας που περιέχει περίπου 250 φύλλα. Χρειάζομαι τον Κομπέιν σε ένα φύλλο. παρακαλώ δώστε μου μια λύση
Dileep
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκιμάστε αυτό...Το πήρα από άλλο ιστότοπο, αλλά δυστυχώς δεν μπορώ να θυμηθώ το όνομα της κυρίας, οπότε ζητώ συγγνώμη που δεν την αναφέρω, κακό μου" Συνδυάστε πολλαπλά WB στο Excel: ΘΥΜΗΘΕΙΤΕ ΝΑ ΑΛΛΑΞΕΤΕ MyPath = ! Sub Merge2MultiSheets( ) Dim wbDst ως βιβλίο εργασίας Dim wbSrc ως βιβλίο εργασίας Dim wsSrc ως φύλλο εργασίας Dim MyPath ως συμβολοσειρά Dim strΌνομα αρχείου ως εφαρμογή συμβολοσειράς.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\\cy" Ορίστε wbDst = Βιβλία εργασίας.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) If Len(strFilename) = 0 Στη συνέχεια, πραγματοποιήστε έξοδο από το Sub Do Μέχρι strFilename = "" Ορίστε wbSrc = Workbooks.Open(Filename=: MyPath & "\" & strFilename) Ορισμός wsSrc = wbSrc.Worksheets(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dir() Loop wbDksheets(1W). Διαγραφή Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Ginger41
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, πρόσθεσα τον κώδικα σε μια ενότητα. Ονομάστηκε το βιβλίο Excel Masterfile. Πού στον κώδικα να προσθέσω. σας ευχαριστώ
Γκουλάμ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τίποτα από αυτά δεν λειτούργησε για μένα, τελικά έφτιαξα αυτό για να λειτουργήσει. FYI Χρησιμοποιώ το 2010 'Περιγραφή: Συνδυάζει όλα τα αρχεία ενός φακέλου σε ένα κύριο αρχείο. Sub MergeFiles() Dim path As String, ThisWB As String, lngFilecounter As Long Dim wbDest As Workbook, shtDest as Worksheet, ws as Sheet Dim Filename as String, Wkb as Book Work Dim CopyRng as Range, Dest As Range Dim RowofCopySheet As InCote 2 ' Σειρά για έναρξη στα φύλλα που αντιγράφετε από ThisWB = ActiveWorkbook.Name path = "mypath....." ' Μην ξεχάσετε να αλλάξετε αυτήν την εφαρμογή.EnableEvents = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook .Φύλλα(1) Όνομα αρχείου = Dir(διαδρομή & "\*.xls", vbNormal) Αν Len(Όνομα αρχείου) = 0 Έπειτα βγείτε από το Sub Do Μέχρι Όνομα αρχείου = vbNullString Αν όχι Όνομα αρχείου = ThisWB Στη συνέχεια ορίστε Wkb = Βιβλία εργασίας. Open(Όνομα αρχείου: =διαδρομή & "\" & όνομα αρχείου) Ορισμός CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Ορισμός προορισμού = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Σειρά + 1) CopyRng.Copy Dest Wkb.Close False End If Filename = Dir() Loop Rang e("A1").Επιλέξτε Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Τέλος!" End Sub
Νίκη Φόστερ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να το επεξεργαστώ έτσι ώστε τα δεδομένα που λαμβάνονται να ξεκινούν πάντα από την επάνω σειρά; Εάν εκτελέσω αυτόν τον κώδικα δύο φορές, προσθέτει τα δεδομένα στο τέλος των προηγούμενων δεδομένων μου (από την πρώτη εκτέλεση της μακροεντολής).
Michelle
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αλλάξτε αυτήν τη γραμμή: RowofCopySheet = 2 σε RowofCopySheet = 1
οριβέρα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, Έχω πολλά αρχεία Excel (μονό φύλλο) διαφορετικό φάκελο με προστασία κωδικού πρόσβασης. Θέλω το τέλος της ημέρας να συνδυάσω όλα τα δεδομένα σε ένα κύριο αρχείο. Κάθε φορά που πρέπει να Πληκτρολογήσω τον κωδικό πρόσβασης και να ανοίξω το αρχείο και να αντιγράψω επικόλληση στο κύριο αρχείο. Παρακαλώ βοηθήστε με με τον κωδικό VBA για αυτό.
Mohideen
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0  Χαρακτήρες
Προτεινόμενες τοποθεσίες