求版主修改工作簿另存为不含公式的代码

rrl72525 · 发表于 2014-4-15 10:24

本帖最后由 rrl72525 于 2014-4-15 17:15 编辑

我想把本文件夹下所有的文件另存为不含公式的文件，存到指定的文件夹中，现在只能另存指定的一个文件，也能去掉另存文件里的公式，就是不能把本文件夹下所有的文件以原文件名+"备份"俩个字的文件名存在指定的文件夹中，附件中的“另存为不含公式的工作表”的代码如何修改才能达到如上要求。

rrl72525 · 发表于 2014-4-15 11:09

老师，这段代码如何修改，
Sub Macro1()
Dim wb As Workbook, sh As Worksheet, s
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Set wb = Workbooks.Open(ThisWorkbook.Path & "\a.xls")
For Each sh In wb.Sheets
      With sh.UsedRange
         .Value = .Value
      End With
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
s = Application.Dialogs(xlDialogSaveAs).Show(arg1:="a备份.xls")
' ActiveWorkbook.Close'不管是否备份都关闭
If s = True Then
      ActiveWorkbook.Close '备份后才关闭
      MsgBox "备份完毕"
Else
      MsgBox "没有备份"
End If
Application.Calculation = xlCalculationAutomatic
End Sub

rrl72525 · 发表于 2014-4-15 11:32

自己顶一下，老师们如何修改呀？

rrl72525 · 发表于 2014-4-15 11:55

各位老师，帮看一下如何修改，先谢了。

rrl72525 · 发表于 2014-4-15 12:46

本帖最后由 rrl72525 于 2014-4-15 12:49 编辑

代码高手们，如何改？我实在不会了

sayhi1984 · 发表于 2014-4-15 12:51

亲，你的a、b、c、d四个文件没有公式啊，全是空表？附件就没有达不到要求，效果肯定看不到了。

rrl72525 · 发表于 2014-4-15 13:00

本帖最后由 rrl72525 于 2014-4-15 13:04 编辑

我又重新上传附件，这次看看如何改。

rrl72525 · 发表于 2014-4-15 13:29

如何实现呀？

rrl72525 · 发表于 2014-4-15 14:05

本帖最后由 rrl72525 于 2014-4-15 14:21 编辑

求助版主，如何改

rrl72525 · 发表于 2014-4-15 14:34

为什么只能另存一个文件，全部另存如何改？

		自动登录	找回密码
密码			免费注册

[求助] 求版主修改工作簿另存为不含公式的代码