Θα προτιμούσατε να έχετε έλεγχο των χρηστών που εισάγουν αρχεία, αντί να τους κάνετε να χρησιμοποιούν τις δυνατότητες του Excel για να το κάνουν; Χρειάζεστε περισσότερο έλεγχο των εισαγωγών σας για επικύρωση ή τροποποίηση κατά την εισαγωγή; Υπάρχουν πολλοί τρόποι για να γίνει αυτό και εξίσου πολλές παραλλαγές απαιτήσεων, αλλά εδώ είναι μερικά από τα δομικά στοιχεία για να ξεκινήσετε.
1. Τοποθετήστε τον ακόλουθο κώδικα σε μια λειτουργική μονάδα και στη συνέχεια εκτελέστε τον
«Ορισμός μεταβλητών 'Άνοιγμα κοινού διαλόγου και λήψη ονόματος αρχείου «Δεν έγινε κλικ στην ακύρωση ελέγχου «Εισαγωγή αρχείου Τέλος υποPublic Sub CustomImport ()
Dim ImportFile As String
Dim ImportTitle As String
Dim TabName As String
Dim ControlFile As String
ImportFile = Application.GetOpenFilename (_
"Αρχεία Excel, *.xls, Όλα τα αρχεία, *. *")
ImportTitle = _
Μεσαίο (ImportFile, InStrRev (ImportFile, "\") + 1)
Εάν ImportFile = "False" Τότε
Έξοδος Sub
Τέλος εαν
TabName = "MyCustomImport"
ControlFile = ActiveWorkbook.Name
Βιβλία εργασίας. Ανοίξτε το όνομα αρχείου: = ImportFile
ActiveSheet.Name = TabName
Φύλλα (Όνομα καρτέλας). Αντιγραφή _
Πριν: = Τετράδια εργασίας (ControlFile). Φύλλα (1)
Windows (ImportTitle). Ενεργοποιήστε
ActiveWorkbook.Close SaveChanges: = Λάθος
Windows (ControlFile). Ενεργοποιήστε
Sidenote: Αυτό λειτουργεί καλά για αρχεία *.xls, *.xlsx, *.xlsm, *.csv και *.txt. Μπορείτε να προσθέσετε ή να καλέσετε κωδικό πριν από το End Sub για να τροποποιήσετε τα εισαγόμενα δεδομένα προτού ο χρήστης τα αγγίξει.