请问如何才能让VBA批量运行到子文件夹里的所有xls

opel-wong

asd525223750 发表于 2021-6-19 13:16
是的是的，大佬

代码如下，供参考：

yganbing

3190496160 发表于 2021-6-20 10:55
Sub ListFilesTest() '
Application.ScreenUpdating = False '
    T = Timer '

请教一下老师：这个参数Optional k = 0 要怎么理解啊？  谢谢老师

If k   '如果参数=1则列出字典d1中所有子文件夹的路径名 (如使用d1.Items则仅列出子文件夹名称不含路径)
   '如果参数=0则默认列出字典d2中Items即所有文件名

ykcbf1100

借题练习，遍历文件多表批量转PDF文件

ykcbf1100

1. Sub ykcbf()     '//2025.11.8   批量转PDF文件
   
2.     With Application
   
3.         .ScreenUpdating = False
   
4.         .DisplayAlerts = False
   
5.         .Calculation = xlCalculationManual
   
6.         .AskToUpdateLinks = False   '//禁用更新提示
   
7.         .EnableEvents = False
   
8.     End With
   
9.     Set fso = CreateObject("scripting.filesystemobject")
   
10.     p = ThisWorkbook.Path & Application.PathSeparator
    
11.     Dim tm: tm = Timer
    
12.     xm = Array("出库单B-C", "入库单B-C", "货物收据B-C", "货权转移凭证B-C", "结算确认单B-C2份")
    
13.     b = Array("出库", "入库", "货收", "货转", "结算")
    
14.     On Error Resume Next
    
15.     For Each fd In fso.GetFolder(p).SubFolders
    
16.         For Each f In fso.GetFolder(fd).Files
    
17.             fn = fso.GetBaseName(f)
    
18.             Set wb = Workbooks.Open(f.Path, 0, True, , False)
    
19.             For x = 0 To UBound(xm)
    
20.                 wb.Sheets(xm(x)).ExportAsFixedFormat _
    
21.                     Type:=xlTypePDF, _
    
22.                     Filename:=p & fn & "--燕华" & b(x) & ".pdf", _
    
23.                     Quality:=xlQualityStandard, _
    
24.                     IncludeDocProperties:=True, _
    
25.                     IgnorePrintAreas:=False, _
    
26.                     From:=1, To:=1, _
    
27.                     OpenAfterPublish:=False
    
28.             Next
    
29.             wb.Close False
    
30.         Next f
    
31.     Next
    
32.     On Error GoTo 0
    
33.     With Application
    
34.         .DisplayAlerts = True
    
35.         .ScreenUpdating = True
    
36.         .Calculation = xlCalculationAutomatic
    
37.         .AskToUpdateLinks = True
    
38.         .EnableEvents = True
    
39.     End With
    
40.     MsgBox "共用时：" & Format(Timer - tm, "0.000") & "秒！"
    
41. End Sub
    

复制代码