在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 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