- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 98
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-4-27
|
¦^´_ 5# PJChen
¶}±ÒÀɮפ£§ó·s³sµ²- Sub Try()
- fd = ThisWorkbook.Path & "\" & Sheets(1).[E6] & "\"
- fs = Dir(fd & "*.xlsm")
- fs = Dir(fd & "*.xls")
- Do Until fs = ""
- Application.DisplayAlerts = False
- With Workbooks.Open(fd & fs, False) ' ¶}±ÒÀɮפ£§ó·s³sµ²
- 'With Workbooks.Open(fd & fs, True) ' ¶}±ÒÀɮקó·s³sµ²
- For Each vbc In .VBProject.VBComponents
- Select Case vbc.Type
- Case vbext_rk_Project, vbext_wt_Browser, vbext_ct_MSForm 'µù
- .VBProject.VBComponents.Remove .Item(vbc.Name)
- Case Else
- .VBProject.VBComponents(vbc.Name).CodeModule.DeleteLines 1, _
- .VBProject.VBComponents(vbc.Name).CodeModule.CountOfLines
- End Select
- Next
- .Close 1
- End With
- fs = Dir
- Loop
- End Sub
½Æ»s¥N½X |
|