VBA修改目标工作簿链接时出现Runtime error 1004错误求助

原代码的关键错误分析 #

• 对象赋值错误：Ws1 = wb.Worksheet("control") 中，Worksheet是对象类型，必须用Set关键字赋值，且集合名称应为Worksheets（复数形式）
• 路径传递错误：Workbook.Open(Destpath) 中，Destpath是Range对象，需取其单元格值（.Value）作为路径字符串传入Open方法
• 变量引用错误：wb.ws1.Range("D8") 是无效引用，应直接使用已定义的变量Ws1，同时需提取单元格的文本值而非引用Range对象本身
• 工作簿对象误用：ActiveWork.ChangeLink 依赖当前活动工作簿，可能并非目标工作簿dest，应直接调用目标工作簿的ChangeLink方法
• 变量类型问题：Oldlink和Newlink未提取单元格值，直接赋值Range对象会导致路径参数传递错误

修正后的代码 #

Dim Ws1 As Worksheet
Dim Destpath As String
Dim dest As Workbook
Dim Oldlink As String
Dim Newlink As String

' 正确赋值工作表对象
Set Ws1 = wb.Worksheets("control")
' 提取目标工作簿路径字符串
Destpath = Ws1.Range("D6").Value
' 打开目标工作簿，禁止自动更新链接
Set dest = Workbooks.Open(Destpath, UpdateLinks:=False)
' 提取旧链接和新链接的文本值
Oldlink = Ws1.Range("D8").Value
Newlink = Ws1.Range("D12").Value
' 直接调用目标工作簿的ChangeLink方法
dest.ChangeLink Name:=Oldlink, NewName:=Newlink, Type:=xlExcelLinks

额外注意事项 #

• 确保Oldlink的路径与Dest工作簿中实际存在的链接完全一致（包括绝对/相对路径、完整文件扩展名，如.xlsx/.xlsm）
• 目标工作簿Dest必须包含有效的Excel外部链接，否则ChangeLink方法会触发错误
• 运行代码时需确保目标工作簿未处于只读状态，且当前用户拥有修改权限

内容的提问来源于stack exchange，提问作者Joe Chan