Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή για την εισαγωγή μιας μονάδας στο ενεργό βιβλίο εργασίας.
Θα χρησιμοποιήσουμε το Filename.bas ως ενότητα, την οποία θέλουμε να εισαγάγουμε.
Κάντε κλικ στο κουμπί εισαγωγής για να εισαγάγετε τη λειτουργική μονάδα από το Filename.bas στο ενεργό βιβλίο εργασίας.
Το βιβλίο εργασίας περιέχει μόνο μία ενότητα "MainModule".
Μετά την εκτέλεση της μακροεντολής, θα εισαχθεί μια νέα μονάδα από το Filename.bas
Λογική εξήγηση
Σε αυτό το άρθρο, έχουμε δημιουργήσει δύο μακροεντολές, InsertVBComponent και Calling_Procedure
InsertVBComponent
Λαμβάνει το όνομα του βιβλίου εργασίας και το όνομα αρχείου ως εισόδους και εισάγει τη μονάδα στο βιβλίο εργασίας.
Calling_Procedure
Χρησιμοποιείται για την κλήση της μακροεντολής InsertVBComponent με το ενεργό βιβλίο εργασίας και το Filename.bas ως εισόδους.
Επεξήγηση κώδικα
Εάν Dir (CompFileName) "" Τότε
Ο παραπάνω κώδικας χρησιμοποιείται για να ελέγξει εάν το όνομα του αρχείου υπάρχει στον κατάλογο.
wb.VBProject.VBComponents.Import CompFileName
Ο παραπάνω κώδικας χρησιμοποιείται για την εισαγωγή μονάδας στο ενεργό βιβλίο εργασίας.
Ακολουθήστε παρακάτω για τον κωδικό
Option Explicit Sub InsertVBComponent (ByVal wb As Workbook, ByVal CompFileName As String) 'Εισάγει το περιεχόμενο του CompFileName ως νέο συστατικό στο βιβλίο εργασίας' Το CompFileName πρέπει να είναι ένα έγκυρο στοιχείο VBA κατάλληλο για 'εισαγωγή (εξάγεται εξάρτημα VBA)' Έλεγχος εάν το αρχείο CompFileName υπάρχει Εάν Dir (CompFileName) "" Τότε "Αγνοήστε σφάλματα στο Σφάλμα Συνέχιση Επόμενο" Εισάγει το στοιχείο από το αρχείο wb.VBProject.VBComponents.Import CompFileName On Error GoTo 0 End If Set wb = Nothing End Sub Calling_Procedure () "Calling InsertVBComponent διαδικασία InsertVBC ActiveWorkbook, "C: \ Users \ Ramandeep \ Desktop \ Filename.bas" End Sub
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email