Στο Microsoft Excel, η λήψη πληροφοριών από ένα κλειστό βιβλίο εργασίας είναι ένας από τους πιο οικονομικούς τρόπους για να λάβετε ακριβή δεδομένα χρησιμοποιώντας τον κώδικα VBA. Σε αυτό το άρθρο, θα μάθουμε πώς να διαβάζουμε πληροφορίες από ένα κλειστό βιβλίο εργασίας χρησιμοποιώντας VBA στο Microsoft Excel.
Εάν λαμβάνετε πολλά αρχεία μέσω email ή οποιασδήποτε άλλης πηγής και θέλετε να λάβετε πληροφορίες αποθηκευμένες σε ένα συγκεκριμένο κελί, τότε θα πρέπει να διαβάσετε αυτό το σεμινάριο.
Για να κατανοήσουμε αυτό το παράδειγμα, πρέπει να δημιουργήσουμε μερικά δείγματα αρχείων σε μια διαδρομή που θα χρησιμοποιήσουμε στον κώδικα VBA. εδώ, έχουμε αποθηκεύσει μερικά αρχεία (αρχεία North & West) στη διαδρομή "D: \ testing".
Για να εξαγάγετε δεδομένα από όλα τα αρχεία excel σε ένα φάκελο, πρέπει να ακολουθήσετε τα παρακάτω βήματα για να ξεκινήσετε τον επεξεργαστή VB:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κώδικα επιλέξτε Visual Basic
- Αντιγράψτε τον παρακάτω κώδικα στην τυπική μονάδα
Sub ReadDataFromAllWorkbooksInFolder () Dim FolderName As String, wbName As String, r As Long, cValue As Variant Dim wbList () As String, wbCount As Integer, i As Integer FolderName = "D: \ test" 'δημιουργία λίστας βιβλίων εργασίας στο φάκελο' --- Σχόλιο wbCount = 0 wbName = Dir (Όνομα φακέλου & "\" & "*.xls") Ενώ wbName "" wbCount = wbCount + 1 ReDim Preserve wbList (1 To wbCount) wbList (wbCount) = wbName wbName = Dir Wend Εάν wbCount = 0 Στη συνέχεια, εξέλθετε από το "Λάβετε τιμές από κάθε βιβλίο εργασίας" --- Σχόλιο r = 0 Τετράδια εργασίας. Προσθέστε για i = 1 στο wbCount r = r + 1 cValue = GetInfoFromClosedFile (FolderName, wbList (i), "Sheet1", "A1") Κελιά (r, 1) .Formula = wbList (i) Cells (r, 2) .Formula = cValue Next i End Sub Private Function GetInfoFromClosedFile (ByVal wbPath As String, _ wbName As String, wsName As String, cellRef As String) As Variant Dim arg As String GetInfoFromClosedFile = "" If Right (wbPath, 1) "\" Στη συνέχεια wbPath = wbPath & "\" If Dir (wbPath & "\" & wbName) = "" Τότε Έξοδος από τη λειτουργία arg = "'" & wbPath & "[" & wb Όνομα & "]" & _ wsName & "'!" & Εύρος (cellRef). Διεύθυνση (True, True, xlR1C1) On Error Resume Next GetInfoFromClosedFile = ExecuteExcel4Macro (arg) End End
Πρέπει να τρέξουμε τη μακροεντολή και το ακόλουθο θα είναι το στιγμιότυπο του αποτελέσματος:
Συμπέρασμα: Χρησιμοποιώντας τον παραπάνω κώδικα, μπορούμε να λάβουμε δεδομένα από κλειστό βιβλίο εργασίας από ένα συγκεκριμένο κελί.
Σημείωση: Το κελί A1 χρησιμοποιείται ως παράδειγμα. εάν θέλετε να ανακτήσετε δεδομένα από οποιοδήποτε άλλο κελί, τότε απλά πρέπει να αναφέρετε αυτό το κελί.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email