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

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

1 个答案: