小编use*_*190的帖子

我想知道一个特定文件夹中有多少个文件扩展名为.xls.我用消息框阅读了数百个例子,但这不是我想要的.我只想将数字显示在1 cel中.

有人喜欢帮我吗？我不能发布任何尝试,因为我无法开始:-(

最好的问候,E.

我写的代码可以将文件名显示在工作表中,但我想在显示时删除扩展名.我知道这应该是一个小小的修正,但我烧掉了尝试选项.有人可以告诉我exaclty在哪里我必须添加一段我想念的代码吗？我尝试下面的代码.网上有很多类似的问题,但我无法找到它.谢谢提前....

Option Explicit
Sub fileNames_in_folder()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Dim fldpath
Dim fld As Object, fil As Object, fso As Object, j As Long
 fldpath = "C:\"
   On Error Resume Next
Thisworkbook.Sheets("1").Activate
'start count row
    j = 11
Set fso = CreateObject("scripting.filesystemobject")
Set fld = fso.getfolder(fldpath)
    For Each fil In fld.Files
'here I have to add something due to expell the ".extension" 
Cells(j, 34).Value = fso.GetBaseName(fil.path)
'count behaviour
    j = j + 1
  Next
Columns("AH").AutoFit
End Sub