VBA案例4:取文件夹中所有文件的名称

取文件夹中所有文件的名称,存在在excel中


程序案例:

640?wx_fmt=png&wxfrom=5&wx_lazy=1

程序案例:

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

temp = ThisWorkbook.Path '设定路径


objectname = ThisWorkbook.Name '目标文件名


Set fso = CreateObject("Scripting.filesystemobject")                    '取目标文件

Set myf = fso.getfolder(temp)


c = 0

On Error Resume Next  '有错继续

c = 1

For Each i In myf.Files '开始打开文件

If Right(i.Name, 7) <> Right(objectname, 7) Then     '结果文件不统计

Cells(c, 1) = i.Name

c = c + 1

End If

Next


MsgBox "共" & c & "个文件"  '提示文件个数


End Sub


展开阅读全文

没有更多推荐了,返回首页