使用带有VBA的工作簿打开已保存的工作簿，修改先前存在的工作簿，保存并关闭

我希望能够在Excel工作簿中运行VBA命令，以便在指定位置（

Desktop\ThisBook.xlsx

）打开已保存的现有工作簿

打开

ThisBook.xlsx

后，该命令将从VBA工作簿（A1）中的指定单元格中获取数值，将它们添加到

ThisBook.xlsx

中的现有单元格中（类似于

ThisBook.xlsx A1=ThisBook.xlsx A1+ActiveDocument A1

），并将它们保存在

ThisBook.xlsx数据

所在的位置

最后，覆盖

ThisBook.xlsx的上一个保存文件并覆盖新数据。
尝试以下操作：

Sub Macro1()
  ScreenUpdating = False
  Workbooks.Open Filename:="C:\Users\Parents\Desktop\ThisBook.xlsm"

  Windows("Book2.xlsm").Activate
  transfer = ActiveSheet.Range("A1").Value

  Windows("ThisBook.xlsm").Activate
  ActiveSheet.Range("A1").Value = ActiveSheet.Range("A1").Value + transfer

  ActiveWorkbook.Save
  ActiveWindow.Close
  ScreenUpdating = True
End Sub

尝试录制宏并修改生成的代码。您应该查看这篇文章。它是VB，但离VBA中需要的东西不远