Question

我正在尝试删除工作簿中保存的不同文件名副本中的少数单元格的内容。如下面的代码所示，这是从原始工作簿中删除内容并将内容保留在已保存的wb中。它正在做我想要的正确的相反任务！

此外，有关如何禁用少量模块和删除保存的wb中的几张图片的建议吗？

先谢谢你的帮助！

 Sub SaveAsNewCopy()
 Dim Path As String
 Dim FileName1 As String

 Application.DisplayAlerts = False

 FileName1 = Range("D3")


  ThisWorkbook.SaveCopyAs FileName:="C:\Users\..\..\..\"    & FileName1 & "-" & "List" & ".xlsm"
  MsgBox "File Saved successfully!", , "Save"

  ThisWorkbook.Sheets("Sheet1").Range("E5:F5").ClearContents
   ThisWorkbook.Sheets("Sheet1").Range("E9:F9").ClearContents

   Application.DisplayAlerts = True

   End Sub

Answer 1

您需要处理刚刚保存的工作簿，进行所需的更改，然后再次保存。最简单的方法是为其分配一个变量。在您的声明中执行以下操作：

Dim wb as Workbook

然后在save-as行之前将保存的工作簿分配给该变量，如下所示：

设置wb = ThisWorkbook.SaveCopyAs FileName：=“C：\ Users ...... \”＆amp; FileName1＆amp; “ - ”＆amp; “列表”＆amp; “.XLSM”

然后你可以根据需要使用wb，用wb.Save True等保存它

Saveas后删除单元格内容

1 个答案: