Excel 工作表粘贴值/另存为，然后使用vba返回原始文件

我有一个工作簿，它执行多个Excel函数，这些函数依赖于一个变量并自行填充。我有一个循环来创建这些表单并保存在一个目录中，但在此之前，我想复制所有表单并粘贴特殊表单，这样公式就会消失

Sub SaveAs1()
For i = 172 To 225 
    Dim SaveName As Integer
    SaveName = ActiveWorkbook.Sheets(1).Range("bi1").value
    Application.ActiveWorkbook.SaveAs "C:\" & SaveName
    Range("bi1") = i + 1
Next
End Sub

我最终用试错法解决了这个问题

---

如果您询问如何粘贴值，这就是您的做法。将“A1”替换为需要使用的实际范围

Range("A1").Copy
Range("A1").PasteSpecial xlPasteValues

---

如果您询问如何粘贴值，这就是您的做法。将“A1”替换为需要使用的实际范围

Range("A1").Copy
Range("A1").PasteSpecial xlPasteValues

---

除了多次表示您不了解VBA之外，您实际上没有解释代码不工作的原因。你能提供一些细节吗？问号

？

在哪里？请提供一个，这样我们就知道问题是什么，而不是说你不知道VBA几次，你真的没有解释为什么你的代码不工作。你能提供一些细节吗？问号

？

在哪里？请提供一个，以便我们知道问题是什么