遍历文件夹下的工作簿，每个sheet1的A10=工作簿名称

xzmxb · 发表于 2017-12-13 13:21

需求如标题所述，我在论坛找了好久没找到方法，恳求各位帮助。

xzmxb · 发表于 2017-12-13 13:22

附件在此，谢谢各位了。

lss001 · 发表于 2017-12-21 21:08

本帖最后由 lss001 于 2017-12-24 16:34 编辑

Sub LFso()
Call LFs("F:\文件夹") '只需要指定文件夹路径，其它不作改动
End Sub
Function LFs(myPath$)
Set Fso = CreateObject("Scripting.FileSystemObject").getfolder(myPath)
For Each F In Fso.Files
      If F.Name <> ThisWorkbook.FullName Then
         Workbooks.Open (F)
         Sheets(1).Activate
         Cells(10, 1) = Left(F.Name, InStr(F.Name, ".") - 1)
         ActiveWorkbook.Close Savechanges:=True
      End If
Next
For Each Fs In Fso.subfolders
      Call LFs(Fs.Path)
Next
End Function

xzmxb · 发表于 2017-12-28 02:23

lss001 发表于 2017-12-21 21:08
Sub LFso()
Call LFs("F:\文件夹") '只需要指定文件夹路径，其它不作改动
End Sub

嗯谢谢你的回复，解决了

		自动登录	找回密码
密码			免费注册