办公软件更新后，来自另一个工作簿的宏停止工作。

当办公软件更新后，来自另一个工作簿的宏停止工作时，可能是由于更新后的软件版本导致了一些兼容性问题。以下是一些可能的解决方法：

1. 确保宏的安全性设置已启用：

   • 在办公软件中，点击"文件"，然后选择"选项"。
   • 在选项窗口中，选择"信任中心"，然后点击"信任中心设置"按钮。
   • 在信任中心设置窗口中，选择"宏设置"，确保宏的安全性设置已启用。

2. 检查引用的工作簿是否正确：

   • 确保宏引用的工作簿路径和文件名是正确的。
   • 如果工作簿被移动或重命名，需要更新宏中引用的路径和文件名。

3. 更新宏代码以适应新的软件版本：

   • 检查宏中使用的函数和对象是否在新版本的软件中仍然有效。
   • 更新宏代码以适应新版本的函数和对象。

4. 调试宏代码：

   • 使用调试工具来检查宏代码是否存在错误或异常。
   • 添加调试语句以输出一些中间结果，以帮助确定问题所在。

以下是一个示例代码，用于更新来自另一个工作簿的数据：

Sub UpdateDataFromAnotherWorkbook()
    Dim sourceWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim targetWorkbook As Workbook
    Dim targetWorksheet As Worksheet
    Dim sourceFilePath As String
    
    ' 设置源工作簿的文件路径
    sourceFilePath = "C:\Path\To\SourceWorkbook.xlsx"
    
    ' 打开源工作簿
    Set sourceWorkbook = Workbooks.Open(sourceFilePath)
    
    ' 设置源工作表
    Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet1")
    
    ' 设置目标工作表
    Set targetWorkbook = ThisWorkbook ' 当前工作簿
    Set targetWorksheet = targetWorkbook.Worksheets("Sheet1")
    
    ' 复制数据
    sourceWorksheet.Range("A1:B10").Copy targetWorksheet.Range("A1")
    
    ' 关闭源工作簿
    sourceWorkbook.Close SaveChanges:=False
    
    ' 清理对象
    Set sourceWorksheet = Nothing
    Set sourceWorkbook = Nothing
    Set targetWorksheet = Nothing
    Set targetWorkbook = Nothing
    
    MsgBox "数据已更新。"
End Sub

请根据实际情况修改文件路径、工作表名称和数据范围，以适应你的需求。