使用VBScript中的Excel的UpdateLink（）方法

我想更新某个Excel文件中的所有链接，并将代码放在VBScript中。 下面的代码有什么问题？

file = Directory2 & Filename2 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(file) objExcel.Application.Visible = True objExcel.ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources objExcel.ActiveWorkbook.Save objExcel.ActiveWorkbook.Close 

这返回：

错误代码：800A0400

Answer 1

VBScript不支持命名参数（ Name:=ActiveWorkbook.LinkSources ）

Name是UpdateLink()的第一个参数，但是，只需传递值：

 objWorkbook.UpdateLink objWorkbook.LinkSources 

您也正在使用ActiveWorkbook而没有对其进行限定。 您需要使用以下任一项：

 objExcel.ActiveWorkbook.LinkSources 

要么

 objWorkbook.LinkSources