Διαδικασία της Visual Basic για τη λήψη του τρέχοντος ονόματος χρήστη

Σύνοψη

Μπορείτε να κάνετε μια πρόσκληση API των Windows (διασύνδεση προγραμματισμού εφαρμογών) σε ένα Microsoft Windows DLL (βιβλιοθήκη δυναμικής σύνδεσης) για να λάβετε το τρέχον όνομα χρήστη. Το τρέχον όνομα χρήστη μπορεί να ληφθεί με τη χρήση της συνάρτησης GetUserNameA στο ADVAPI32. DLL.

Περισσότερες πληροφορίες

Το Microsoft Excel δεν διαθέτει τις ενσωματωμένες λειτουργίες για να αποκτήσει πρόσβαση στο τρέχον όνομα χρήστη του υπολογιστή. Ωστόσο, μπορείτε να χρησιμοποιήσετε την πρόταση δήλωση σε μια μακροεντολή της Visual Basic for Applications για να καλείτε μια συνάρτηση των Microsoft Windows που θα επιστρέφει το τρέχον όνομα χρήστη. Η Microsoft παρέχει παραδείγματα διαδικασιών της Visual Basic for Applications μόνο για επεξήγηση, χωρίς καμία εγγύηση ρητή ή σιωπηρή, συμπεριλαμβανομένων, ενδεικτικά, των σιωπηρών εγγυήσεων εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Οι διαδικασίες της Visual Basic σε αυτό το άρθρο παρέχονται "ως έχουν" και η Microsoft δεν εγγυάται ότι μπορούν να χρησιμοποιηθούν σε όλες τις περιπτώσεις. Ενώ οι επαγγελματίες υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης μακροεντολής, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν πρόσθετες λειτουργίες, ούτε θα σας βοηθήσουν να κατασκευάσετε μακροεντολές για να ικανοποιήσετε τις συγκεκριμένες ανάγκες σας. Εάν έχετε περιορισμένη εμπειρία προγραμματισμού, μπορεί να θέλετε να συμβουλευτείτε μία από τις υπηρεσίες παροχής λύσεων της Microsoft. Οι υπηρεσίες παροχής λύσεων προσφέρουν ένα ευρύ φάσμα υπηρεσιών βάσει τελών, συμπεριλαμβανομένης της δημιουργίας προσαρμοσμένων μακροεντολών. Για περισσότερες πληροφορίες σχετικά με τις υπηρεσίες παροχής λύσεων της Microsoft, επικοινωνήστε με την υπηρεσία πληροφοριών πελατών της Microsoft στο (800) 426-9400.

ΠΑΡΆΔΕΙΓΜΑ

  1. Πληκτρολογήστε τον παρακάτω κώδικα σε μια νέα λειτουργική μονάδα:

        ' 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
  2. Εκτελέστε τη Get_User_Name μακροεντολής. Σημειώστε ότι το τρέχον όνομα χρήστη θα εμφανίζεται σε ένα πλαίσιο μηνύματος.

Χρειάζεστε περισσότερη βοήθεια;

Αναπτύξτε τις δεξιότητές σας
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Συμμετοχή στο Microsoft Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×