更新代码，现在要工作，该选项卡已移至新工作簿

如何解决更新代码，现在要工作，该选项卡已移至新工作簿

我有一个代码来检查表中保存的数据，并且如果在主表“ Mini Master”中添加了新行，则会将其添加到“关键路径”标签中的列表中。

Sub test()
Dim Ws As Worksheet
Dim toWs As Worksheet
Dim rngDB As Range,rngT As Range
Dim vDB As Variant,vR() As Variant
Dim i As Long,n As Long,j As Integer

Set Ws = Sheets("MINI MASTER")
Set toWs = Sheets("CRITICAL PATH")

vDB = Ws.Range("a1").CurrentRegion
With toWs
    Set rngDB = .Range("a2",.Range("a" & Rows.Count).End(xlUp))
    For i = 2 To UBound(vDB,1)
        If WorksheetFunction.CountIf(rngDB,vDB(i,1)) Then
        Else
            n = n + 1
            ReDim Preserve vR(1 To 4,1 To n)
            For j = 1 To 4
                vR(j,n) = vDB(i,j)
            Next j
        End If
    Next i
    Set rngT = .Range("a" & Rows.Count).End(xlUp)(2)
    If n Then
        rngT.Resize(n,4) = WorksheetFunction.Transpose(vR)
    End If
End With
End Sub

这确实很好，但是现在我想将“关键路径”保留在自己的工作簿中，而不是同一工作簿的标签中。

我试图更新代码以引用新文件的位置，但是它不能正常工作。

 Sub test()
    Dim Ws As Workbook,wsSource As Worksheet
    Set Ws = Workbook.Open("U:\Buying\BUYING\Buying Spreadsheets\MiniMaster.xlsm")
    Dim toWs As Workbook,wsTarget As Worksheet
    Set toWs = Workbook.Open("U:\Buying\BUYING\Buying Spreadsheets\CriticalPath.xlsm")
    
    Dim rngDB As Range,rngT As Range
    Dim vDB As Variant,vR() As Variant
    Dim i As Long,j As Integer
    
    Set wsSource = Ws.Sheets("MINI MASTER")
    Set wsTarget = toWs.Sheets("CRITICAL PATH")

    vDB = wsSource.Range("a1").CurrentRegion
    With wsTarget
        Set rngDB = .Range("a2",.Range("a" & Rows.Count).End(xlUp))
        For i = 2 To UBound(vDB,1)
            If WorksheetFunction.CountIf(rngDB,1)) Then
            Else
                n = n + 1
                ReDim Preserve vR(1 To 4,1 To n)
                For j = 1 To 4
                    vR(j,j)
                Next j
            End If
        Next i
        Set rngT = .Range("a" & Rows.Count).End(xlUp)(2)
        If n Then
            rngT.Resize(n,4) = WorksheetFunction.Transpose(vR)
        End If
    End With
End Sub

不确定我在这里做错了什么，并且希望能为解决该问题提供一些帮助。