|
查看权限: |
需要 [年费会员] 级别以上才能查看。 |
发布时间: |
2023-04-19 05:13:07 |
信息简介: |
Sub 删除图片()
Dim a, rrr, i, r, pic
On Error Resume Next
Set rrr = CreateObject("scripting.filesystemobject")
Set r = rrr.getfolder(ThisWorkbook.Path & "\")
For Each i In r.Files
If i.Name Like "*.xls*" Then
If Not i.Name Like "*图* |
|