VBA 检查当前文件目录下【之前】文件夹中是否有保护使用 C2 +D2 +文件.xls 命名的文件,如果有则删除掉。以下的代码不知道哪里错误了。请高手帮忙修正。
Dim FileName As String
FileName = Dir(ThisWorkbook.Path & "\之前" & Range("c2") & Range("d2") & "文件.xls")
Do While FileName <> ""
Kill "ThisWorkbook.Path" & FileName
FileName = Dir
Loop
1、首先在工作表中,点击菜单栏【开发工具】,在其工具栏里,点击【visual basic】,进入VBA界面。
2、然后在VBA界面,点击菜单栏【插入】,在其下拉菜单中,点击【模块】。
3、会弹出代码编辑窗口,在代码编辑窗口,输入下代码。
4、未运行代码前,F盘目录下有“789.XLSx”文件。
5、在VBA界面,点击运行按钮,会发现F目录下,“789.xlsx”文件被成功删除了。
修改了好像也没用?
我的目的是:
检查当前文件目录下的【之前】文件夹中是否有,使用 C2 +D2 +文件.xls 命名的文件,如果有则删除掉。假如C2是工资表,D2是2015-01 ,
文件名称就是:[工资表2012-01文件.xls]如果有发现这个文件就删除。
当前路径不能用引号
FileName = Dir(ThisWorkbook.Path & "\之前\" & Range("c2") & Range("d2") & "文件.xls")