各位老师，EXCEL另存为新建工作簿怎么实现，新的工作簿不带函数

quzuolin

各位老师，EXCEL共有5个工作表另存为新建工作簿怎么实现，新的工作簿不带函数呀！
  网上复制的VBA代码试过 好多都没能实现，复制到新表格的时候还是会有函数。

3190496160

上传附件才可能帮到你的

quzuolin

3190496160 发表于 2020-5-17 21:57
上传附件才可能帮到你的

Sub 副本仅存数据和格式()
    Dim bs%, nm, snum%
    Application.ScreenUpdating = False
    snum = Application.SheetsInNewWorkbook
    bs = ThisWorkbook.Sheets.Count
    nm = ThisWorkbook.Name
    Application.SheetsInNewWorkbook = bs
    With Workbooks.Add
        For i = 1 To bs
            With .Sheets(i)
                ThisWorkbook.Sheets(i).UsedRange.Copy
                With .Range("a1")
                .PasteSpecial xlPasteValues
                .PasteSpecial xlPasteColumnWidths
                 .Range("a1").PasteSpecial xlPasteFormats
' 怎样去掉条件格式,根据表的实际自己加代码改一下吧。
                End With
                .Name = ThisWorkbook.Sheets(i).Name
            End With
        Next
        .Close True, ThisWorkbook.Path & "\" & "一条流" & nm
    End With
    Application.SheetsInNewWorkbook = snum
    Application.ScreenUpdating = True
End Sub

老师  我从网上复制一段VBA代码能够实现了，  但是保存后找不到文件路径， 能帮看看，哪里是修改保存路径的吗？

shisen_he

quzuolin 发表于 2020-5-17 22:55
Sub 副本仅存数据和格式()
    Dim bs%, nm, snum%
    Application.ScreenUpdating = False

倒数第五行。在当前工作簿的路径下

quzuolin

shisen_he 发表于 2020-5-18 09:43
倒数第五行。在当前工作簿的路径下

老师能帮忙看下，假如在粘贴数据的默认做加运算，该怎么改呀！
现在复制出来的数字 提示为"文本数字", 不能直接求和，每次需要手动去转换为“数字格式“”