excel vba删除指定盘符工作簿代码
答案:4 悬赏:80 手机版
解决时间 2021-02-12 19:13
- 提问者网友：斑駁影
- 2021-02-12 00:06
例如：我要删除E盘下的123.xls文件 该代码怎么写啊 谢谢
最佳答案
- 五星知识达人网友：神的生死簿
- 2021-02-12 01:11
代码不复杂，但是不推荐使用，以免误伤。
如下：
Sub tst()
Dim wbk, p, pth
pth = "C:\1\1111\"
p = Dir(pth & "*.xls*")
Do While p <> ""
Kill (pth & p)
p = Dir
Loop
End Sub注意： 1.其中代码第三行的路径根据自己需求设定盘符。
2. 代码第四行根据自己需求选择想要删除的工作簿的扩展名
3. 再次提醒，除非对VBA很了解，否则不推荐使用此方法。
如下：
Sub tst()
Dim wbk, p, pth
pth = "C:\1\1111\"
p = Dir(pth & "*.xls*")
Do While p <> ""
Kill (pth & p)
p = Dir
Loop
End Sub注意： 1.其中代码第三行的路径根据自己需求设定盘符。
2. 代码第四行根据自己需求选择想要删除的工作簿的扩展名
3. 再次提醒，除非对VBA很了解，否则不推荐使用此方法。
全部回答
- 1楼网友：西岸风
- 2021-02-12 03:29
不懂。。。。。
- 2楼网友：酒醒三更
- 2021-02-12 02:55
Kill("e:\123.xls")
- 3楼网友：夜风逐马
- 2021-02-12 02:10
Public Sub scwj()
Set fs = CreateObject("Scripting.FileSystemObject")
Set ff = fs.GetFile("E:\123.xls")
ff.Delete
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯