如何在计算机上添加用户名,如何使用VBA添加计算机名和用户名

如何使用网络上每台Windows 7和10计算机的计算机名称和用户名作为要输入到表中的变量。

我正在使用隐藏表上的表格将保存日志记录到工作簿中。这些文件从网络计算机打开并保存到网络计算机。我想知道谁保存在每个工作簿上

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ws As Worksheet

Set ws = Sheets("EDITS")

Dim tbl As ListObject

Set tbl = ws.ListObjects("Table1")

Dim newrow As ListRow

Set newrow = tbl.ListRows.Add

'DIM SOME MORE OBJECTS

Dim computername, username As String

Dim ComputerNameLen As Long

computername = Environ("computer name") 'Get computer name

username = Environ("user name") 'Get user name

SavePrompt.Show

With newrow

.Range(1) = Now

.Range(2) = SavePrompt.TextBox1.Text

.Range(3) = computername

.Range(4) = username

End With

Unload SavePrompt

Unload computername

Unload username

End Sub

Range(1)和Range(2)都正确填写，但Ranges(3)＆(4)却什么也没有出现

我认为我的物品有问题吗？