Πώς να εισαγάγετε / αντιγράψετε δεδομένα από κλειστό βιβλίο εργασίας στο τρέχον βιβλίο εργασίας;
Είναι εύκολο να αντιγράψουμε δεδομένα από ένα ανοιχτό φύλλο εργασίας και να τα επικολλήσουμε σε άλλο ανοιχτό βιβλίο εργασίας, αλλά, έχετε προσπαθήσει ποτέ να εισαγάγετε δεδομένα από ένα κλειστό βιβλίο εργασίας σε ένα ανοιχτό βιβλίο εργασίας; Αυτό το άρθρο, θα μιλήσω για τον τρόπο εισαγωγής δεδομένων από ένα κλειστό βιβλίο εργασίας.
Εισαγάγετε δεδομένα από κλειστό βιβλίο εργασίας στο τρέχον βιβλίο εργασίας με κωδικό VBA
Εισαγάγετε δεδομένα από κλειστό βιβλίο εργασίας στο τρέχον βιβλίο εργασίας με το Kutools για Excel
Εισαγάγετε δεδομένα από κλειστό βιβλίο εργασίας στο τρέχον βιβλίο εργασίας με κωδικό VBA
Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να αντιγράψετε δεδομένα από ένα βιβλίο εργασίας χωρίς να το ανοίξετε σε ενεργό ανοιχτό βιβλίο εργασίας, κάντε τα παρακάτω βήματα:
1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Εισαγωγή δεδομένων από κλειστό βιβλίο εργασίας στο τρέχον βιβλίο εργασίας
Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
Application.Workbooks.Open .SelectedItems(1)
Set xAddWb = Application.ActiveWorkbook
Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
xWb.Activate
Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
xRng1.Copy xRng2
xRng2.CurrentRegion.EntireColumn.AutoFit
xAddWb.Close False
End If
End With
End Sub
3. Στη συνέχεια πατήστε F5 κλειδί για να εκτελέσετε αυτόν τον κωδικό, και στο Άνοιγμα αρχείου παράθυρο, επιλέξτε το βιβλίο εργασίας που θέλετε να εισαγάγετε τα δεδομένα του, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί Ανοικτό κουμπί, και KutoolsforExcel εμφανίζεται το παράθυρο διαλόγου για να σας υπενθυμίσει ότι επιλέγετε μια σειρά δεδομένων που θέλετε να εισαγάγετε σε άλλο βιβλίο εργασίας, δείτε το στιγμιότυπο οθόνης:
5. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε ένα κελί στο οποίο θέλετε να βάλετε τα δεδομένα, δείτε το στιγμιότυπο οθόνης:
6. και κάντε κλικ OK, τα δεδομένα στο κλειστό βιβλίο εργασίας έχουν εισαχθεί στο τρέχον βιβλίο εργασίας.
Εισαγάγετε δεδομένα από κλειστό βιβλίο εργασίας στο τρέχον βιβλίο εργασίας με το Kutools για Excel
Ο κώδικας VBA μπορεί να είναι κάπως δύσκολος για τους αρχάριους του Excel, οπότε, εδώ, θα σας προτείνω ένα εύχρηστο εργαλείο-Kutools για Excel, Με τους Εισαγωγή αρχείου στο δρομέα δυνατότητα, μπορείτε να εισαγάγετε όλο το περιεχόμενο ενός φύλλου εργασίας από ένα κλειστό βιβλίο εργασίας γρήγορα και εύκολα.
| Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:
1. Πατήστε Kutools Plus > Εισαγωγή εξαγωγή > Εισαγωγή αρχείου στο δρομέα, δείτε το στιγμιότυπο οθόνης:
2. Στην Εισαγωγή αρχείου στο δρομέα πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:
(1.) Κάντε κλικ 
κουμπί για να επιλέξετε ένα κελί όπου θέλετε να βάλετε τα εισαγόμενα δεδομένα.
(2.) Κάντε κλικ 
κουμπί για να επιλέξετε το βιβλίο εργασίας που θέλετε να εισαγάγετε τα δεδομένα του.
Σημείωση: Μόνο τιμή (χωρίς τύπους): Εάν ενεργοποιήσετε αυτήν την επιλογή, θα εισαχθεί μόνο η τιμή και οι τύποι δεν θα εισαχθούν.
Μην μεταφέρετε τη μορφοποίηση: Εάν επιλέξετε αυτήν την επιλογή, τα δεδομένα θα εισαχθούν στο φύλλο εργασίας χωρίς μορφοποίηση.
3. Στη συνέχεια κάντε κλικ στο κουμπί OK, εάν υπάρχουν περισσότερα από ένα φύλλα εργασίας στο βιβλίο εργασίας, a Επιλέξτε ένα φύλλο εργασίας θα εμφανιστεί το παράθυρο διαλόγου, προσδιορίστε ένα φύλλο εργασίας που θέλετε να εισαγάγετε τα δεδομένα, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, τα δεδομένα στο επιλεγμένο φύλλο εργασίας έχουν εισαχθεί στο τρέχον βιβλίο εργασίας.
Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!
Επίδειξη: Εισαγωγή δεδομένων από κλειστό βιβλίο εργασίας στο τρέχον βιβλίο εργασίας με το Kutools για Excel
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
