vb如何提取正在编辑excel文件的电脑用户名

2024-11-07 14:39:57

推荐回答（3个）

回答（1）：

Sub 当前单元录入计算机名()
Selection = Environ("COMPUTERNAME")
'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容
End Sub
是用户名，看错了 Sub 当前单元录入计算机用户名()

Selection = Environ("Username")

'Selection =
Workbooks("临时表").Sheets("表2").Range("A1")
调用指定地址内容

End Sub

回答（2）：

dim wb as workbook
set wb=xxxxxxxx
debug.print wb.WriteReservedBy
你试一下看看这个这个是不是你要的？

回答（3）：

搞定了吗没搞定我跟你研究下