麻烦老师们帮忙改个宏

976190982 · 发表于 2017-7-21 12:32

判断ThisWorkbook.Path & "\图片\"

文件夹里有JPG文件时删除，删除成功后提示“已删除”，若当前文件夹里没有JPG文件则提示“当前目录没有文件”

wang-way · 发表于 2017-7-21 12:47

使用FSO对象

朱荣兴 · 发表于 2017-7-21 12:54

提示: 作者被禁止或删除内容自动屏蔽

976190982 · 发表于 2017-7-21 14:35

朱荣兴发表于 2017-7-21 12:54
可是使用fso对象，也可以使用kill来删除，关键是上传附件来才好写代码，测试代码

新建文件夹 (2).rar (176.42 KB, 下载次数: 1)

cflood · 发表于 2017-7-21 15:30

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
f = Dir(ThisWorkbook.Path & "\图片\*.jpg")
If f <> "" Then
r = MsgBox("是否删除当前文件夹下的jpg图片", vbOKCancel)
If r = vbOK Then Kill ThisWorkbook.Path & "\图片\*.jpg"
End If
End Sub

976190982 · 发表于 2017-7-21 16:18

cflood 发表于 2017-7-21 15:30
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
f = Dir(ThisWorkbook. ...

谢谢老师真的很感谢让我学会了IF 跟MSGBOX

		自动登录	找回密码
密码			免费注册

[求助] 麻烦老师们帮忙改个宏

评分

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-7-21 12:54 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报