快速便捷地删除当前目录下所有EXCEL文件中的所有公式。

最新推荐文章于 2025-07-25 20:45:57 发布

cocolong2002

最新推荐文章于 2025-07-25 20:45:57 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： OFFICE应用文章标签： excel each

本文链接：https://blog.youkuaiyun.com/cocolong2002/article/details/2288012

OFFICE应用专栏收录该内容

0 篇文章

订阅专栏

本文介绍了一种使用VBA宏编程的方法来批量处理Excel文件夹中的所有Excel文件(XLS格式)，实现文件打开、数据复制粘贴为数值、保存及关闭等自动化操作，并通过调试输出文件路径确认每个文件是否被正确处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Workbook_Open()
ShowFolderList (".")
delequ
End Sub

Sub delequ()
    For rowi = 1 To Sheet1.UsedRange.Rows.Count
    Workbooks.Open Filename:=Cells(rowi, 1)
    i = 1
    Do While i <= Workbooks(Workbooks.Count).Sheets.Count
    If Sheets(i).Visible <> 0 Then
    Sheets(i).Select
    Cells.Select
    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
        i = i + 1
    Loop

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Sheets(1).Cells(1, 3) + "N" + ActiveWorkbook.Name
    Debug.Print Filename
    ActiveWindow.Close
    Cells(rowi, 2) = "OK！"

    Next

End Sub
Sub ShowFolderList(folderspec)
    Cells.Delete
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    folderspec = ThisWorkbook.Path

    Set f = fs.GetFolder(folderspec)
    Cells(1, 3) = f + "/"
    Set fc = f.Files
    rowi = 1
    For Each f1 In fc
        If UCase(Right(f1.Name, 3)) = "XLS" And f1.Name <> ThisWorkbook.Name Then
        Cells(rowi, 1) = f + "/" + f1.Name
        rowi = rowi + 1
        End If
    Next

End Sub