在VBE窗口中点击插入选项卡并点击模块，双击导出其代码框
并添加过程输入名称
输入代码

今天给大家分享的是使用VBA代码提取文件夹内文件名。
步骤1
◆选择【开发工具】选项卡，点击【Visual Baisc】选项，打开VBE窗口
或者按也可以打开
◆在VBE窗口左侧工程资源管理器中，右键新建模块，然后双击模块
◆在VBE窗口右侧代码区写入代码，保存，关闭VBE窗口
代码：
Sub 提取文件夹内名称()
Dim FilePath As String
Dim FileName As String
Dim i As Integer
Rows("2:100000").ClearContents
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择要查找的文件夹"
.InitialFileName = ThisWorkbook.Path
If .Show = 0 Then Exit Sub
FilePath = .SelectedItems(1) & ""
End With
i = 2
FileName = Dir(FilePath)
Do While FileName <> ""
Cells(i, 1) = FileName
i = i + 1
FileName = Dir
Loop
End Sub
步骤2
◆选择【开发工具】选项卡，点击【插入】选项的下拉箭头，选择“按钮”控件
◆在工作表任意地方插入按钮控件，在指定宏对话框中，选择宏名，确定
步骤3
◆点击按钮，在弹出的文件选择框中，选择需要提取文件名的文件夹即可
※只需选到文件夹，无需指定某一个文件
提取后效果：

缘由
今天有人问我如何在Excel里面设置聚光灯高亮，我一般很少有Excel，随手查了一下，无非就是excel外挂一个插件，写几句代码就完事了。。。
步骤
（1）安装wps或微软excel
（2）安装Visual Basic for Applications官方地址。

（3）打开excel，点击alt+f11，如下所示：



（4）双击ThisWorkbook



（5）填入如下代码：
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = -4142
Rows(Target.Row).Interior.ColorIndex = 36
Columns(Target.Column).Interior.ColorIndex = 36
Application.ScreenUpdating = False
End Sub

如下：



然后关闭上面代码窗口即可。

三、实训项目1.3：VBA程序
实训目的：动手编写VBA程序
实训内容：添加或删除模块，动手编写程序
作业：  CSDN发表自己的第一个VBA程序代码。
例，将活动工作薄中自动新建工作表并将其命名为“员工考勤表”。
1.打开VBE窗口，点击菜单“插入”→“模块”，在工作簿中新建“模块2”，双击该模块，打开如下图：
2.将光标定于“模块2”对应的代码窗口中，点击菜单栏中“插入”→“过程”，在打开的“添加过程”对话框中输入过程名等信息，如下图第1张图，点击“确定”形成如下第2张图：


4.在框中输入代码，如下图所示;

 5.运行结果如下图：