如何在excel VBA 创建一个控件显示某固定文件夹内的名称列表

使用excel提取文件夹中的所有文件名称的方法主要有以下两个：

1、在那个文件夹内新建一个TXT文件（如wenjiantxt），用记事本单开输入

dir>

1txt

保存退出

将刚才的TXT（wenjiantxt）更名为bat文件（wenjianbat）

双击wenjianbat文件运行一次，在文件夹内多出一个1txt文件

打开1txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！

2、VBA（2003版）

在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码

Sub

Test()

Dim

i

As

Integer

Dim

strPath

As

String

strPath

=

ThisWorkbookPath

With

ApplicationFileSearch

LookIn

=

strPath

SearchSubFolders

=

True

Filename

=

""

If

Execute

>

0

Then

For

i

=

1

To

FoundFilesCount

Range("A"

&

i)

=

FoundFiles(i)

Next

i

End

If

End

With

End

Sub

回到Excel表格中，工具——宏——宏——选择Sheet1Test——执行

方法一简单的 *** 作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

文章介绍excel中使用vba提取文件名的 *** 作步骤。根据需要自行修改vba提取文件名的路径和存放单元格即可。

在excel中使用VBA编写代码，可以轻松的提取某个文件夹下面的所有文件名。

比如笔者在F盘下面建立了一个文件夹，文件夹的名称是：office教程网，现在想将“office教程网”这个文件夹下面的所有文件名提取出来放在当前工作表的C列。

具体的vba提取文件名的 *** 作如下：

1按下ALT+F11，打开VBE编辑器。

2执行“插入——模块”，插入模块1。

3在右边的代码编辑窗口，复制下面的代码，然后单击“绿色箭头”或者快捷键F5键，运行代码。

Private Sub vba提取文件名()

Dim FileName As String

Dim i As Long

FileName = Dir("F:\office教程网\")

i = 0

Range("C:C")ClearContents

Do While FileName > ""

i = i + 1

Cells(i, 3) = FileName

FileName = Dir

Loop

End Sub

4关闭VBE窗口，回到工作表中，可以在C列看到F盘“office教程网”文件夹下面所有的文件名全部罗列在C列了。

关于上面的vba提取文件名的代码，请在实际使用时，根据需要修改提取文件名的路径（F:\office教程网\），以及存放在C列的位置（Cells(i, 3)）。

dim fname as string

fname=thisworkbookname

即可得到当前工作簿的名字。

获得当前工作表的名字。

fname=activesheetname

#用VBA遍历CheckBox#可以先遍历所有shaps,再根据名称判断是否复选框。

Sub 遍历CheckBox()

    Dim shp As Shape, i

    i = 1

    For Each shp In Sheet1Shapes

        If shpName Like "Check Box" & "" Then

            Sheet1Cells(i, 1) = shpName

            shpSelect

            Sheet1Cells(i, 2) = SelectionCharactersText

            i = i + 1

        End If

    Next

End Sub

-------如有疑问，可加新浪微博@芐雨------

以上就是关于如何在excel VBA 创建一个控件显示某固定文件夹内的名称列表全部的内容，包括:如何在excel VBA 创建一个控件显示某固定文件夹内的名称列表、Excel中VBA提取文件夹名称的方法、VBA excel 如何自动获取当前工作表的名字,语句如下。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！