Πώς να πάρει Shared Ονόματα σε VBA για το Excel

Το κοινόχρηστο όνομα του δίσκου παρέχει στους χρήστες του δικτύου με την ονομασία από την οποία μπορούν να έχουν πρόσβαση σε αρχεία , εκτυπωτές και τους πόρους του δικτύου . Το όνομα του κοινόχρηστου δεν είναι πάντα το ίδιο όνομα με το όνομα του τοπικού δίσκου . Μπορείτε να χρησιμοποιήσετε τη γλώσσα VBA και το "Object File System " που περιλαμβάνεται με τη γλώσσα VBA για να καθορίσει το όνομα του κοινόχρηστου δίσκου στις εφαρμογές σας . Οδηγίες
Η

1 Ανοίξτε το αρχείο που περιέχει κώδικα VBA σας . Εάν έχετε δημιουργήσει τον κώδικα μέσω της διεπαφής του Microsoft Office VBA , ανοίξτε το αρχείο του Office και κάντε κλικ στο κουμπί " VBA " στην καρτέλα "Προγραμματιστής " ή κορδέλα . 2

Δημιουργήστε μια μεταβλητή αντικειμένου FSO . Ο παρακάτω κώδικας δημιουργεί το αντικείμενο FSO και σημεία στη μονάδα δίσκου που θέλετε να διαβάσετε :

Ορισμός αρχείου = Νέα FileSystemObjectSet μονάδα = FSO.GetDrive ( "c : \\ " )

Αντικατάσταση " ? c : . \\ " με το γράμμα της μονάδας δίσκου στον τοπικό υπολογιστή
εικόνων 3

Αποκτήστε το κοινόχρηστο όνομα για τη μονάδα δίσκου . Ο κώδικας που ακολουθεί ανακτά το κοινόχρηστο όνομα και εμφανίζει το όνομα του χρήστη :

sharedname = drive.ShareNameMsgBox " Το κοινό όνομα είναι " & sharedname

Η