您的位置: 首页 > EXCEL技巧 > ExcelVBA >

用VBA获取系统用户帐户名称

时间:2013-12-04 整理:docExcel.net

如果要获取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

​Dropbox帐户和密码被公开,涉及逾百万个用户 问题:​Dropbox帐户和密码被公开,涉及逾百万个用户
回答:...,我们劝你快点启用了,否则就有可能在网络上看到你的帐户和密码被公开。一份上载到 pastebin 的文件中包含了 400 个 Dropbox 用户名称和密码,上载者表示这只是他盗取的 700 万个帐户的冰山一角。他同时声称可以捐赠比...
用自定义函数获取工作表名称 问题:用自定义函数获取工作表名称
回答:...手工输入有些繁琐,这时可以添加一个自定义函数来快速获取工作表名称,方法如下: 按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入下列代码: Function GetSheetName(idx As Integer, Optional relative_position As Boole...
获取单元格所在列的名称 问题:获取单元格所在列的名称
回答:要获取单元格所在列的名称,如A9单元格的列名“A”,可以用公式和自定义函数的方法来实现。 1.用公式获取列名 在任意单元格中输入公式: =LEFT(ADDRESS(ROW(),COLUMN(),4),LEN(ADDRESS(ROW(),COLUMN(),4))-LEN(ROW())) 公式说明:先用ROW和COLUMN...
Instagram删除上千万虚假帐户 掉粉用户怒了 问题:Instagram删除上千万虚假帐户 掉粉用户怒了
回答:...道 Instagram 上周宣布,它将开始重拳打击垃圾信息和虚假帐户。 一位社交媒体营销师称,Instagram 此举将引发“大混乱”,并且估计会有上千万个帐户被删除。 Instagram 本周实施了清除垃圾信息和虚假帐户的行为,平台上...
用VBA获取Excel最近使用的工作簿列表 问题:用VBA获取Excel最近使用的工作簿列表
回答:下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称,并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中,如果通过“Office按钮(或“文件”选项卡)→Excel选项→高级”设置显示“最近使用的文档”数量...
在Excel2003中按颜色进行排序 问题:在Excel2003中按颜色进行排序
回答:...我们可以利用自定义函数或宏表函数GET.CELL,在辅助列中获取单元格颜色或字体颜色索引值,然后进行排序。具体方法如下: 方法一:用宏表函数GET.CELL   以下表为例,假设人物名单在B2:B19区域中。 序号 人物名...
相关推荐: