Σύνοψη
Μπορείτε να κάνετε μια κλήση API των Windows (διασύνδεση προγραμματισμού εφαρμογών) στο Microsoft Windows DLL (βιβλιοθήκη δυναμικής σύνδεσης) για να λάβετε το τρέχον όνομα χρήστη. Μπορείτε να αποκτήσετε το όνομα του τρέχοντος χρήστη, χρησιμοποιώντας τη συνάρτηση GetUserNameA στο ADVAPI32. DLL.
Περισσότερες πληροφορίες
Το Microsoft Excel δεν διαθέτει ενσωματωμένες λειτουργίες για την πρόσβαση του υπολογιστή το τρέχον όνομα χρήστη. Ωστόσο, μπορείτε να χρησιμοποιήσετε την πρόταση Declare σε μια μακροεντολή Visual Basic for Applications για να καλέσετε μια συνάρτηση Microsoft Windows που θα επιστρέψει το τρέχον όνομα χρήστη. Η Microsoft παρέχει παραδείγματα της Visual Basic για εφαρμογές διαδικασίες μόνο για επεξήγηση, χωρίς να παρέχει καμία εγγύηση, είτε σιωπηρή είτε ρητή, περιλαμβανομένων, ενδεικτικά των σιωπηρών εγγυήσεων εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Οι διαδικασίες της Visual Basic σε αυτό το άρθρο παρέχονται "ως έχουν" και η Microsoft δεν εγγυάται ότι μπορεί να χρησιμοποιηθεί σε όλες τις περιπτώσεις. Ενώ οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης μακροεντολής, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν πρόσθετη λειτουργικότητα, ούτε θα μπορούν σας βοηθήσουν να δημιουργήσετε μακροεντολές για να καλύψουν τις συγκεκριμένες ανάγκες. Εάν διαθέτετε περιορισμένη εμπειρία προγραμματισμού, ίσως θέλετε να διαβουλεύονται με μία από τις υπηρεσίες παροχής λύσεων της Microsoft. Υπηρεσίες παροχής λύσεων προσφέρουν μια ευρεία ποικιλία αμοιβή υπηρεσιών, συμπεριλαμβανομένης της δημιουργίας προσαρμοσμένων μακροεντολών. Για περισσότερες πληροφορίες σχετικά με τις υπηρεσίες παροχής λύσεων της Microsoft, καλέστε την υπηρεσία πληροφοριών πελατών της Microsoft στο (800) 426-9400.
ΠΑΡΆΔΕΙΓΜΑ
-
Πληκτρολογήστε τον ακόλουθο κώδικα σε μια νέα λειτουργική μονάδα:
' Makes sure all variables are dimensioned in each subroutine. Option Explicit ' Access the GetUserNameA function in advapi32.dll and ' call the function GetUserName. Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long ' Main routine to Dimension variables, retrieve user name ' and display answer. Sub Get_User_Name() ' Dimension variables Dim lpBuff As String * 25 Dim ret As Long, UserName As String ' Get the user name minus any trailing spaces found in the name. ret = GetUserName(lpBuff, 25) UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) ' Display the User Name MsgBox UserName End Sub
-
Εκτελέστε τη μακροεντολή Get_User_Name. Σημειώστε ότι το τρέχον όνομα χρήστη θα εμφανίζεται σε ένα πλαίσιο μηνύματος.