Batcher

回复 1# sykIII


    请把测试用的两个目录以及Excel文件打包压缩传上来我试试

Batcher

回复 3# sykIII


    你的VLOOKUP不是已经写好了吗，测试的时候遇到什么问题了吗，请详细说下。

Batcher

回复 5# sykIII


    你的意思是《统计.xlsx》里面的函数写好了，但是后来《数据.xlsx》所在目录发生了变化对吗？那vlookup肯定是找不到了

Batcher

回复 7# sykIII


试试这段VBA：

Private Sub Workbook_Open()
    Dim n As Integer
    n = 1
    For n = 1 To UBound(ActiveWorkbook.LinkSources(xlExcelLinks))
        Link_Old = ActiveWorkbook.LinkSources(xlExcelLinks)(n)
        If Link_Old = "" Then Exit Sub
        ArrOld = Split(Link_Old, "\")
        ArrNew = Split(ActiveWorkbook.Path, "\")
        ArrNew(UBound(ArrNew)) = ArrOld(UBound(ArrOld) - 1)
        Link_New = Join(ArrNew, "\") & "\" & ArrOld(UBound(ArrOld))
        If Link_Old <> Link_New Then
            Set myfile = CreateObject("Scripting.FileSystemObject")
            If myfile.fileExists(Link_New) Then
                ActiveWorkbook.ChangeLink Link_Old, Link_New, xlExcelLinks
            End If
        End If
        ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources(xlExcelLinks)(n)
    Next
End Sub
复制代码

如果不知道怎么执行，请直接尝试文件：

Batcher

回复 9# sykIII


打开文件：统计.xlsx
Alt + F11
双击Thisworkbook，选择workbook，选择Open事件，参考截图：https://zhidao.baidu.com/question/578896508.html
把代码放进去
统计.xlsx 另存为 统计.xlsm