怎样获得当前正在打开某Excel文件的用户名

用vba的方法可以知道。

第一步：写vba代码如下：

Sub test()

a = ThisWorkbookAuthor

MsgBox ("该文档的作者：" & a)

End Sub

第二步：运行宏。结果如图：

你只要运行语句，然后找到你那个文件夹，Office下次再打开是会自动记录位置的，直接定位到那个文件夹。

而且要指出的是：

GetOpenFilename 方法：显示标准的“打开”对话框，并获取用户文件名，而没有真正打开任何文件。

要真正打开文件要使用：Workbook的Open方法

xlappWorkbooksOpen (Filename)

注意：其中Filename参数需要指定文件的全路径。

使用excel提取文件夹中的所有文件名称的方法主要有以下两个：1、在那个文件夹内新建一个TXT文件（如wenjiantxt），用记事本单开输入dir>1txt保存退出将刚才的TXT（wenjiantxt）更名为bat文件（wenjianbat）双击wenjianbat文件运行

代码及注释如下：

Sub main()

f = Dir("D;\xls") '查找D盘根目录的所有Excel文件

Do While f <> ""

WorkbooksOpen ("D:\" & f) '依次D盘根目录的所有Excel文件

k = k + 1

Cells(k, 1) = Workbooks(f)Range("A1") '将打开的Excel文件中的A1单元格内容依次提取到当前工作表中

f = Dir

Loop

End Sub

1、首先我们打开一个工作样表作为例子。

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub ddt()

ActiveWorkbookName '返回活动工作薄的名称

ThisWorkbookName '返回当前工作簿名称

ThisWorkbookFullName '返回当前工作簿路径和名称

End Sub

3、这里返回活动的工作薄名称我们是使用的活动工作薄的name属性，设置一个变量赋予它这样一个值，我们运行一下宏代码。

4、ActiveWorkbookName 是一个值，但是不能单独存在，它可以作为参数，也可以作为变量值，但是不能单独存在。

5、活动工作薄和当前工作薄如果返回值是一样的，是因为当前工作薄和活动工作薄的取值对象一致，活动工作薄是指的激活窗口工作薄，而当前工作薄是指的代码所在工作薄。

6、如果是在name前加上full，则是显示激活工作薄的完整路径，包括名称和在硬盘上的文件位置，如果存在多个不同文件夹中同名文件，使用这个命令可以更准确的确定文件。

以上就是关于怎样获得当前正在打开某Excel文件的用户名全部的内容，包括:怎样获得当前正在打开某Excel文件的用户名、VBA 怎么打开当前文件夹下的excel、怎样提取当前文件夹及所有子文件夹中的excel文档汇总成一张总表等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！