遍历文件夹与子文件夹给文件加标题

liulang0808

wenwen000424 发表于 2015-1-3 14:41
我下载了你的文件再次运行了一下，每个文件中插入了3行标题，见附件。

运行之前 应该是没有标题的，运行一次就出现了3个标题吗？

zhaogang1960

liulang0808 发表于 2015-1-3 14:31
10号工资 这个文件里进行了修改
能否针对这个附件内容说明下问题在哪里，通过运行结果没有发现问题的。

这好办，如果你能让程序停下来，使用下面方法可以测试打开文件次数远远大于文件实际数量：

1. Dim n&
   
2. 
   
3. Sub 按钮1_Click()
   
4.      
   
5.      Set fso = CreateObject("scripting.filesystemobject")
   
6.      fd = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件夹", 0, "").Self.Path & ""
   
7.      If Not fso.folderexists(fd) Then Exit Sub
   
8.      Application.ScreenUpdating = False
   
9.      Getfd (fd)
   
10.      Application.ScreenUpdating = True
    
11.      MsgBox n
    
12.      n = 0
    
13. End Sub
    
14. Sub Getfd(ByVal pth)
    
15.      Set fso = CreateObject("scripting.filesystemobject")
    
16.      Set ff = fso.getfolder(pth)
    
17.      For Each f In ff.Files
    
18.         n = n + 1
    
19.         Cells(Rows.Count, 1).End(3).Offset(1) = f
    
20.         Set wb = Workbooks.Open(f)
    
21.         wb.Sheets(1).Rows(1).Insert
    
22.         wb.Sheets(1).Cells(1, 1) = Left(f.Name, 4) & "年" & Mid(f.Name, 5, 2) & "月份" & "10日工资表"
    
23.         wb.Save
    
24.         wb.Close
    
25.      Next f
    
26.      For Each fd In ff.subfolders
    
27.          Getfd (fd)
    
28.      Next fd
    
29. End Sub
    

复制代码

我这里运行了很久才停下来，6个文件的文件夹，最后n=300多

liulang0808

我这边测试了几次都是正常的，没有遇到问题

这次你运行下附件，选择这个“求助1111”的文件夹进行添加，然后看看是否有异常的
我这边测试没有发现问题的，现在不知道问题出在什么地方的。。。。

liulang0808

赵版，用您刚才的代码，选中 文件夹 “求助1111” 运行的情况见截图

wenwen000424

liulang0808 发表于 2015-1-3 14:57
我这边测试了几次都是正常的，没有遇到问题

这次你运行下附件，选择这个“求助1111”的文件夹进行添加， ...

现在运行正常，谢谢！我再研究一下代码，有问题再请教！

zhaogang1960

liulang0808 发表于 2015-1-3 15:03
赵版，用您刚才的代码，选中 文件夹 “求助1111” 运行的情况见截图

我估计是windowsxp的缘故，我现在用的就是xp，在子程序中打开工作簿并处理后，会造成死循环，每个工作簿会被打开多次，一直停不下来
不必纠结这个问题了，最好的办法就是，用子程序查找所有指定文件夹中的所有文件，放到数组里，最后一次性打开处理
如果不打开处理，如用ADO，就不会出现该问题