1. vba当前文件名
首先可以确定VBA是自带加密工程的，以设置密码的方式，但是如果是商业性或者高标准的加密，VBA的加密基本不能满足需要，VBA的加密只能用于预防使用者非恶意的修改，不能称为版权和知识保护的工具。
以下是VBA加密的方法：
打开VBA界面
选择左侧VBAProject(文件名.xls),也就是所有表格最上面的那个
右键-VBAProject属性-选择“保护”标签-勾选“查看时锁定工程”并输入密码-确定
自此，VBA的密码就设定好了，单纯打开Excel，将不能直接查看VBA代码，会提示输入密码。但是很遗憾的时，有很多工具可以直接绕过密码，或者重置密码，连破解密码都不需要，所以如果要用于商业性加密，可以考虑其他软件，或者使用专业数据库代替XLS文件。
2. vba如何得到文件夹下所有文件名
1 :新建excel并输入你要找的80个文件名。
2:在VBA中使用dir函数从系统导出文件取得文件名。
3:如果取的文件名等于新建excel中的文件名则copy到新文件夹。
4.使用不带参数的dir遍历文件夹。
3. vba 更改文件名
1选择vba project可操作。
2vba批量导出vba代码。
3批量文本文件的繁简转换。
4导入原来的EXCEL文件。
4. vba引用当前文件名
VBA 中对名称的基本用法：
1、 创建名称
可以使用下面的代码在当前工作簿中创建名称。
2、重命名已有的名称
但这种方法只能在单元格或单元格区域中进行重命名使用，而不能重命名代表公式、数组和字符串的名称。
3、改变所选区域所命名的名称的引用区域
代码将原来所选区域的名称的引用区域改为单元格区域B3:C4，即该名称所代表的区域已变为B3:C4，原来命名区域名称被取消。
4、提取命名区域
将工作表中名称MyName所代表的单元格区域的背景设置为红色。
5、隐藏名称
将隐藏所创建的名称。注意，如果再创建的名称与所隐藏的名称相同，则被隐藏的名称将被覆盖。
6、删除名称
注意，当前工作簿中重命名已有名称和删除名称时，要注意所要操作的名称是全局名称还是局部名称。如果为局部名称，则必须在代码中加上该名称所在工作表的引用。
5. vba读取文件夹下的所有文件名
按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行
Sub t()
Dim s As FileSearch '定义一个文件搜索对象
Set s = Application.FileSearch
s.LookIn = "c:\" '注意路径，换成你实际的路径
s.Filename = "*.*" '搜索所有文件
s.Execute '执行搜索
Cells.Delete '表格清空
For i = 1 To s.FoundFiles.Count
Cells(i, 1) = s.FoundFiles(i) '每一行第一列填写一个文件名
Next
End Sub
6. vba文件后缀名
1、首先我们打开一个工作样表作为例子。
2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub rename() Name "\.xls" As "\.xls"End Sub。
3、我们知道在excel中保存一个文件为另一个文件时可以重新命名，save as 就是本例中as 代码的作用。name是命名函数，所以name as 就是将文件重命名。
4、不过需要注意的是，name改名修改的文件是未打开文件，如果是打开的文件直接运行代码的话，程序会报错。
5、文件的名称需要使用双引号包括起来，需要填写完整的路径和文件名称，包括文件的后缀名。大家需要注意文件的后缀名是需要通过系统设置来显示的。
6、最后，使用name重命名文件只要是符合未打开这一要素，就可以改名任何文件，包括但不限于excel的文件。当然后缀也可以修改，但是会以默认的关联程序打开。
7. vba文件名使用变量
Sheets("工作表1")就可以表示名字叫做“工作表1”的工作表，你的语句这么写：z = Sheets("工作表1").Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
8. vba获取文件夹下的所有文件名
使用excel提取文件夹中的所有文件名称的方法主要有以下两个：1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入dir> 1.txt保存退出将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！2、VBA（2003版）在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码Sub Test()Dim i As IntegerDim strPath As StringstrPath = ThisWorkbook.PathWith Application.FileSearch .LookIn = strPath .SearchSubFolders = True .Filename = "*.*" If .Execute > 0 Then For i = 1 To .FoundFiles.Count Range("A" & i) = .FoundFiles(i) Next i End IfEnd WithEnd Sub回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。
9. vba修改文件名称
写代码编程 可以实现。要做从速，又要12点了！发你的文件来
写代码编程 可以实现
10. vba 读取文件名
打开vba,然后点击设置就能导出自定义文件名的文件
- 相关评论
- 我要评论
-