Excelmacros只保存具有不同文件名的文件的值

我希望将当前的excel文件保存为文件名与单元格B10中的值不同的文件,并且仅从当前文件中取值(不是公式)。

我得到的代码只有从这个链接获取值: 从工作簿保存值
任何帮助赞赏。 谢谢。

编辑:我想做一个模板,这将帮助我的同事以更好的方式文件,而不浪费公式,每个* .xls文件约1.7 MB的磁盘空间。 如果我只保存价值,大约需要600 kb。 我希望它对于不同的用户是灵活的,不需要长时间的指令就可以做到这一点。 * vba不是我的专业领域,而且我也没有为这项工作编写任何代码,所以基本上任何可能的方式都是值得欢迎的。

这段代码将会满足需要

Sub Macro1() Dim x As String Dim y As String x = "C:\" 'path to file y = Range("C1").Value 'Reference of the cell which contains the value Z = x + y Z = Z + ".xlsm" 'Format of macro enabled worksheet ActiveWorkbook.SaveAs Filename:=Z, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub 

既然你提供了一个纯文字的问题 ,我应该给你一个纯文字的答案
要做你想做的事情,你必须:

  1. 使用表格对象复制方法复制您的工作 。 它具有可选的参数,如果省略它,它会自动创build一个包含复制工作表的新工作簿。
  2. 复制后,可以使用ActiveObject (例如ActiveWorkbook,ActiveSheet等)来引用新创build的工作簿和工作表。
  3. 一旦正确引用了对象,现在可以使用Cells属性来select所有范围并进行复制。 然后使用范围PasteSpecial方法将公式转换为值。
  4. 最后,您需要使用Workbook Object SaveAs方法保存工作簿

希望这不知何故导致你的解决scheme。 HTH。