- ·上一篇:镂空字体怎么打excel表格
- ·下一篇:if函数怎么写excel表格
怎么删除excel表格文件位置
1.excel2007的清除格式在哪
“开始”选项的“编辑”里。
2.如何快速删除文件夹中指定的excel列表文件
右键点击表格标签,选查看代码,在VBA代码框填入:
Private Function DelFS(FileName) As String
Dim FS, F
On Error Resume Next
If FileName = "" Then End
DelFS = "错误"
Set FS = CreateObject("Scripting.FileSystemObject")
Set F = FS.GetFile(FileName)
If Err > 0 Then
Beep
MsgBox ("删除指定的文件[" & FileName & "]出现错误。")
Else
F.Delete
DelFS = "已删除"
End If
End Function
Sub AutoDel()
Dim FDN, FN, FExt, Area
Dim Rng As Range
FDN = InputBox("输入文件所在文件夹名称:如C:\TEMP")
FExt = InputBox("输入文件的后缀名:如.jpg")
Area = InputBox("输入文件名所在表格范围:例如:A1:A50")
If FDN = "" Or Area = "" Or FExt = "" Then End
If MsgBox("点确认开始删除文件!") = vbCancel Then End
For Each Rng In Range(Area)
With Rng
If .Value <> "" Then
FN = FDN & "\" & .Value & FExt
.Offset(0, 1).Value = DelFS(FN)
End If
End With
Next
End Sub
然后运行AutoDel()
注意输入信息(文件夹、后缀名等)要正确。
在OFFICE2007初步测试可用,没有完整调试,希望能帮到你。
2012-4-26 15:16测试可用,调试后修改了函数delfs参数。