求助下各位老师，另存工作簿的问题

用户名用什么好

将指定表，如表1、表2，另存为同目录下新的工作簿，名为“报表”；同时新的工作簿公式全部转为数值


谢谢！

网上找的代码可用，但另存、新的工作簿为数值，没找到，还请多多指教


Sub FunctionTransValue_Sheets()
Dim sht As Worksheet
For Each sht In Worksheets '遍历工作表
sht.UsedRange.Value = sht.UsedRange.Value
Next
End Sub

excel玉米

Sub CommandButton1_Click()
Dim mpath$
mpath = ThisWorkbook.Path
Dim sht As Worksheet
For Each sht In Worksheets '全部工作表转为数值
  sht.UsedRange.Value = sht.UsedRange.Value
Next
Worksheets(Array("表1", "表2")).Copy
ActiveWorkbook.SaveAs mpath & "\报表.xlsx", 51
ActiveWorkbook.Close
End Sub

ykcbf1100

附件供参考。。。

用户名用什么好

ykcbf1100 发表于 2023-4-29 21:10
附件供参考。。。

谢谢谢谢

如另存的文件名以表1的A1单元格内容命名呢？

lizhipei78

excel玉米 发表于 2023-4-29 20:43
Sub CommandButton1_Click()
Dim mpath$
mpath = ThisWorkbook.Path

不懂就问，那个工作簿另存为，后面的参数51是什么意思？

lizhipei78

ykcbf1100 发表于 2023-4-29 21:10
附件供参考。。。

大神，能解释一下，工作簿另存为的参数，51是什么意思吗？

于箱长

lizhipei78 发表于 2023-4-30 11:13
大神，能解释一下，工作簿另存为的参数，51是什么意思吗？

lizhipei78

于箱长 发表于 2023-4-30 11:30

感谢，原来如此，我一般都是直接加“.xlsx”，又学到了一招

于箱长

lizhipei78 发表于 2023-4-30 17:29
感谢，原来如此，我一般都是直接加“.xlsx”，又学到了一招

我也是刚从草爷那里偷偷学来的，感谢他，送他三朵小花儿