vba - 使用带有 VBA 的工作簿打开保存的工作簿，修改该预先存在的工作簿，保存并关闭

Question

我希望能够在 Excel 工作簿中运行 VBA 命令，该命令将在指定位置 ( Desktop\ThisBook.xlsx) 打开保存的现有工作簿。

打开 后ThisBook.xlsx，该命令将从 VBA 工作簿 (A1) 中的指定单元格中获取数值，将它们添加到ThisBook.xlsx（类似于ThisBook.xlsx A1 = ThisBook.xlsx A1 + ActiveDocument A1）中的现有单元格中并将它们保存在ThisBook.xlsx data原来的位置。

最后，覆盖之前的保存文件ThisBook.xlsx并覆盖新数据。

Answer 1

尝试这个：

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