如何使用vba宏将表格公式去掉变为值后另存为桌面新表，以今日日期命名

兰妞

求求，想要在下图的页面弄一个按钮，名字随意，点击即可通过vba宏将表格的公式去掉，变为值，并另存为桌面的xlsx格式新表，

因为需要将大量表格这样操作上传系统，复制粘贴耗费大量的时间，拜托大神帮帮忙

兰妞

求求各位大神帮帮忙，感激不尽~~~~

gwjkkkkk

Sub test()
    Dim wks As Worksheet, strFileName$, strPath$
    Set wks = Sheets(2)
    strPath = CreateObject("Wscript.Shell").specialfolders("Desktop") & "\"
    wks.Copy
    With ActiveWorkbook
        
        strFileName = strPath & Format(Now, "yyyy-m-d h-mm-ss")
        With .Sheets(1).UsedRange
            .Value = .Value
        End With
        .SaveAs strFileName
        .Close
    End With
End Sub

gwjkkkkk

请参考。。。

兰妞

gwjkkkkk 发表于 2023-5-20 14:57
请参考。。。

感谢你，大神，
还有个问题就是，导出来的新表格能否去掉这个按钮？另外就是他原表格里面前面有个工作簿“帮助页”能否一起倒出来呢？
------------------------
有一些是空值，能否导出来也是空值呢，它这里会有#REF! 错误提示

兰妞

gwjkkkkk 发表于 2023-5-20 14:57
请参考。。。

感谢你，大神
我想问下导出来的新表可以去掉按钮吗？
有一些空值导出来变成#REF!了，另还有一个工作簿“帮助页”需一起导出的，可以帮忙看下吗

兰妞

gwjkkkkk 发表于 2023-5-20 14:57
请参考。。。

导出来的新表去掉宏，按钮这样的

贺达勇

兰妞 发表于 2023-5-20 15:12
导出来的新表去掉宏，按钮这样的

你把按钮剪切到帮助页工作表里面

gwjkkkkk

兰妞 发表于 2023-5-20 15:07
感谢你，大神
我想问下导出来的新表可以去掉按钮吗？
有一些空值导出来变成#REF!了，另还有一个工作簿 ...

请参考。。。我这里空值导出来没有变成#REF!，你打开主文件时选择不更新试试。。。

兰妞

贺达勇 发表于 2023-5-20 15:22
你把按钮剪切到帮助页工作表里面

但是我是想要两个工作簿导出一个新的表格，没有帮助页那个工作簿，上传不了系统呢