excel利用VBA获取系统用户帐户名称
发布时间：2023-08-21 15:50:11
如果要获取Windows默认的用户帐户名称，可以使用下面的VBA代码，其中使用了 WNetGetUser 函数，将代码放入标准模块中：
Option Explicit
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
(ByVal lpName As String, _
ByVal lpUserName As String, _
lpnLength As Long) As Long
Private Const NO_ERROR = 0
Private Const ERROR_NOT_CONNECTED = 2250&
Private Const ERROR_MORE_DATA = 234
Private Const ERROR_NO_NETWORK = 1222&
Private Const ERROR_EXTENDED_ERROR = 1208&
Private Const ERROR_NO_NET_OR_BAD_PATH = 1203&
Sub Getusername()
Dim strBuf As String, lngUser As Long, strUn As String
strBuf = Space$(255) ‘//Clear buffer
lngUser = WNetGetUser("", strBuf, 255)
If lngUser = NO_ERROR Then
strUn = Left(strBuf, InStr(strBuf, vbNullChar) – 1)
MsgBox "系统用户帐户名称是： " & strUn
Else
MsgBox "错误：" & lngUser
End If
End Sub
0
投稿猜你喜欢
win7系统蓝屏0x0000003b怎么恢复？蓝屏问题是操作系统与软件起冲突不兼容为保护电脑数据文件而强制显示的屏幕图像。同时给用户提示了错- 一般情况下，黑客在入侵电脑后，都会在电脑上留下后门，以便长期控制这台电脑。但这个后门，却是杀毒软件的重要查杀目标，可能在杀毒软件升级后后门就
- 由于很多的用户使用了内建于系统的ClearType文本调谐器，如何重置ClearType设置已被网友们所关注，本文将以图文的形式详细介绍下，
- 小交易APP怎么添加收货地址？小交易APP是一款简单易用的交易软件，用户们可以在里面交易一些闲置物品等，那么在小交易APP中要怎么添加收货地
- u盘是我们现在生活或者办公都需要用户的存储工具，有网友在使用u盘的时候不注意，经常强制拔插u盘导致u盘损坏怎么办，不知道该如何修复u盘损坏，
- 使用win0系统的小伙伴有遇见win10日历打不开的情况，win10任务栏的日历打不开怎么办？其实这是电脑的小故障而已，在win10系统的隐
- Win11系统是目前非常火热的电脑操作系统，很多用户都想安装体验一下，最近有很多使用老电脑的用户想好给自己电脑升级最新的Win11系统，但是
- 当我们使用win101903操作系统时，一些合作伙伴希望更新和升级他们的计算机系统。因此，对于win10版1903更新57％的死亡率，小编认
- Windows 10默认预装集成了很多App，其实微软从 Windows 8 开始就在集成各种 App。我个人不是很喜欢这些默认应用的，所以
- 微软开始准备23H2，微软发布了一封电子邮件提醒Windows Insider Program的用户，不稳定和有缺陷的预览版很快就会在Dev
- 在例如婚庆、演讲和发布会等场所，一般都要用到图片。案例阐述了如何使用弧形透视来排版图片，让图片布局更富吸引力。下面，小编通过具体的实例来跟大
- 办公室或家里的计算机，不想让其他人开启使用，以确保数据的安全，除了设置操作系统登入的密码之外，也可以到BIOS设置开机密码，密码设置完成以后
- AMD Ryzen的成功逆袭，可能是Intel没有想到的，这也难怪PC市场称霸了这么多年，怎么能一下子提速呢。之前我们报道称，Intel将提
- UC浏览器怎么设置音量键翻页？UC浏览器是全国使用最多的手机浏览器，为用户提供海量经常视频、上网省流加速、免费小说畅读等服务。UC浏览器要怎
- Folx pro 5 Mac是MAC OS平台上的一款下载管理软件，系在速度非常的快，支持几乎所有的浏览器下载，非常小巧但是功能
- 2013年1月4号， 必定是个 不服凡的日子，传说中的爱你 平生一世 留念日！ 此日看到 许多情侣去领证，一些 老汉老妻也 留念这一天。 为
- 7月29日（今日）零点起，微软开始推送win10正式版更新消息，但是Win7/8.1在哪里同步免费升级Win10正式版？用户可以通过系统升级
- 对于理科生来说，掌握wps文字编辑公式的方法是很有必要的，下面就让小编告诉你wps文字怎样编辑公式。wps文字编辑公式的方法①单击进入“插入
- 在PowerPoint中制作的动画也是很可爱的，只要有兴趣去研究，你会发现PowerPoint不为人知的强大功能，这个就需要大家互相分享自己
- 有时候我们在word文档那个里面插入了文本框，然后需要将其边框的颜色变成无色的，那么到底怎么做呢，下面小编就告诉大家吧，有需要的朋友可以来看
