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

本文介绍了一种使用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


 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值