批量清除文件夹下excel文件的公式，但保留数值的VBN宏代码

right1406

这个可以留着用一下

cjc209

Dim arr(), s&
Sub ttt()
  mypath = ThisWorkbook.Path
  s = 0
  Zdir ThisWorkbook.Path
Application.ScreenUpdating = False
For Each hhl In arr
    If hhl <> "" Then
    MyName = Dir(hhl)
    AWbName = ThisWorkbook.Name
        If MyName <> AWbName And MyName <> "" Then
            Set wb = Workbooks.Open(hhl)
            For Each sh In wb.Worksheets
               sh.UsedRange.Value = sh.UsedRange.Value
            Next sh
          Application.DisplayAlerts = False
           wb.Close True
        Application.DisplayAlerts = True
        End If
      End If
Next
Application.ScreenUpdating = True
End Sub
Sub Zdir(P)
Set Fso = CreateObject("scripting.filesystemobject")
For Each f In Fso.GetFolder(P).Files
If f Like "*.xls*" Then
    s = s + 1
ReDim Preserve arr(1 To s)
    arr(s) = f
    End If
Next
For Each m In Fso.GetFolder(P).SubFolders
    Zdir m
Next
End Sub

cjc209

因为有长于15位的数字 只能文本格式化
Dim arr(), s&
Sub ttt()
  mypath = ThisWorkbook.Path
  s = 0
  Zdir ThisWorkbook.Path
Application.ScreenUpdating = False
For Each hhl In arr
    If hhl <> "" Then
    MyName = Dir(hhl)
    AWbName = ThisWorkbook.Name
        If MyName <> AWbName And MyName <> "" Then
            Set wb = Workbooks.Open(hhl)
            For Each sh In wb.Worksheets
               sh.UsedRange.NumberFormatLocal = "@"
               sh.UsedRange.Value = sh.UsedRange.Value
            Next sh
          Application.DisplayAlerts = False
           wb.Close True
        Application.DisplayAlerts = True
        End If
      End If
Next
Application.ScreenUpdating = True
End Sub
Sub Zdir(P)
Set Fso = CreateObject("scripting.filesystemobject")
For Each f In Fso.GetFolder(P).Files
If f Like "*.xls*" Then
    s = s + 1
ReDim Preserve arr(1 To s)
    arr(s) = f
    End If
Next
For Each m In Fso.GetFolder(P).SubFolders
    Zdir m
Next
End Sub

相惜~~~

lsc900707 发表于 2017-10-8 11:01
时间相隔快一年的帖了。如果这样的话，可以先用代码取消所有筛选。自己尝试修改一下吧。

大神，能不能在加个取消所有筛选隐藏进去。。有筛选隐藏就会错误。。。

相惜~~~

lsc900707 发表于 2016-12-3 21:18
参考附件>>>>>>>>>>>

大神，能不能在加个取消所有筛选隐藏进去。。有筛选隐藏就会错误。。。

lsc900707

相惜~~~ 发表于 2019-1-20 11:10
大神，能不能在加个取消所有筛选隐藏进去。。有筛选隐藏就会错误。。。

不理解你说的什么意思！

相惜~~~

lsc900707 发表于 2016-12-3 21:18
参考附件>>>>>>>>>>>

大神，能不能帮我改下这个，有筛选和隐藏就会粘贴错误......或者加一行取消筛选和隐藏在执行的命令。非常感谢。。。

相惜~~~

lsc900707 发表于 2019-1-20 11:22
不理解你说的什么意思！

就是我这个模板里面一览表有筛选 和 或者隐藏了，执行你那个宏后就会错误~

相惜~~~

cjc209 发表于 2019-1-9 17:31
因为有长于15位的数字 只能文本格式化
Dim arr(), s&
Sub ttt()

大神，有筛选的就会乱了

相惜~~~

lsc900707 发表于 2019-1-20 11:22
不理解你说的什么意思！

大神帮忙改下哈，感激不尽