Question

求大神解读一下下列VBA代码，感觉是生成一个dat数据文件，但是不懂怎么生成的，保存在哪个目录里

If Dir("namelist.dat") = "" Then
Workbooks.Add
ActiveWorkbook.SaveAs "namelist.dat", password:="process3448"

ActiveWorkbook.Close
Else
Workbooks.Open "namelist.dat", password:="process3448"
a = ActiveSheet.Range("A65536").End(xlUp).Row

For i = 1 To a
ComboBox1.AddItem ActiveSheet.Range("A" & i)
Next i

ActiveWorkbook.Close
End If

Answer 1

代码含义为：

If Dir("namelist.dat") = "" Then'如果不存在namelist.dat文件则进行如下处理：
    Workbooks.Add'新建空白工作薄
    ActiveWorkbook.SaveAs "namelist.dat", password:="process3448" '空白工作薄另存为namelist.dat，并设定密码
    ActiveWorkbook.Close'关闭新建的工作薄
Else'否则（就是存在namelist.dat）则进行下面的处理
    Workbooks.Open "namelist.dat", password:="process3448"'打开namelist.dat文件
    a = ActiveSheet.Range("A65536").End(xlUp).Row'获得A列最后一行有内容的行号
    For i = 1 To a'把A列的内容添加到组合框ComboBox1中
        ComboBox1.AddItem ActiveSheet.Range("A" & i)
    Next i
    ActiveWorkbook.Close'关闭此工作薄
End If

所有的代码中的namelist.dat都没有指定文件夹，那么就是工作时的当前文件夹：当前最后一次打开或者保存文件的文件夹。

追问

没有啊，在当前目录里面根本就没有这个文件

追答

这段代码的含义就是这样，没有解释错误的，如果你的文件夹下没有那个文件，那么：
一、你全盘搜索，看看其它位置是否有
二、是否有其它代码删除文件
三、这段代码可能没有执行过

追问

恩找到了，是在相同目录下面，还有个问题问下，如何获取电脑用户名呢，我在公司应该是工作组那种，分域的，登录时候是工号，也就是涂掉的@前面，但是会有中文名字的显示在前面，vba里面怎么提取前面的中文名字呢，网上找了些方法只能提取到登录时的帐号，也就是域名@前的那一串数字，提取不到中文名

追答

请粘贴你的代码，说明你希望得到什么，却得到了什么

追问

ENVIRON("USERNAME")

得到的是登录时候的帐号123456
ENVIRON("COMPUTERNAME")
得到的是电脑的名字
想得到与登录帐号想关联的中文名字

追答

环境变量里面没有你要的东西，看看下面的代码运行结果是否你需要的：

Sub xxx()
    MsgBox Application.UserName
End Sub

追问

也是跟第一个一样，出现的是登录时的帐号 一串数字

追答

你是用的EXCEL2003吧，2003显示的是用户名，2010版显示的是用户“全称”，你想要的就是用户全称吧。

追问

是的，用户全称是计算机名，我们公司分工作域，利用域分配的账号登录，但是其实这个账号关联我的姓名的，我要的是检索到我的姓名这个信息

不是的打成是的了

追答

第版本的EXCEL没有

追问

好吧

Answer 2

If Dir("namelist.dat") = "" Then '判断DAT文件是否存在,""表示不存在
Workbooks.Add '新建工作簿
ActiveWorkbook.SaveAs "namelist.dat", password:="process3448" '另存为指定文件名,设密码
ActiveWorkbook.Close '关闭文件
Else
Workbooks.Open "namelist.dat", password:="process3448" '存在指定的文件时,打开
a = ActiveSheet.Range("A65536").End(xlUp).Row '获取由数据的行数

For i = 1 To a
ComboBox1.AddItem ActiveSheet.Range("A" & i) '将数据添加到 combobox控件
Next i

ActiveWorkbook.Close
End If

Answer 3

用dir查找文件，应该是查找当前文档所在的目录，生成过程则是如果没有找到namelist.dat，则新增一个工作簿，然后直接把新增的工作簿保存为namelist.dat