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

rrl72525

咋没人理我呀？

rrl72525

再顶，求解决

rrl72525

恳请版主修改一下代码，谢谢！

rrl72525

如何修改，请帮帮我吧。

qytjc

楼主你太好了，我爬楼找了很久。终于找到我想要的效果！！

qytjc

    Set wb = Workbooks.Open(ThisWorkbook.Path & "\b.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:="b备份.xls")
'    ActiveWorkbook.Close'不管是否备份都关闭
    If s = True Then
        ActiveWorkbook.Close '备份后才关闭
        MsgBox "备份完毕"
    Else
        MsgBox "没有备份"
    End If
    Application.Calculation = xlCalculationAutomatic

重复添加这几行就可以了，我也不懂，乱搞的！

qytjc

1.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\b.xls")
   
2.     For Each sh In wb.Sheets
   
3.         With sh.UsedRange
   
4.             .Value = .Value
   
5.         End With
   
6.     Next
   
7.     Application.DisplayAlerts = True
   
8.     Application.ScreenUpdating = True
   
9.     s = Application.Dialogs(xlDialogSaveAs).Show(arg1:="b备份.xls")
   
10. '    ActiveWorkbook.Close'不管是否备份都关闭
    
11.     If s = True Then
    
12.         ActiveWorkbook.Close '备份后才关闭
    
13.         MsgBox "备份完毕"
    
14.     Else
    
15.         MsgBox "没有备份"
    
16.     End If
    
17.     Application.Calculation = xlCalculationAutomatic
    
18.    

复制代码

重复添加这段就可以了，

ahhfdw

厉害了！！！！！