|
|
| 查看权限： |
需要 [年费会员] 级别以上才能查看。
|
| 发布时间： |
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 "*图*
|
|
