当前位置:首页经验技巧Excel经验excel函数

怎么删除excel表格文件位置

2024-07-30 17:06:48

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参数。


电脑版

免责声明:本站信息来自网络收集及网友投稿,仅供参考,如果有错误请反馈给我们更正,对文中内容的真实性和完整性本站不提供任何保证,不承但任何责任,谢谢您的合作。
版权所有:五学知识网 Copyright © 2015-2024 All Rights Reserved .