当办公软件更新后,来自另一个工作簿的宏停止工作时,可能是由于更新后的软件版本导致了一些兼容性问题。以下是一些可能的解决方法:
确保宏的安全性设置已启用:
检查引用的工作簿是否正确:
更新宏代码以适应新的软件版本:
调试宏代码:
以下是一个示例代码,用于更新来自另一个工作簿的数据:
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
请根据实际情况修改文件路径、工作表名称和数据范围,以适应你的需求。