vba获取当前excel名(vba当前文件名)

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,然后点击设置就能导出自定义文件名的文件