Saveas 后删除单元格内容

Posted 2023-05-07

【中文标题】Saveas 后删除单元格内容

【英文标题】：Delete Cell content after Saveas

【发布时间】：2016-06-22 15:01:53

【问题描述】：

我正在尝试删除已保存的工作簿副本中位于不同文件名下的几个单元格的内容。如下代码，这是从原始工作簿中删除内容并保留保存的 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

【问题讨论】：

尝试用workbook(filenameOfNewBook)替换thisworkbook。

工作簿的文件名不断变化！我有几个文件需要保存。

使用变量 & FileName1 & "-" & "List" & ".xlsm" 编辑：我更喜欢 Oliver 下面的架构，但他倒退了。

您能否阐明如何再次使用该变量，如先前评论中所说的 & FileName1 & "-" & "List" & ".xlsm"

【参考方案1】：

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

Dim wb as Workbook

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

设置 wb = ThisWorkbook.SaveCopyAs FileName:="C:\Users......\" & FileName1 & "-" & "List" & ".xlsm"

然后您可以根据需要使用 wb 将其保存为 wb.Save True 等