批量提取数据的问题

杨小妹

附件 批量提取数据附件.rar (1.1 MB, 下载次数: 34)

2025-3-22 07:01 上传

点击文件名下载附件

谢谢老师！

hwf0101

rem 代码只是一个外壳，需求的逻辑代码需单独修改

1. Sub ProcessFolders()
   
2.     Dim mainPath As String
   
3.     Dim folderPath As String
   
4.     Dim subFolder As Object
   
5.     Dim file As Object
   
6.     Dim fso As Object
   
7.     Dim newWorkbook As Workbook
   
8.     Dim ws As Worksheet
   
9.    
   
10.     ' 获取当前工作簿所在路径
    
11.     mainPath = ThisWorkbook.Path
    
12.     If Right(mainPath, 1) <> "" Then
    
13.         mainPath = mainPath & ""
    
14.     End If
    
15.    
    
16.     ' 创建文件系统对象
    
17.     Set fso = CreateObject("Scripting.FileSystemObject")
    
18.    
    
19.     ' 遍历主路径下的每个文件夹
    
20.     For Each subFolder In fso.GetFolder(mainPath).SubFolders
    
21.         folderPath = subFolder.Path
    
22.         
    
23.         ' 创建新工作簿
    
24.         Set newWorkbook = Workbooks.Add
    
25.         Set ws = newWorkbook.Sheets(1)
    
26.         
    
27. '         运行固定程序（需求的逻辑代码），这里以打印文件夹内的文件名到新工作簿为例
    
28.         Dim rowIndex As Long
    
29.         rowIndex = 1
    
30.         For Each file In fso.GetFolder(folderPath).Files
    
31.             ws.Cells(rowIndex, 1).Value = file.Name
    
32.             rowIndex = rowIndex + 1
    
33. 
    
34.         
    
35.         ' 保存新工作簿，以文件夹名命名并保存为 .xlsb 格式
    
36.         newWorkbook.SaveAs Filename:=folderPath & ".xlsb", FileFormat:=xlExcel12
    
37.         newWorkbook.Close SaveChanges:=False
    
38.     Next subFolder
    
39.    
    
40.     Set fso = Nothing
    
41. End Sub
    

复制代码

杨小妹

hwf0101 发表于 2025-3-22 08:33
rem 代码只是一个外壳，需求的逻辑代码需单独修改

谢谢老师帮助，试着套进去几次都不成功。

ynzsvt

杨小妹 发表于 2025-3-22 11:50
谢谢老师帮助，试着套进去几次都不成功。

要充分的准备工作的，急不得。

lyfegf

真厉害, 这都能看懂

gwjkkkkk

gwjkkkkk

请参考附件。。。

杨小妹

gwjkkkkk 发表于 2025-3-22 21:24
请参考附件。。。

老师你好，谢谢帮助。试了一下，结果有误。估计是改变了原代码的容。正确的结果里面的内容是这样的：

杨小妹

gwjkkkkk 发表于 2025-3-22 21:24
请参考附件。。。

原程序已有几个模块。只要改变其中一点，就会出现错误。现在的目的只是想加个外壳，把程序从里面抽出来，放在外面。免得每个文件夹里面去操作。

quqiyuan

其实就是把最后一个模块里的几个call合并在一起，能够正常运行的意思吧。需要循环操作文件夹里面的子文件夹的文件。